Simplifier une procédure

[patbart]

Bonjour,

j'ai créé une bdlg avec plein de boutons d'option. Est il possible de simplier avec une boucle du style 'for x = 1 to 11' dans un userform, j'ai essayé avec for mais optionbutton x.enabled = true ça ne fonctionne pas.
Merci d'avance.

🙂 Patbart

With UserForm1
.LabelnmrRj.Caption = NPj
.dateRJ = Format(Date, 'dd/mm/yy')
.OptionButton4.Enabled = True
.OptionButton5.Enabled = True
.OptionButton6.Enabled = True
.OptionButton7.Enabled = True
.OptionButton8.Enabled = True
.OptionButton9.Enabled = True

.OptionButton1.Value = False
.OptionButton2.Value = False
.OptionButton3.Value = False
.OptionButton4.Value = False
.OptionButton5.Value = False
.OptionButton6.Value = False
.OptionButton7.Value = False
.OptionButton8.Value = False
.OptionButton9.Value = False
.OptionButton10.Value = False
.OptionButton11.Value = False
.nature.Value = ''
.beneficiaire.Value = ''
.TextBox4.Enabled = True 'montant numéraire
.TextBox5.Enabled = True 'montant cheque
.TextBox4.Value = '' 'montant cheque
.TextBox5.Value = '' 'montant num

.TextBox4.BackColor = &H8000000E
.TextBox5.BackColor = &H8000000E


End With
UserForm1.Show
End Sub

 

[bebere]

bonsoir Patbart
2 exemples
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = ''
Next


For L = 1 To 11
Controls('OptionButton' & L).Visible = True
Next L

à bientôt

 

[patbart]

Bonsoir Bebere,

j'ai testé tes 2 exemples mais ça plante.Dans le 1er ex, il mets un message d'erreur 'objet non requis' et dans le 2° il met 'erreur de compilation, Sub ou fonction non définie'. J'ai essayé de modifier tes exemples mais je n'y arrive pas.
Ma procédure est dans un module, peux tu me dire dans l'exemple que j'ai mis un peu plus haut où je dois placer exactement ta procédure et ce que je dois changer pour l'intégrer dans la mienne.

merci et à bientôt.

patbart

 

[bebere]

Patbart


tu remplaces les lignes entre
.dateRJ = Format(Date, 'dd/mm/yy')
et .nature.Value = ''
par ce qui suit
dim L as byte
For L = 4 To 9
Controls('OptionButton' & L).Enabled = TrueNext L
next l
For L = 1 To 11
Controls('OptionButton' & L).Value = False
Next L

à bientôt

 

[patbart]

Bonsoir Bebere

Merci, ça fonctionne maintenant. J'ai dû rajouter un point devant controls car VBA signalait encore une erreur de sub ou fonction non définie.
Encore merci et bonne soirée.

@+Patbart