Discussion :

[BRUNO71]

Bonjour,

Mon problème :
Dans un UserForm j'ai trois ButtonOptions, je voudrais qu'il ce vident (False) à l'aide d'un boutton qui initialise les TextBox.
Il y a 10 TextBox que je vide ainsi :

Code :

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

1
2
3
For i = 1 To 10
Controls("TextBox" + CStr(i)).Text = ""
Next i

Comment faire pour que les OptionButtons ne soient plus cochés ?

Merci de votre aide.
Bien cordialement,
Bruno

[Invité]

Bonsoir,

Essayez :

Code :

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

1
2
3
For i = 1 To 3
Controls("OptionButton" + CStr(i)).Value = False
Next i

[BRUNO71]

Bonsoir,

Hélas non ça ne fonctionne pas comme ça.

Merci quand même.

[BRUNO71]

Bonsoir,

Du coup j'ai opté pour :

Code :

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

1
2
3
OptionButton1.Value = True
OptionButton2.Value = True
OptionButton3.Value = True

Tout simplement

Merci

[BRUNO71]

OptionButton1.Value = False

Et oui

[Invité]

Bonjour,

Bizarre, je viens de refaire l'essai et à priori cela fonctionne bien.

J'ai mis ce code et en pas-à-pas j'ai vérifié :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
OptionButton2.Value = True
OptionButton5.Value = True
For i = 1 To 6
Controls("OptionButton" + CStr(i)).Value = False
Next i
End Sub