Problème macro insérer ligne

pierrejean

XLDnaute Barbatruc

• 30 Septembre 2010

• #2

Re : Problème macro insérer ligne

Bonjour Arcangeli

Teste comme ceci

 

Pièces jointes

• Insérer lignes.zip

  10.9 KB · Affichages: 39

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 30 Septembre 2010

• #3

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é

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Septembre 2010

• #4

Re : Problème macro insérer ligne

Bonjour Archangeli, salut pierrejean, Bernard,

En retard, avec cette macro :

Code:

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+

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 30 Septembre 2010

• #5

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

 

Vote positif 0 Vote négatif