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

Dominique-evrard · 22 Février 2023

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 · 22 Février 2023

Bonjour Dominique-evrard,

VB:

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 · 22 Février 2023

job75 à dit:
Bonjour Dominique-evrard,

VB:

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 · 22 Février 2023

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

Dominique-evrard · 22 Février 2023

job75 à dit:
Dim n c'est la même chose que Dim n As Variant.

Ah okay

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

Dominique-evrard

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Dominique-evrard

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Dominique-evrard

XLDnaute Nouveau

Discussions similaires