XL 2019 Ajout de ligne dans une feuille grâce à une macro

[Dominique-evrard]

Bonjour à tous et à toutes, Pouvez vous m'aider à ajouter un nombre de ligne spécifique dans une feuille à travers une Inputbox ?
je m'explique, j'aimerai que, lorsque l'utilisateur clique sur le bouton, une inputbox apparaisse pour lui demander combien de ligne veut-il, et c'est le nombre saisi qui sera ajouté

 

[job75]

Bonjour Dominique-evrard,

Sub a()
Dim n
n = Int(Val(InputBox("Nombre de lignes :")))
If n > 0 Then ActiveCell.EntireRow.Resize(n).Insert
End Sub

A+

 

[Dominique-evrard]

Bonjour Dominique-evrard,

Sub a()
Dim n
n = Int(Val(InputBox("Nombre de lignes :")))
If n > 0 Then ActiveCell.EntireRow.Resize(n).Insert
End Sub

A+

Merci @job75 pour ta participation, mais dit moi, tu n'as pas donné de suite à ta Dim, du style Dim n as...
Est ce normale ?

 

[job75]

Rien d'anormal, Dim n c'est la même chose que Dim n As Variant.

 

[Dominique-evrard]

Dim n c'est la même chose que Dim n As Variant.

Ah okay