Discussion :

[bernard_metz]

Bonjour,

Je souhaite affecter, depuis le code, un événement à un CommandButton.

Quelqu'un peut il m'aider?

merci d'avance

Jai essayé cela:

dans un module de classe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public WithEvents GroupeDate As MSForms.CommandButton
 
Private Sub GroupeDate_Enter()
   formulaire.EvenementBoutonDate GroupeDate
End Sub

puis dans le formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim BtnDate() As New Classe1
 
Sub EvenementBoutonDate(Bouton As MSForms.CommandButton)
    If Bouton = "" Then Me.Bouton = Format(Date)
End Sub
 
Private Sub formulaire_initialize()
    i = i + 1
    ReDim Preserve BtnDate(1 To i)
    Set BtnDate(i).GroupeDate = date_Ot_PA
end sub

date_Ot_PA étant le nom du contrôle