Recopie d'un titre dans plusieurs Onglets

[Squoltahthx94]

Bonjour à tous,

J'essaie de copier les titres de colonnes sur 5 onglets (a,b,c,d,e)

'Recopie du titre dans les divers onglets
Dim i As Byte 'déclare la variable i (Incrément)
for i= 3 to 8 'le 1° onglet ce trouve en 3e position et c'est à répéter jusqu'à la 8e position (5eme onglet)
Sheets("liste").Active 'selection l'onglet liste....
Range("a1:l1").Select 'copie de la barre de titre
Selection.Copy
Sheets(i).Active 'recopie dans l'onglet A
Range("a1").Select
activesheet.copy
copy

Mais je crois que je me suis embrouillé légèrement...Quelqu'un pourrait m'aider..Merci😕😕

 

[Efgé]

Re : Recopie d'un titre dans plusieurs Onglets

Bonjour Squoltahthx94: Essai :

For i = 3 To 8

    Sheets("liste").Range("A1:L1").Copy Sheets(i).Range("a1")

Next i

Cordialement

 

[Dull]

Re : Recopie d'un titre dans plusieurs Onglets

Salut Squoahthx94, le Forum

Peut-être comme cela

Sub EssAi()
Dim i As Byte 'déclare la variable i (Incrément)
For i = 3 To 8
Sheets("liste").Range("A1:L1").Copy Destination:=Sheets(i).Range("A1")
Next i
End Sub

EDITION: Hello Fred 🙂

Bonne Journée

 

[Squoltahthx94]

Re : Recopie d'un titre dans plusieurs Onglets

merci à vous 2 j'essaie

 

[Squoltahthx94]

Re : Recopie d'un titre dans plusieurs Onglets

merci à vous 2 j'essaie

Bonjour Squoltahthx94: Essai :

For i = 3 To 8

    Sheets("liste").Range("A1:L1").Copy Sheets(i).Range("a1")

Next i

Cordialement

Pardon je me suis précipité mais efgé tu veux dire que mon code deviendrai :

For i = 3 To 8
   Sheets("liste").Range("A1:L1").Copy Sheets(i).Range("a1")
Next i

 

[Efgé]

Re : Recopie d'un titre dans plusieurs Onglets

Re Bonjour Dull 🙂 Oui, mais mes posts peuvent préter à confusion... C'est la même méthode que Dull d'ailleurs. Cordialement

 

[Dull]

Re : Recopie d'un titre dans plusieurs Onglets

Re le Fil🙂

Tu vois Fred 🙂 ce que cela donne sans retour Chariot

Bonjour Squoltahthx94: Essai :

For i =  3 To 8

     Sheets("liste").Range("A1:L1").Copy  Sheets(i).Range("a1")

Next  i

Cordialement

Regarde la pièce jointe 856636

Bonne Journée

 

[Squoltahthx94]

Re : Recopie d'un titre dans plusieurs Onglets

bon j'essaie merci

 

[Efgé]

Re : Recopie d'un titre dans plusieurs Onglets

@ Dull : Ouaip