Problème macro insérer ligne

[Arcangeli]

Bonjour le forum,
Sur ce même forum, j'ai trouvé une macro pour insérer des lignes avec un TexBox, mais je n'arrive pas à comprendre pouquoi ça ne fonctionne pas...
J'ai mis un exemple en pièce jointe si vous avez une idée.
Déjà merci à celui qui voudra bien y jetter un oeil.

 

[pierrejean]

Re : Problème macro insérer ligne

Bonjour Arcangeli

Teste comme ceci

 

[CBernardT]

Re : Problème macro insérer ligne

Bonjour Arcangeli,


Essaye comme cela :

Sub InsertionDeLignes()
Dim I, NbLigne As Variant
NbLigne = InputBox("Combien voulez-vous insérer de ligne ?", "Nombre de lignes à inserer")
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I
End Sub

Edit : Bonjour Pierrejean, on s'est croisé

 

[job75]

Re : Problème macro insérer ligne

Bonjour Archangeli, salut pierrejean, Bernard,

En retard, avec cette macro :

Sub InsertionDeLignes()
Dim I, NbLigne As String
1 NbLigne = InputBox("Combien voulez-vous insérer de ligne ?", "Nombre de lignes à inserer")
If NbLigne = "" Then Exit Sub
If CInt(Val(NbLigne)) = 0 Then GoTo 1
For I = 1 To CInt(NbLigne)
ActiveCell.EntireRow.Insert
Next I
End Sub

A+

 

[Arcangeli]

Re : Problème macro insérer ligne

Merci les solutions proposées sont ok
Si ce forum n'existait pas bien des bidouilleurs comme moi seraient dans la m...
Meilleurs messages à tous