Application.Caller pour récupérer le nom du bouton

Voici une instruction qui peut être très utile.

Par exemple, vous voulez créer une série de boutons pour sélectionner des semaines, mais sans écrire 7 procédures pour chaque semaine. Vous pouvez donc pour cela utiliser le code
Application.Caller
qui va récupérer le nom du bouton qui a été utilisé pour appeler (to call) la procédure.

Cliquez ici pour télécharger le fichier

Et donc en vidéo :

A bientôt.

Gaëtan Mourmant

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !
Pour marque-pages : permalien.

Une réaction à Application.Caller pour récupérer le nom du bouton

  1. Fontaine Christian a écrit:

    Sub PremiereLettre()
    lettrebouton = Application.Caller
    ligne_commence (lettrebouton)
    End Sub
    ————————————————–
    Sub ligne_commence(premiere As String)
    Dim Lig As Integer
    Dim mot As String
    Dim lettre As String

    For Lig = 2 To 500
    lettre = Left(Cells(Lig, 1).Value, 1)
    If lettre = premiere Then Exit For
    Next Lig

    If Lig < 500 Then Cells(Lig, 1).Select

    End Sub
    ———————————-

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *