Obliger l'utilisateur a entrer du texte apres case a cocher ?

[taz61]

Bonjour,

Ayant perdu toutes mes notions de VBA (), je cherche un moyen d'obliger l'utilisateur d'un formulaire a entrer du texte après avoir cocher une de mes case.

J’explique : J'ai un formulaire avec 10 cases à cocher. Les 9 premières cases, le texte est préinscrit. Pour la 10eme, qui s'appelle "Autre Cas", je veux que l'utilisateur puisse rajouter un commentaire après ce texte.

Je pense qu'il faut une macro "A la sortie" (dans les propriétés) de la case à cocher mais voila, je n'en sais pas plus. Si !! Je pense qu'il faut activer la zone de texte si "caseacocher10=Vrai" mais voila, je n’avance pas beaucoup avec ca. Je ne sais pas s'il faut déclarer des variables et des machins au début de ma macro. Comme je le dis au début, j'ai pas fais une macro depuis..... des lustres.

Voila, si quelqu'un peu m'aider ?

Merci d'avance

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CheckBox1_AfterUpdate()
 
Me.TextBox1.SetFocus
 
 
End Sub
 
Private Sub CommandButton1_Click()
 
If Me.TextBox1.Value = "" Then
MsgBox "Veuillez entrer du texte"
Me.TextBox1.SetFocus
Exit Sub
Else
 
UserForm1.Hide
 
End If
 
 
End Sub

En gros, ce code est à modifier.
Si mon textBox est vide, je reçois un message m'invitant à compléter le textbox et le focus est donné sur le textbox.