copy sur 3 feuille

[maval]

Bonjour

Je cherche un code VBA pour copier et coller la colonne "A5"de la feuil1 sur la feuil2,3 et4 en colonne "A5"
J'ai fait ceci mais sa ne fonctionne pas?

Sub copy()
Sheets("feuil1").Range("A5:A1000").copy Destination:=Sheets("feuil2" & "feuil3").Range("A5")
Application.CutCopyMode = False
End Sub

Je vous remercie d'avance

Max

 

[maval]

Re

Oui j'ai compris c'est moi qui à fait erreur, excuse moi sa fontionne très bien

Max

 

[Staple1600]

Re,

@maval
Un des avantages de FillAcrossSheets, c'est ce paramètre optionel

XlFillWith peut être l'une de ces constantes XlFillWith.
xlFillWithAll par défaut
xlFillWithContents
xlFillWithFormats

Ce qui permet selon le besoin, de tout copier ou que les valeurs par exemple.
Ceci me rapelle un des fils où j'ai utilisé FillAcrossSheets avec de nombreuses feuilles.
https://www.excel-downloads.com/threads/répéter-une-procédure-dans-tous-les-onglets.20020706/#post-20152009
(Mais cela inclue une boucle, chose que je voulais éviter au départ)
Donc maval, si tu dois recopier ta colonne A5:A100 sur toutes les feuilles, alors la macro peut s'écrire

Sub c()
Dim TWs, i
With ThisWorkbook
'ci-dessous la boucle que j'évitais dans la première version de la macro
'et parce maval avait précisé: recopie sur 3 feuilles.
ReDim TWs(1 To .Worksheets.Count)
    For i = 1 To .Worksheets.Count
        TWs(i) = .Sheets(i).Name
    Next
Sheets(TWs).FillAcrossSheets .Worksheets(1).Range("A5:A100")
End With
End Sub