Lignes automatiques

bonjour,

j'ai un problème que je n'arrive pas à résoudre je fait donc appel à des pros

j'ai un tableau avec des informations et en fin une colonne total je souhaiterais que des lignes vides soient créées ( vers le bas) en fonction de la valeur se trouvant dans cette cellule ( exemple : P3 = 5 donc 5 lignes vierges créées en dessous) et de même pour les suivantes si la cellule vide alors pas de création de ligne.

Merci de votre aide

Papitho

Bonjour,

Un test par VBA :

Sub INSER()
Dim L%
With Worksheets("A")
    For L = .Cells(.Rows.Count, 9).End(xlUp).Row To 3 Step -1
        .Range(.Cells(L + 1, 1), Cells(L + .Cells(L, 16), 1)).EntireRow.Insert xlDown
    Next L
End With
End Sub

Cdlt,

Super merci ça fonctionne parfaitement 👍mais j’ai oublié de demander si c’était possible que les lignes créées puissent être numérotées de 1 à … et reparte à 1 à chaque création et ça dans la colonne B

merci encore

Cordt

Bonjour,

L'intérêt de bien définir le besoin dès le début est essentiel pour ne pas avoir à reprendre le code. Un second test :

Sub INSER()
Dim L%, I%, J%
Application.ScreenUpdating = False
With Worksheets("A")
    For L = .Cells(.Rows.Count, 9).End(xlUp).Row To 3 Step -1
        .Range(.Cells(L + 1, 1), Cells(L + .Cells(L, 16), 1)).EntireRow.Insert xlDown
        J = 1
        For I = L + 1 To L + .Cells(L, 16) + 1
            .Cells(I - 1, 2) = J
            J = J + 1
        Next I
    Next L
End With
Application.ScreenUpdating = True
End Sub

Cdlt,

Merci c’est nickel !👌🏻