[userform] rendre innacecible des case

[jmt0]

Bonjour,

voila j'ai un userform pour facilité la saisie d'option sur mon tableau excel (jusque la c'est du standart).
par contre, j'aimerais ajouter un truc qui est tout simple a dire, mais que j'arrive pas a faire.

Mettre une checkbox (c'est le nom qui est sur le visual basique. Une case a coché) qui quand elle est activé me grise pas mal de case d'option et les rendent innutilisable.

Est ce que ceci est possible a réaliser?

 

[Moa]

Salut Jmto !

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1 = True Then
UserForm1.OptionButton1.Locked = True
Else
UserForm1.OptionButton1.Locked = False
End If
End Sub

Ou :

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1 = True Then
UserForm1.OptionButton1.Enabled = False
Else
UserForm1.OptionButton1.Enabled = True
End If
End Sub

Exemple joint

@ +++


Moa [file name=CaseACocherJmt0.zip size=8663]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CaseACocherJmt0.zip[/file]