XL 2019 Macro qui execute un double click

[pat66]

Bonjour le forum,

Voila j'ai un bouton avec les macros suivantes sur la feuil1
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(0, 176, 80)
CommandButton1.ForeColor = RGB(255, 255, 255)
Range("D12") = "A"
End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.BackColor = RGB(19, 31, 57)
CommandButton1.ForeColor = RGB(255, 192, 0)
Range("D12") = "B"
End Sub

est t'il possible qu'à l'activation de la feuil1, le double click s'excute automatiquement, l'objectif étant que le bouton se réinitialise a l'activation de la feuil1, ce que fait le Sub CommandButton1_DblClick

je précise que si certaines conditions ne sont pas remplies, le CommandButton1 n'est pas visible sur la feuil

merci

 

[sylvanu]

Bonjour Pat,
Dans la feuille concernée vous mettez :

Sub Worksheet_Activate()               
         CommandButton1_DblClick             
End Sub

Cette macro sera exécutée lorsque la feuille sera sélectionnée.

 

[pat66]

Bonjour Sylvanu

c'est tellement simple que j'ai honte
un grand merci

bon we