VBA - Insérer une ligne titre entre chq ligne
Résolu/Fermé
A voir également:
- VBA - Insérer une ligne titre entre chq ligne
- Site de vente en ligne gratuit entre particulier - Guide
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
- Partage de photos en ligne - Guide
- Insérer signature word - Guide
2 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
28 juin 2012 à 19:50
28 juin 2012 à 19:50
Bonjour,
eric
Sub titres()
' inscrit la ligne de titre ligne 1 toutes les 2 lignes
Dim lig As Long
Range([A1], [A1].End(xlToRight)).Copy
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
Range([A1], [A1].End(xlToRight)).Copy
Cells(lig, 1).Insert Shift:=xlDown
Next lig
End Sub
eric
Merci beaucoup Eric !!!!!
Et si je veux insérer ma ligne de titre (header) non pas toutes les 2 lignes mais 3 lignes ?
Merci
Et si je veux insérer ma ligne de titre (header) non pas toutes les 2 lignes mais 3 lignes ?
Merci
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
29 juin 2012 à 10:59
29 juin 2012 à 10:59
Bonjour,
Joue sur cette ligne là :
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
eri
Joue sur cette ligne là :
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
eri
