Insérer une ligne au-dessous automatiquement

Messages postés
1
Date d'inscription
samedi 3 août 2019
Statut
Membre
Dernière intervention
3 août 2019
-
bonjour
je suis débutent sur excel :oops:
j'ai trouvais un macro pour insérer une ligne mais le problème je dois toujours sélectionner la dernière ligne et en plus il m'insérer la ligne au dessus.

Sub Bouton4_Cliquer()
With ActiveCell
        xLig = .Row
        .EntireRow.Insert Shift:=xlDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        Application.CutCopyMode = False
    End With
    Range("DA" & xLig) = "SURGESTION"
End Sub



Comment adapter se macro pour insérer une ligne au-dessous de la dernier ligne son la sélectionner.?
Es ce que je peut avoir se macro son buttons, par exemple une fois écrire une ligne l'autre s'insérer automatiquement.?
merci
Afficher la suite 

1 réponse

Messages postés
14656
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 août 2019
1162
0
Merci
Bonjour,
Pourquoi inserer une ligne apres la derniere ligne?
Vu qu'apres cette ligne c'est tout vide !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Suffit simplement de copier les formules sur la ligne apres la derniere........................................
Commenter la réponse de f894009