Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Très possible. Il faut savoir à partir de quelle cellule on fait l'insertion. A partir de la cellule active :
Sub test() Dim Ctr Do While Ctr = 0 Ctr = InputBox("Entrez le nombre de lignes à insérer") If Ctr = "" Then Exit Sub If IsNumeric(Ctr) And Ctr > 0 Then ActiveCell.Resize(Ctr, 1).EntireRow.Insert Else Ctr = 0 End If Loop End Sub
Cordialement. Daniel "Ceno" a écrit dans le message de news:
Bonjour à tous,
Je voudrais une macro qui me permettrais de rajouter un nombre de ligne que j'indiquerais dans une boite de dialogue. Est-ce possible ?
D'avance merci.
Bonjour.
Très possible. Il faut savoir à partir de quelle cellule on fait
l'insertion. A partir de la cellule active :
Sub test()
Dim Ctr
Do While Ctr = 0
Ctr = InputBox("Entrez le nombre de lignes à insérer")
If Ctr = "" Then Exit Sub
If IsNumeric(Ctr) And Ctr > 0 Then
ActiveCell.Resize(Ctr, 1).EntireRow.Insert
Else
Ctr = 0
End If
Loop
End Sub
Cordialement.
Daniel
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
1175248556.331677.226880@e65g2000hsc.googlegroups.com...
Bonjour à tous,
Je voudrais une macro qui me permettrais de rajouter un nombre de
ligne que j'indiquerais dans une boite de dialogue.
Est-ce possible ?
Bonjour. Très possible. Il faut savoir à partir de quelle cellule on fait l'insertion. A partir de la cellule active :
Sub test() Dim Ctr Do While Ctr = 0 Ctr = InputBox("Entrez le nombre de lignes à insérer") If Ctr = "" Then Exit Sub If IsNumeric(Ctr) And Ctr > 0 Then ActiveCell.Resize(Ctr, 1).EntireRow.Insert Else Ctr = 0 End If Loop End Sub
Cordialement. Daniel "Ceno" a écrit dans le message de news:
Bonjour à tous,
Je voudrais une macro qui me permettrais de rajouter un nombre de ligne que j'indiquerais dans une boite de dialogue. Est-ce possible ?