Insertion automatique de lignes en fonction d'une variable

Bonjour,

Je parcours le forum depuis un moment sans trouver de solution à mon problème.

Je ne suis pas à l'aise avec VBA mais je pense que je suis obligée d'utiliser une macro pour obtenir ce que je souhaite.

J'ai un tableau dont une colonne comprend une variable (colonne N).

Sous chaque ligne, je souhaite insérer autant de lignes qu'il est précisé dans la colonne N.

Ex : Si N2=4, je voudrais insérer 4 lignes sous ma ligne 2. Si N3=6, je voudrais insérer 6 lignes sous ma ligne 3.

J'ai trouvé une macro utile sur ce sujet : https://forum.excel-pratique.com/viewtopic.php?t=92424

Mais je n'arrive à insérer des lignes qu'en entrant et en validant une nouvelle valeur dans la colonne N.

Or la colonne N est déjà complétée et il faudrait partir des valeurs qui sont déjà précisée.

Par avance, merci beaucoup pour votre aide

Bonjour,

Une piste :

Sub Test()

    Dim Lig As Long
    Dim I As Long

    Application.ScreenUpdating = False

    With ActiveSheet: Lig = .Cells(.Rows.Count, 14).End(xlUp).Row: End With

    For I = Lig To 2 Step -1

        Rows(Cells(I + 1, 14).Row & ":" & Cells(I + Cells(I, 14).Value, 14).Row).Insert

    Next I

    Application.ScreenUpdating = True

End Sub

Merci beaucoup, c'est tout à fait ça !

Content de t'avoir aidé

Rechercher des sujets similaires à "insertion automatique lignes fonction variable"