Erreur 1004_zone sélectionnée inadéquate

Question

Bonjour, 

Je souhaite copier coller valeur une certaine zone dans toutes les feuilles de ma page jusqu'à REU! 

et ça me donner "Erreur 1004"

je comprends pas pourquoi?
qui pourra résoudre?
++

Sub macro_finale()

Sheets(1).Activate

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
      
    
    If ws.Name <> "REU" Then
    Range("C5:IV179").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        
   ActiveSheet.Next.Select
   
  
   
   Else: ws.Name = "REU"
   
   Range("C5:IV139").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        End If
        
         Next ws
    

    
    
 End Sub

chossette9 · Answer

Bonjour, 

sur quelle ligne se situe l'erreur ? Quelle est la ligne surlignée lors du débogage ?

Cordialement.

ccm81 · Answer

bonjour

je pense qu'il te faut préciser les feuilles et pour la copie (au même endroit), ceci devrait suffire

worksheets("NomDeTaFeuilleOrigine").Range("C5:IV179").Copy ws.Range("C5")

bonne suite

ccm81 · Answer

re

et un exemple qui fonctionne

Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name <> "Feuil1" Then
    Worksheets("Feuil1").Range("A15:C17").Copy ws.Range("A15")
  End If
Next ws

bonne suite

Erreur 1004_zone sélectionnée inadéquate

3 réponses

Discussions similaires

Newsletters