position boutons macros

[gilm]

Bonjour,

Je fais encore appel à vos compétences pour un petit souci.

Sur une feuille Excel, J'ai une liste de noms dans la colonne A et en bout de liste 2 boutons macro "Ajouter un nom" et "Trier par ordre croissant".
Je désirerai que lorsque je clique sur "Ajouter un nom", la macro s'exécute que si la dernière cellule de la liste est remplie autrement dit qu'il n'y ait pas de nouvelle ligne créée si la dernière cellule n'est pas remplie (de façon à éviter d'avoir des cellules vides entre la fin de liste et les 2 boutons).

Je ne sais pas si je suis très clair.

Ci-joint fichier en exemple
Merci beaucoup pour vos conseils
Bonne journée.

 

[pierrejean]

Re : position boutons macros

Bonjour gilm

A tester:

Sub AllerFinNoms()
Sheets("beneficiaire").Select
ActiveSheet.Unprotect


    DerCell = Range("A1").End(xlDown).Address
    Range("A65536").End(xlUp).Offset(0, 0).Select
    Selection.Offset(1, 0).Activate
    If Selection.Borders(xlEdgeBottom).LineStyle <> xlContinuous Then
      Call InsertARowNoms
    End If
End Sub

 

[gilm]

Re : position boutons macros

Merci beaucoup pierrejean, ça marche très bien.

Bonne journée.