[Macro] Macro, rajouter en colonne B des années entre chaque ligne

[gege25]

Bonjour,
Mon niveau informatique étant médiocre, je me casse la tete à essayer d'insérer les années 1982 à 2011 entre chaque ligne en colonne B. Un exemple plus parlant, en pièce jointe ^^ Je dois faire ca sur 300 lignes et ensuite remplir les autres colonnes avec des données situées dans d'autres onglets (avec des formules).
Ex: Transformer:

Toto
Tata
Tutu

En

Toto 2011
Toto 2010
...
Toto 1982
Tata 2011
Tata 2010
...
Tata 1982
Tutu 2011
Tutu 2010
...
Tutu 1982

Vous auriez une idée de comment faire ca ?
Merci pour vos idées et aide, bon excelage

 

[gege25]

Re : [Macro] Macro, rajouter en colonne B des années entre chaque ligne

Un début de réponse pour rajouter 30 lignes entre chaque ligne (macro pas optimisé):

Public Sub ajout_ligne()
Dim lig As Long
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    For i = 1 To 29
    Rows(lig + 1).Insert
    Next i
Next lig
End Sub

 

[phlaurent55]

Re : [Macro] Macro, rajouter en colonne B des années entre chaque ligne

Bonjour gege,

un essai en pièce jointe

à+
Philippe

 

[gege25]

Re : [Macro] Macro, rajouter en colonne B des années entre chaque ligne

Super, ca a marché! Merci