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
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