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

Pour marque-pages : Permaliens.

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

  1. Fontaine Christian dit :

    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 e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.