Erreur 1004_zone sélectionnée inadéquate
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
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
3 réponses
-
ContributeurBonjour,
sur quelle ligne se situe l'erreur ? Quelle est la ligne surlignée lors du débogage ?
Cordialement. -
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 -
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
