XL 2019 Réinitialiser commandbutton

[pat66]

Bonjour Le forum,

j'ai un Commandbutton avec double clic
Au clic il se colore en rouge et écrit A en ("AE108") dans une cellule
au double clic il se colore en gris et écrit B dans la même cellule

Je souhaiterai qu'à la sauvegarde ou à l'ouverture du classeur, ce Commandbutton se réinitialise en gris et écrivre B ("AE108", idem double clic)
Pour simuler le double clic, j'ai essayé dans Open ou dans BeforeSave d'écrire la commande suivante, mais rien ne se passe
Call Worksheets("feuil1").CommandButton2_DblClick
Call Worksheets("feuil1").CommandButton2_DblClick. click

pensez vous que cela soit possible ?

merci d'avance pour votre aide

Pat66

 

[Dudu2]

Bonjour,
Non ça ne marchera pas. Il faut passer par un module public.

En Feuil1:

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Call CommandButton1DblClick
End Sub

En Module:

Sub CommandButton1DblClick()
    ActiveWorkbook.Worksheets("Feuil1").[AE108].Value = "B"
End Sub

En Workook:

Private Sub Workbook_Open()
    Call CommandButton1DblClick
End Sub

 

[Phil69970]

Bonjour Pat66, le forum

Voici un fichier qui correspond à ta demande

@Phil69970

 

[pat66]

Bonsoir Dudu2, Bonsoir Phil69970
un grand merci pour votre aide
Dans le cas présent , je vais opter pour la solution de Phil et changer mon bouton, je garde quand même la solution de Dudu2, on sait jamais

Belle soirée à vous deux

Pat66

​