dionys0s
XLDnaute Impliqué
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 :
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
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 :
Code:
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
Dernière édition: