Créer un compteur

Magic_Doctor

XLDnaute Barbatruc

• 22 Juin 2009

• #16

Re : Créer un compteur

C'est curieux, il me semble que chez moi ça fonctionne.
compt = 1 ---> RGB(0, 255, 0) = Vert prairie
compt = 2 ---> RGB(140, 243, 248) = Bleu ciel
compt = 3 ---> RGB(251, 251, 137) = Jaune d'or
compt = 4 ---> RGB(252, 66, 66) = Rouge vermillon

Le bouton change bien à chaque fois de couleur...

Mais, ¡Caramba! tu me laisses un doute...

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Juin 2009

• #17

Re : Créer un compteur

Bonjour à tous

Ce ne serait pas quelque chose comme ça, par hasard ?

Code:

                ActiveSheet.Shapes("BoutonColonnes").Fill.ForeColor.RGB = RGB(0, 255, 0)

ROGER2327

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 22 Juin 2009

• #18

Re : Créer un compteur

Bonjour Roger,

Dans le doute j'ai donc remplacé :
ActiveSheet.Shapes("BoutonColonnes").Select
Selection.Interior.Color = RGB(0, 255, 0)

par votre solution qui marche elle aussi parfaitement bien (du moins sur mon PC), et conserverai la vôtre qui est peut-être plus orthodoxe (VBA me dépassant très souvent...) :
ActiveSheet.Shapes("BoutonColonnes").Fill.ForeColor.RGB = RGB(0, 255, 0)

Très bonne fin d'après-midi

 

Pièces jointes

• Exemple4.xls

  41 KB · Affichages: 76
• Exemple4.xls

  41 KB · Affichages: 67
• Exemple4.xls

  41 KB · Affichages: 70

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juin 2009

• #19

Re : Créer un compteur

Re, salut Roger,

La solution de Roger marche parfaitement chez moi aussi.

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 22 Juin 2009

• #20

Re : Créer un compteur

Donc 2 problèmes réglés sur le même fil.
C'est pas beau ça !!

Merci encore à vous tous.

 

Vote positif 0 Vote négatif