Modifs macro pour Insérer ligne à la fin du tableau

Re bonjour le forum

Quels modifs macro pour faire ajouter une ligne à la fin du tableau, vierge et de même hauteur

5toto.xls (46.50 Ko)

Bonjour

Essayez ceci

Sub test()
Dim dlg As Integer

dlg = Range("A" & Rows.Count).End(xlUp).Row
With Range("A" & dlg & ":C" & dlg)
    .Copy
    .PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
End Sub

Cordialement

Re Dan

Non ça ne fait rien ou alors mauvaise manœuvre de ma part.

Il faut sélectionner la ligne ou ça la met directement à la dernière?

3toto.zip (18.14 Ko)

Bonjour à tous

Quelques modifs mais ça fonctionne

Bien cordialement à tous

Bonjour

Non ça ne fait rien ou alors mauvaise manœuvre de ma part.
Il faut sélectionner la ligne ou ça la met directement à la dernière?

Quand vous dites cela ne fait rien, c'est à dire ?
Vous vouliez ajouter une ligne à la fin du tableau. Le code n'insère pas une ligne mais met le bon format sur la ligne suivante à la dernière ligne.
Ce que vous vouliez c'est insérer une ligne avant la dernière ?

Si oui, voici le code

Sub test()
Dim dlg As Integer

dlg = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & dlg & ":C" & dlg).Insert
End Sub

Bonjour Dan

On ne sait pas compris pour l'autre code

Celui-ci fonctionne

Merci à toi pour ton abnégation car il faut en avoir avec moi!!!

Ah! ces nonagénaires

Bonne journée

Bien cordialement

Rechercher des sujets similaires à "modifs macro inserer ligne fin tableau"