Insertion d'une ligne à la ligne X

[sam94]

Bonjour,
J'aimerais à l'aide d'une macro, pouvoir insérer une ligne à un emplacement variable. Par exemple, si j'inscris dans la cellule D3 le nombre 5, une ligne s'insère à la ligne 5. Si le nombre est 9, une ligne s'insère à la ligne 9, etc.

J'ai recherché sur le forum, mais je n'ai trouvé aucune discussion sur le sujet.
Merci beaucoup!

Samuel

 

[DoubleZero]

Re : Insertion d'une ligne à la ligne X

Bonjour à toutes et à tous,

Bienvenue sur XLD, sam94.

Comme ceci ?

Option Explicit
Sub Ligne_insérer()
    Range("d3").Select
    If Not IsNumeric(Selection) Then Exit Sub
    Rows(Selection).Insert Shift:=xlDown
End Sub

A bientôt

 

[sam94]

Re : Insertion d'une ligne à la ligne X

Oui merci!