Insertion de lignes

Le
Ceno
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4262961
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"
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.
Ceno
Le #4262881
Excellent, exactement ce que je voulais.

Merci beaucoup Daniel.
Publicité
Poster une réponse
Anonyme