VBA - Insérer une ligne titre entre chq ligne Résolu

Question

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

eriiic · Answer

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

jerem25 · Answer

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

VBA - Insérer une ligne titre entre chq ligne

2 réponses

Discussions similaires

Newsletters