Bouton qui clignote

[pierrof]

Rebonjour
J'aimerai trouver un code qui me permettrai d'afficher et de faire clignoter un bouton
Dans mon exemple si une case de la colonne "heure" est renseignée j'aimerai faire apparaître le bouton et le faire clignoter.
Merci d'avance😉

 

[Catrice]

Re : Bouton qui clignote

Bonsoir,

Ci-joint un exemple à adapter.

 

[pierrof]

Re : Bouton qui clignote

Bonjour forum
Merci Catrice pour ton aide.😉

Pour finir ce post j'aimerai savoir si on peut changer la couleur d'un bouton.

Dans un premier temps on vu comment le faire clignoter.

Je voudrai maintenant savoir comment le faire passer d'une couleur a l'autre avec une tempo. par exemple de la couleur grise à la couleur rouge et vice versa.
Merci d'avance et encore merci Catrice

 

[Spitnolan08]

Re : Bouton qui clignote

Bonjour Pierrof, bonjour Catrice,

Je voudrai maintenant savoir comment le faire passer d'une couleur a l'autre avec une tempo. par exemple de la couleur grise à la couleur rouge et vice versa.

En adaptant le code de Catrice :

Sub cligno()
With Sheets("feuil1").CommandButton1
    If .Visible = True Then .Visible = False Else .Visible = True: n = n + 1
    If n Mod 2 = 0 Then .BackColor = &HFF& Else .BackColor = &H8000000F
End With
tempo
End Sub

Cordialement

Edit : petite modif pour que le clignotement soit régulier...

 

[pierrof]

Re : Bouton qui clignote

bonjour Spitnolan08
Ton code ne marche pas ou c'est moi qui l'ai mal adapter.
j' le mis à la place de sub cligno()...

 

[Spitnolan08]

Re : Bouton qui clignote

Re,

Oups, j'ai oublié un élément important : il faut déclarer en tête du module : Public n as integer.... Puis il faut tout simplement remplacer la sub Cligno par celle que j'ai posté.

Cordialement

 

[pierrof]

Re : Bouton qui clignote

Je n'arrive toujours pas à le faire marcher😕 😕

 

[Spitnolan08]

Re : Bouton qui clignote

Re,

Plutôt qu'un long discours je t'envoie le fichier.

Cordialement

 

[pierrof]

Re : Bouton qui clignote

Merci pour tes explication

 

[Spitnolan08]

Re : Bouton qui clignote

re,

Merci pour tes explication😕😕

Ca marche ou pas ? 🙄
Cordialement

 

[pierrof]

Re : Bouton qui clignote

ça marche je dois encore l'adapter pour mon projet

 

[pierrof]

Re : Bouton qui clignote

Une question de plus ....
Je souhaite faire un bouton d'alerte pour mon projet

Je désire maintenant changer automatiquement la couleur de police (noir au rouge et vice versa) d'un bouton.
voir fichier ci joint
Merci d'avance😉

 

[pierrof]

Re : Bouton qui clignote

Personne pour m'aider...

 

[Spitnolan08]

Re : Bouton qui clignote

Re,

Combien pauvres sont ceux qui n'ont point de patience. (Othello, Shakespeare)

D'autant qu'avec ce que nous t'avons déjà posté avec Catrice, tu as tout ce qu'il faut pour te débrouiller.
En cherchant un tout, tout petit peu...

Cordialement

 

[Pyrof]

Re : Bouton qui clignote

Bonjour,

Simplement pour faire avancer le Schmil.....

pour basculer visible true false voici par formule sans if

.Visible = Abs(-.Visible - 1)

système qui peut s'appliquer à tous les booleens