Macro insertions Lignes

[POWO]

Bonjour à tous,

Quelle belle journée pour se défouler sur VBA!!

Petite question:

Existe une manière sous vba pour insérer plusieurs lignes à la fois.
Exemple: X ma variable range("D1") = 7
Je souhaite donc que 7 lignes soient automatiquement insérer en dessous.

Je reste à votre disposition pour plus de renseignements

Merci d'avance pour vos lumières.

A+ Powo

 

[Softmama]

Re : Macro insertions Lignes

Bonjour,

A tester, mais avec une instruction du type :

Dim X as Range
set X= range("D1") 'A Adapter
X(2,1).Resize(X).entirerow.INsert

Ca devrait t'ajouter sous D1 (à adapter), le nbre de lignes qui sont indiquées dans D1

 

[POWO]

Re : Macro insertions Lignes

Merci Softmama pour ta réponse,

Mais jme rends compte que ma question était mal posée.
Je joins un fichier exemple.
Le but multiplier les lignes en fonction du nombre indiqué dans la colonne B.

Voilà j'espère que se sera plus simple comme ça.

Encore merci d'avance.

Cdlt

Powo

 

[Softmama]

Re : Macro insertions Lignes

Bonjour,

Alors peut-^étre un truc comme ça :

Sub Go()
Dim X As Range
Set X = Range("B65536").End(xlUp)
Do
    X(2, 1).Resize(X - 1).EntireRow.Insert
    X.Offset(0, -1).Resize(, 2).Copy Destination:=X.Offset(1, -1).Resize(X, 2)
    If X.Row = 1 Then Exit Do
    Set X = X(0, 1)
Loop
End Sub

cf.fichier joint

 

[POWO]

Re : Macro insertions Lignes

Merci beaucoup.

Nénamoins j'ai trouvé autre une solution un peu artisanale en terme de code mais qui marche.

A+