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
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
----------------------------------