insertion ligne(s)

[michael]

bonjour

voici mon probleme
dans la colonne A j'ai des chiffres et je voudrais inserer le nombre de lignes qui correspondent a la valeur N-1 du nombre

A1=2;A2=1;A3=4 etc
donc j'insere 1 ligne apres A1 etc..

en VBA si possible, merci d'avance

 

[porcinet82]

Salut Mickael,

Je profite d'avoir fini la rédaction de mon rapport de stage pour essayer de rendre service à quelqu'un. Donc voici un code qui à l'air de fonctionner:

Sub test()
Dim i As Integer, k As Integer, nb As Variant

nb = Range('A65536').End(xlUp).Row
For i = nb To 1 Step -1
    For k = i To i + Cells(i, 1).Value - 1
        Rows(i + 1).Insert Shift:=xlDown
    Next k
    nb = Range('A65536').End(xlUp).Row
Next i
End Sub

@+

 

[michael]

bonsoir porcinet82

merci pour ta reponse mais il y a un probleme j'aimerai que la macro fonctionne comme suit : quand tu as 1 dans la cellule tu n'inseres pas de ligne, quand tu as 2 tu inseres 1 lignes etc...
alors que la macro que tu as fait ne fait le N-1
1 insere 1 ligne, 2--2lignes etc..
encore merci pour ton aide

 

[michael]

re-bonsoir

j'ai fait une toute petite modif au code et ça fonctionne

 Sub test()
Dim i As Integer, k As Integer, nb As Variant

nb = Range('A65536').End(xlUp).Row
For i = nb To 1 Step -1
    For k = i To i + Cells(i, 1).Value - 2
        Rows(k + 1).Insert Shift:=xlDown
    Next k
    nb = Range('A65536').End(xlUp).Row
Next i
End Sub

comme tu peux le voir j'ai passeé le value à -2 et cela fonctionne

encore merci pour ton aide

slts

 

[porcinet82]

Salut Mickael,

Oups j'ai encore mal lu. :sick:
Tant mieux si ca fonctionne et que tu as trouvé quoi modifier.

@+