Faire clignoter un bouton commande sur userform

bonjour à tous

Je voudrais faire clignoter un bouton commande sur mon formulaire une fois lancé.

merci et bonne journée.

Bonjour,

Un truc de ce genre?

demo rouge vert

Pierre

Comment faire ?

Re

Alors la méthode (tirée par les cheveux) utilisée ici :

* je crée un gif animé (nommé ici rouge_vert.gif) que je place dans le même dossier que le fichier excel

* dans l'Usf, j'ajoute un bouton ordinaire

* par dessus ce bouton, je place un WebBrowser (plus petit que le bouton)

* dans le code de l'Usf, à son ouverture le code :

Private Sub UserForm_Activate()
    Me.WebBrowser1.Navigate ThisWorkbook.Path & "\Rouge_vert.GIF"
End Sub

Résultat :

[+] j'ai bien un bouton qui clignote sur mon Usf

[-] mais il faut cliquer sur la périphérie du WebBrowser pour bien cliquer sur le bouton (très bof-bof ...)

(il n'existe pas d'évènement WebBrowser_Clic en standard)

En bref : ça fait moyennement le job mais peut être que qqun d'autre proposera une meilleure solution ...

Pierre

Bonjour KTM, Pierrep56,

Une modification au code apporté concernant le WebBrowser.Private Sub UserForm_Activate()

Private Sub UserForm_Activate()
Me.WebBrowser1.Navigate ThisWorkbook.Path & "\Rouge_vert.GIF"
End Sub

'Ci dessous le bouton de commande aura le focus dès le lancement du formulaire éxécuté.
Private Sub UserForm_Initialize()
'Bouton transparent puis prend le focus
Cmb1.BackStyle = fmBackStyleTransparent
Cmb1.SetFocus
End Sub

'L'évènement Enter du WebBrowser va basculer ce dernier en invisible
'Puis le bouton de commande prend le dessus et indique qu'il est cliqué
Private Sub WebBrowser1_Enter()
Me.WebBrowser1.Visible = False
'Le Bouton est actif et sa couleur d'origine de fond est verte donc restituée si le fond n'est plus transparent 
Cmb1.Caption = "OK"
Cmb1.BackStyle = fmBackStyleOpaque
'Ou toute autre action souhaitée
MsgBox "Action effectuée"
End Sub

Bonjour…

Tiré d’une de mes anciennes productions …

Remarque : la nature du contrôle peut changer et on peut très simplement jouer sur son fond (de teints) sans clignotement.

Rechercher des sujets similaires à "clignoter bouton commande userform"