changer la couleur d'un bouton

[natorp]

Bjr à tous et toutes

J'aimerais que s'affiche un bouton de couleur différentes si mes notes de tables sont commencées....
Il me faut peut-être avoir une autre image à mettre avec une condition SI, mais je ne vois pas comment faire....

Merci, Gérard

 

[Robert]

Re : changer la couleur d'un bouton

Bonjour Natorp, bonjour le foum,

En pièce jointe ton fichier modifié.

 

[pierrejean]

Re : changer la couleur d'un bouton

bonjour natorp

vois si cela te convient

Edit: Salut Robert

 

[natorp]

Re : changer la couleur d'un bouton

merci à vous 2, je vais adopter la méthode de PierreJean, désolé pour Robert mais le fichier que tu as mis est vide de tout code... (fausse manip...)
Question, si je peux me permettre : où peut-on retrouver les valeurs de couleur mises dans "Worksheet_Change" et pourquoi le "-" ?
Gérard

 

[pierrejean]

Re : changer la couleur d'un bouton

Re

Pour avoir les valeurs a affecter a Backcolor :
Aller dans les propriétés du bouton, mettre la couleur voulue
Ensuite soit
1) adopter la méthode de Robert a savoir noter l'hexadecimal
2) creer la macro suivante

 sub essai
  msgbox(ActiveSheet.commandbutton1.backcolor)
 end sub

et noter la valeur (décimale)

 

[pascal21]

Re : changer la couleur d'un bouton

bonsoir natorp, robert, pierrejean
tines!!! ça ça m'interrese
j'ai dans des labels qui me servent de boutons (évennement click) auquels j'ai mis une image dessus (dessin de bouton) de couleur bleue
est-ce possible de lui faire prendre une autre couleur lors du click
je pensais créer un dessin de bouton identique mais de couleur différente (rouge par exemple)
quel serait le code qui permettrait de basculer sur cette autre couleur lors du click mais juste lors du click
pfffffffffffffff !!!!!!!!!! pas très clair ma prose
merci

 

[natorp]

Re : changer la couleur d'un bouton

merci pour ces renseignements, j'ai une petite remarque, je voudrais que les cellules qui viennent alimenter les combobox gardent les cellules vides pour maîtriser les petites différences de choix...... voir les cellules A9 et D4 de la feuil2

cordialement, Gérard

 

[3Ziwez85]

Re : changer la couleur d'un bouton

Bonjour le forum,
Je suis nouveau sur le forum, et j'aimerais bien profiter de vos connaisances pour m'aider à regler un petit probléme.

Voila, j'ai un code que j'essai d'adapter sur deux boutons de façon a changer la couleur d'un bouton à la fois a chaque foois que je clique dessus.
Je m'explique: Quand l'utilisateur clique sur 1 bouton, il se met en rouge et l'autre reste inchangé, et vis versa, quand on clique sur l'autre il change de couleur et l'autre bouton revien a sa couleur d'origine.

Merci d'avance
3ziwez

 

[Brigitte]

Re : changer la couleur d'un bouton

Bonjour,

A tout hasard, une macro que m'a concoctée Gael (d'ici) pour faire changer la couleur de la police d'un bouton de macro à chaque fois qu'on clique :

Sub GFI()
Application.ScreenUpdating = False
Sheets("GFI").Visible = Not Sheets("GFI").Visible
ActiveSheet.Shapes("Button 5752").Select
If Sheets("GFI").Visible Then
Selection.Characters.Text = "GFI Non"
Selection.Characters.Font.ColorIndex = 3
Range("G1").Select
Sheets("GFI").Select
Else
Selection.Characters.Text = "GFI OK"
Selection.Characters.Font.ColorIndex = 5
Sheets("ARCHIVES - Historique").Range("G1").Select
End If
Application.ScreenUpdating = True
End Sub

Le texte du bouton est bleu quand la feuille n'est pas active (au premier clic donc)
Le texte devient rouge, quand on a cliqué et donc activé la feuille.
On reclique, il redevient bleu.