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)


fermé automatiquement #2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.