Petit voyant rouge ou vert dans userform

[perpitou]

Bonjour,
Je crée une check list avec des CheckBox et je souhaiterai mettre juste un marqueur à coté des cases à cocher (petit voyant rouge si non coché ou vert si coché).

Est ce possible et de quelle manière?

Merci d'avance

[ZebreLoup]

Tu peux mettre des labels vides dont tu changes la couleur de fond. Il y en a beaucoup ?

[patricktoulon]

bonjour

ou tout simplement mettre le text du checkbox en couleur quand il est checké
ou noir quand il est déchecké

Code :

1
2
3
4
5
6
7
8
 
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox1.ForeColor = vbRed
Else
CheckBox1.ForeColor = vbBlack
End If
End Sub

au plaisir

[perpitou]

Merci beaucoup patrick toulon,

je suis allez un petit peu plus loin car je me suis dit que que j'allais mettre 2 checkbox une pour complet l'autre pour imcomplet du style (attention les yeux je suis débutant )

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CheckBox1_Click() 
If CheckBox1.Value = True Then 
CheckBox1.BackColor = vbGreen 
CheckBox1.Caption = "Complet" 
Else 
CheckBox1.BackColor = vbWhite 
CheckBox1.Caption = "Complet" 
End If 
 
End Sub 
 
 
Private Sub CheckBox7_Click() 
If CheckBox7.Value = True Then 
CheckBox7.BackColor = vbRed 
CheckBox7.Caption = "Incomplet" 
Else 
CheckBox7.BackColor = vbWhite 
CheckBox7.Caption = "Incomplet" 
End If 
If CheckBox1.Value = True And CheckBox7.Value = True Then 
MsgBox "Veuillez ne choisir qu'une seule case!", vbExclamation + vbOKOnly, Title = "ATTENTION!" 
Else 
End If 
 
End Sub

Bon voila ce que j'ai fait c'est pas beau mais au moins je l'ai fait tout seul .
J'ai une autre question comment puis je faire pour enregistrer les changements si j'ai coché ou pas. Ainsi lorsque je réutilise le fichier je peux voir les modifications??

Penses tu que je peux le réutiliser dans une autre userform??
du style:

Code :

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
If UserForm2.CheckBox1.Value = True Then
TextBox1.BackColor = vbGreen
TextBox1.Caption = "Complet"
Else: UserForm2.CheckBox7.Value = True
TextBox1.BackColor = vbRed
TextBox1.Caption = "A COMPLETER"
End If
End Sub

Je ne sais pas mais je tente

Merci d'avance à totues les personnes qui s'intéresse à ça.

[ZebreLoup]

Déjà, tu peux utiliser des OptionButton à la place des CheckBox. Tu as ensuite une propriété GroupName qui fait qu'un seul des élements ayant le même GroupName peut-être coché à la fois. Ce qui t'évite la vérification "Une seule case doit être cochée".

Pour la sauvegarde, il te suffit de stocker quelque part sur une feuille quel bouton est coché et de le recocher à l'ouverture de la feuille.