XL 2019 Réinitialiser commandbutton

pat66 · 26 Janvier 2021

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

Phil69970 · 26 Janvier 2021

Bonjour Pat66, le forum

Voici un fichier qui correspond à ta demande

@Phil69970

Dudu2 · 26 Janvier 2021

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

En Feuil1:

VB:

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

En Module:

Code:

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

En Workook:

Code:

Private Sub Workbook_Open()
    Call CommandButton1DblClick
End Sub

Phil69970 · 26 Janvier 2021

Bonjour Pat66, le forum

Voici un fichier qui correspond à ta demande

@Phil69970

pat66 · 26 Janvier 2021

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

XL 2019 Réinitialiser commandbutton

pat66

XLDnaute Impliqué

Phil69970

Dudu2

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires

XL 2019 Réinitialiser commandbutton

pat66

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

​

Discussions similaires