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

 

[JBARBE]

Bonjour à tous,
Peut-être ceci :

Sub copy()
Dim i As Long
For i = 2 To 4
Sheets("feuil1").Range("A5:A1000").copy Sheets("feuil" & i).Range("A5")
Application.CutCopyMode = False
Next i
End Sub

Bonne journée!

 

[maval]

Salut JBARBE,

Ton code est Nickel sauf que moi je me suis trompé en faite les feuil ont un nom c'est à dire feuil1 "Noms" feuil2"transpose_lien"feuil3"transpose ville " feuil4"nom_pays"

Excuse moi.

max

 

[JBARBE]

Re,
ou:

Sub copy()
Dim i As Long
For i = 2 To 4
Sheets(1).Range("A5:A1000").copy Sheets(i).Range("A5")
Application.CutCopyMode = False
Next i
End Sub

@+

 

[maval]

Re,

Nickel je te remercie

Bonne journée

Max

 

[Lone-wolf]

Bonjour à tous 🙂

Pas besoin de CutCopyMode 😉

 

[maval]

Salut Lone-wolf

Tu as raison je l'ai supprimer et sa fonctionne très bien.

@+ Max

 

[Staple1600]

Bonjour le fil, le forum

Sinon on peut aussi utiliser ce qu'Excel a prévu pour cela
(Donc sans boucle, sans copier/coller 😉)

Sub a()
Dim feuilles
feuilles = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("Feuil1").Range("A5:A100")
End Sub

 

[maval]

Salut Staple

Je te remercie et te souhaite une bonne journée

Max

 

[Staple1600]

Bonjour le fil, le forum

@maval
Merci pour le merci.
Mais as-tu testé mon code VBA?

 

[maval]

re,

Je viens de le tester effectivement j'ai un problème

 

[maval]

re,

message erreur

la methode fillAcrossSheets de la classe Sheets a échoué

 

[Staple1600]

Re

@maval
Pour que cela fonctionne, il faut faire ce qu'on peut lire en vert dans la macro
mettre le nom de feuilles du classeur que tu utilises.

Donc feuilles doit contenir les noms des feuilles qu'on peut lire dans le message#3

Je te laisse faire les changements?

 

[maval]

re,

Ben oui!

Sub a()
Dim feuilles
feuilles = Array("transpose_lien", "transpose_ville")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("path").Range("A5:A100")
End Sub

 

[Staple1600]

Re

Il manque path dans le tableau feuilles
(c'est pourtant ce que montrait mon exemple : Feuil1 était dans le tableau feuilles)

PS: *Les noms du message#3 étaient

Ton code est Nickel sauf que moi je me suis trompé en faite les feuil ont un nom c'est à dire feuil1 "Noms" feuil2"transpose_lien"feuil3"transpose ville " feuil4"nom_pays"

*: Et désormais les noms ont encore changés...

Donc la macro devrait être:

Sub b()
Dim feuilles
feuilles = Array("Noms", "transpose_lien", "transpose ville ", "nom_pays")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("Noms").Range("A5:A100")
End Sub