Discussion :

[lolonico]

Bonjour à tous,

J'ai un userform avec 5 CommandButtons. Lorsque l'on clique sur l'un des 5, une macro et un message apparaît lorsqu'elle se termine.
Je voudrais une fois que la macro est terminée que la couleur de fond de mon CommandButton passe au rouge.
Comment puis je faire ?

Merci.

Ps : Voici le bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
'Executer la macro de mise à jour du Tarif 1
Call Module2.MiseajourT1
MsgBox " Mise à jour du Tarif 1 terminé"
End Sub

[JackOuYA]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
'Executer la macro de mise à jour du Tarif 1
     Call Module2.MiseajourT1
     CommandButton1.BackColor = vbRed
 End Sub

[lolonico]

Merci beaucoup.

En fait l'erreur que je faisais était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
'Executer la macro de mise à jour du Tarif 1
     Call Module2.MiseajourT1
     CommandButton1.BackColor = 10
 End Sub

ça marche.

[zazaraignée]

Normal... 10 c'est proche de zéro (noir).

Les couleurs en VB sont des entiers longs. On les exprime souvent en hexadécimal. On peut aussi utiliser les noms de constantes de couleurs ou la fonction RGB.

Exemples

1. Avec des valeurs entières numériques

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Command1.Background = 0          ' noir
Command2.Background = 16777215   ' blanc
Command3.Background = 255       ' rouge
Command4.Background = 65280     ' vert
Command5.Background = 16711680  ' bleu

2. Avec des valeurs entières en hexadécimal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Command1.Background = &H0       ' noir
Command2.Background = &HFFFFFF  ' blanc
Command3.Background = &HFF      ' rouge
Command4.Background = &HFF00    ' vert
Command5.Background = &HFF0000  ' bleu

3. Avec des constantes nommées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Command1.Background = vbBlack  ' noir
Command2.Background = vbWhite  ' blanc
Command3.Background = vbRed     ' rouge
Command4.Background = vbGreen  ' vert
Command5.Background = vbBlue    ' bleu

4 Avec la fonction RGB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Command1.Background = RGB(0, 0, 0)        ' noir
Command2.Background = RGB(255, 255, 255)  ' blanc
Command3.Background = RGB(255, 0, 0)      ' rouge
Command4.Background = RGB(0, 255, 0)      ' vert
Command5.Background = RGB(0, 0, 255)      ' bleu

[Nico451]

Comment fait-on pour revenir à une couleur "classique" de backcolor?

[unparia]

Bonjour
tu vas dans la fenêtre de ses propriétés. Tu y spécifies la couleur de ton choix (dans l'un des deux onglets).
Et si tu veux l'attribuer dynamiquement, tu en copies la valeur et l'attribues dans ton code à la propriété backcolor.