Clic sur commandbutton changement de couleur

[nicroq]

Bonjour le forum,

je souhaiterai savoir si il est possible qu'un commandbutton change de couleur pendant une durée definie (5 seconde par exemple) quand on clique dessus?

en vous remerciant pour votre aide

cdlt

 

[Compte Supprimé 979]

Re : Clic sur commandbutton changement de couleur

Bonjour nicroq

Voici une possibilité

A+

 

[nicroq]

Re : Clic sur commandbutton changement de couleur

merci bruno!!
j'ai oublié de preciser que mon commandbutton ne se trouve pas dans un userform....

 

[Compte Supprimé 979]

Re : Clic sur commandbutton changement de couleur

Re,

Punition... à toi d’adapter

 

[nicroq]

Re : Clic sur commandbutton changement de couleur

merci BrunoM45!! mais je suis novice et j ai essayé plusieurs solutions et je n arrive vraiment pas a faire le code sur un commandbutton en dehord du userform...

pourriez vous m aider?

cdlt

 

[laetitia90]

Re : Clic sur commandbutton changement de couleur

bonjour tous
un exemple basique

 Private Sub CommandButton1_Click()
 CommandButton1.BackColor = &HFF&
 p = 5 'temps en secondes
 s = Timer: Do While Timer < s + p: DoEvents: Loop
 CommandButton1.BackColor = &HE0E0E0
End Sub

 

[nicroq]

Re : Clic sur commandbutton changement de couleur

Merci bcq laetitia!!

par contre comment je dois definir "p" ? je mets quoi comme variable?
merci pour ton aide

 

[laetitia90]

Re : Clic sur commandbutton changement de couleur

re tous
s en long & p en byte dans la mesure ou le temps < a 256 secondes