Variabiliser nom et contenu d'une macro

[dionys0s]

Bonjour le forum

j'ai un UserForm qui comporte 42 boutons (commandbuttons) dont le .Name est D1 ; D2 ; D3 ; ... D42, et qui comportent tous la presque même macro :

Private Sub D1_Click()

Unload Me

Liberer_Feuille

If Usf_03_Calendar.Caption = "Date de livraison :" Then
    Range("C60") = D1.ControlTipText
ElseIf Usf_03_Calendar.Caption = "Date de début :" Then
    Range("C59") = D1.ControlTipText
    Usf_03_Calendar.Show
ElseIf Usf_03_Calendar.Caption = "Date de fin :" Then
    Range("C61") = D1.ControlTipText
End If

Proteger_Feuille
    
End Sub

Je me demandais s'il était possible de ne pas écrire et modifier cette macro 42 fois, puisqu'en dehors du nom du bouton, elle est identique pour les 42 boutons...

D'avance merci pour votre aide

 

[jp14]

Re : Variabiliser nom et contenu d'une macro

Bonjour

En utilisant les modules de classes on peut simplifier le code

https://www.excel-downloads.com/threads/checkbox.166213/


JP

 

[dionys0s]

Re : Variabiliser nom et contenu d'une macro

Bonjour le forum

Merci jp14 pour le lien.
Je vais regarder ça.

Si d'aventure certains ont d'autres pistes je regarderai

dionys0s