VBA - Insérer une ligne titre entre chq ligne

Résolu
jerem25 -  
 jerem25 -
Bonjour,

Je cherche désespérément sur Internet mais je ne trouve pas de solution :

J'ai une base de donnée sur Excel de longueur variable.

Je cherche à copier une ligne de titre (header) et l'insérer entre chaque ligne de ma base de donnée.

LA macro VBA me permettrait donc d'insérer la ligne de header toutes les 2 lignes, sachant que je peux avoir X ligne dans ma base de donnée.

Merci beaucoup

Jérémie
A voir également:

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

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
0
jerem25
 
Merci beaucoup Eric !!!!!

Et si je veux insérer ma ligne de titre (header) non pas toutes les 2 lignes mais 3 lignes ?

Merci
-1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Joue sur cette ligne là :
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

eri
0
jerem25
 
Merci !!!!!!
0