Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recopie d'un titre dans plusieurs Onglets

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Squoltahthx94

XLDnaute Occasionnel
Bonjour à tous,

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

Code:
'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😕😕
 
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
 
Re : Recopie d'un titre dans plusieurs Onglets

merci à vous 2 j'essaie

Bonjour Squoltahthx94: Essai :
VB:
For i = 3 To 8
VB:
    Sheets("liste").Range("A1:L1").Copy Sheets(i).Range("a1")
VB:
Next i
Cordialement

Pardon je me suis précipité mais efgé tu veux dire que mon code deviendrai :
Code:
For i = 3 To 8
   Sheets("liste").Range("A1:L1").Copy Sheets(i).Range("a1")
Next i
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
Réponses
4
Affichages
1 K
cecenico
C
R
  • Question Question
Réponses
2
Affichages
964
Rousseau Benoit
R
K
Réponses
4
Affichages
1 K
K
A
Réponses
12
Affichages
1 K
AnjyD
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…