A jouter ligne dans un fichier


#1

Suite du sujet Inserer des lignes au milieu d'un fichier :

Bonjour

Il est souhaitable de mettre sous forme de tableau
Utiliser la macro suivante

Sub AjoutLigneDessus()
If ActiveCell.ListObject Is Nothing Then Exit Sub
Selection.ListObject.ListRows.Add (ActiveCell.Row - 1)
End Sub

Sub DemandeNbLigne()
Dim nb$ '$ = As String
nb = InputBox(“Combien de lignes voulez-vous?”)
If nb = vbNullString Then Exit Sub
Do While nb > 0
AjoutLigneDessus
nb = nb - 1
Loop
End Sub

Vous vous positionnez sur une cellule dans le tableau et utiliser le bouton macro

Bien cordialement

orguyrine

Voici le fichier modifier
Copie de Essai 7.xlsm (24,4 Ko)