inserez plusieurs ligne selon une variable

[alpilon]

Bonsoir,
Je recherche un code VBA qui insert le nombre de ligne inscrit dans la colonne A sans m'éffacer une seule ligne

par exemple

colonne A

3
4


7

2

la macro doit m'inserrer 3 lignes sous le 3, puis 4 lignes sous le 4 puis 7 sous le 7, 2 sous le 2 etc...

la colonne A comporte plus de 173000 lignes

Merci à vous

Alpilon

 

[JNP]

Re : inserez plusieurs ligne selon une variable

Bonsoir Alpilon ,

End Sub
Sub test()
Dim I As Double, J As Integer
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
For J = 1 To Range("A" & I)
Rows(I + 1).Insert shift:=xlDown
Next J
Next I
End Sub

Bonne soirée

 

[alpilon]

Re : inserez plusieurs ligne selon une variable

merci JNP mais j'ai cela

Sub test()
Dim I As Double, J As Integer
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
For J = 1 To Range("A" & I)
Rows(I + 1).Insert shift:=xlDown
Next J
Next I
End Sub

Erreur d'éxécution 13
incompatibilité de type

For J = 1 To Range("A" & I) est surligné en jaune

 

[Victor21]

Re : inserez plusieurs ligne selon une variable

Bonjour alpilon.

Integer : nombre entier compris entre -32768 et 32767.
Si vous avez plus de 173000 lignes...

Cordialement,

 

[alpilon]

Re : inserez plusieurs ligne selon une variable

Ok merci, sinon j'ai trouvé ceci sur un autre forum
j'ai créer une colonne I et cela à fonctionné

Sub jj()
Application.ScreenUpdating = False
For Each c In [i7:i50]
If c.Offset(0, -8) <> "" And c <> "" Then
Rows(c.Row + 1 & ":" & c.Row + c).Insert
End If
Next
End Sub

Crédit à JJ

Merci à vous, bonne soirée.

 

[JNP]

Re : inserez plusieurs ligne selon une variable

Re ,

Erreur d'éxécution 13
incompatibilité de type

For J = 1 To Range("A" & I) est surligné en jaune

si tu as autre chose que des entiers en colonne A, effectivement, ça ne peux que beugguer ...
Bonne journée