Décaler lignes en fonction valeur de cellule

[TOINE38]

Bonjour et bon 1er Mai à tous

Après recherché dans le forum je n'ai pas trouvé de réponse à mon problème.
J'ai un tableau avec plusieurs ligne les unes a la suite des autres.
Je souhaiterais en fonction de la valeur d'une cellule de la première ligne, insérer autant de ligne vide que la valeur de la cellule moins 1 et ainsi de suite pour chaque ligne.
Je conçoit que ce n'est pas très clair mais avec le fichier exemple, cela doit être plus facile a comprendre.

merci pour toute aide.

Amicalement

Toine38

 

[st007]

Re : Décaler lignes en fonction valeur de cellule

Bonjour,
Essaye avec

Sub Ajout_ligne()
Dim a As Long, b As Long
Application.ScreenUpdating = False
For a = [G65536].End(xlUp).Row To 6 Step -1
If Cells(a, "G") > 0 Then
For b = 1 To Cells(a, "G").Value - 1 Step 1
Rows(a + 1).Insert Shift:=xlDown
Next b
End If
Next a
Application.ScreenUpdating = True
End Sub

edit pour citer la source
Inspiration de là :
https://www.excel-downloads.com/threads/vba-ajouter-x-lignes-sous-chaque-lieu.125717/

 

[TOINE38]

Re : Décaler lignes en fonction valeur de cellule

Bonjour ST007

Super cela fonctionne a merveille.

Merci mille fois

amicalement

Toine38