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

Voici une instruc­tion qui peut être très utile.

Par exem­ple, vous voulez créer une série de bou­tons pour sélec­tion­ner des semaines, mais sans écrire 7 procé­dures pour chaque semaine. Vous pou­vez donc pour cela utilis­er le code
Application.Caller
qui va récupér­er le nom du bou­ton qui a été util­isé pour appel­er (to call) la procédure.

Cliquez ici pour télécharg­er le fichier

Et donc en vidéo :

A bien­tô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 Pre­miereLet­tre()
    let­tre­bou­ton = Application.Caller
    ligne_commence (let­tre­bou­ton)
    End Sub
    ————————————————–
    Sub ligne_commence(premiere As String)
    Dim Lig As Integer
    Dim mot As String
    Dim let­tre As String

    For Lig = 2 To 500
    let­tre = Left(Cells(Lig, 1).Value, 1)
    If let­tre = pre­miere 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 *

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