A jouter ligne dans un fichier

VBA
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)

2

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