ajout de lignes

[tomili]

Bonjour,

Je cherche de l'aide pour automatiser le problème suivant dans un fichier de 1000 lignes:

Chaque ligne contient dans la colonne A une référence à 5 chiffres
1/ Dans la colonne A il faut copier les lignes 10 fois avec la même référence et cela pour les 1000 lignes
2/ Dans la colonne B , il faut récupérer la référence de la colonne A et ajouter + 1 à chaque ligne.
Je joins un ptit schéma pour simplifier

Merci d'avance pour votre aide🙄

 

[Gorfael]

Re : ajout de lignes

Salut tomili et le forum
Depuis la fin de la maternelle, je n'éprouve rien pour les images !
Un bout de fichier d'essai aurait été nettement plus profitable. Et encore, à condition qu'il nous donne une série complète, qu'on puisse savoir ce qu'il faut faire !

Sub test()
Dim Cel As Range
Dim X As Long, Y As Integer
For X = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
    Set Cel = Range("A" & X)
    Range(Cel, Cel.Offset(8, 1)).Insert (xlDown)
    Range(Cel, Cel.Offset(-9, 0)) = Cel
    For Y = 0 To 9
        Range("B" & X + Y) = Cel & "-" & Y + 10
    Next Y
Next X
End Sub

A+