changer la couleur d'un bouton

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Décembre 2008

• #2

Re : changer la couleur d'un bouton

Bonjour Natorp, bonjour le foum,

En pièce jointe ton fichier modifié.

 

Pièces jointes

• natorp_v01.xls

  77.5 KB · Affichages: 152

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Décembre 2008

• #3

Re : changer la couleur d'un bouton

bonjour natorp

vois si cela te convient

Edit: Salut Robert

 

Pièces jointes

• natorp_test2.zip

  30.2 KB · Affichages: 114
• natorp_test2.zip

  30.2 KB · Affichages: 117
• natorp_test2.zip

  30.2 KB · Affichages: 130

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 1 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Décembre 2008

• #5

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

Code:

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

et noter la valeur (décimale)

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 1 Décembre 2008

• #6

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 1 Décembre 2008

• #7

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

 

Vote positif 0 Vote négatif

3

3Ziwez85

XLDnaute Nouveau

• 13 Juillet 2009

• #8

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

 

Pièces jointes

• OP Publicé&Privé test2.zip

  41.9 KB · Affichages: 70

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Juillet 2009

• #9

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif