Cacher des optionbutton en vba excel

Résolu/Fermé
ch'duj Messages postés 22 Date d'inscription jeudi 19 mai 2011 Statut Membre Dernière intervention 27 février 2012 - 7 nov. 2011 à 10:51
ch'duj Messages postés 22 Date d'inscription jeudi 19 mai 2011 Statut Membre Dernière intervention 27 février 2012 - 8 nov. 2011 à 16:53
Bonjour,

j'ai creer un userform avec 12 Optionbutton numérotés de 1 a 12 et suivant le cas je donne un intitulé a 2 minimum jusqu'au 12 maxi optionbutton, mais il arrive que je n'utilise pas tous les optionsbutton, et dans ce cas je voudrais que les non utilisés soient invisible dans mon userform.

si quelqu'un à déjà travaillé la dessus

merci de me donner quelques conseils

A voir également:

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
7 nov. 2011 à 11:09
Bonjour,
Il vous suffit de régler la propriété visible de vos OptionButton, au choix, sur True ou sur False...
Exemple :
Au clic dans un checkbox, on affiche les optionbutton 2 et 3 si le checkbox est coché ou non... 
Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
    UserForm1.OptionButton2.Visible = False
    UserForm1.OptionButton3.Visible = False
Else
    UserForm1.OptionButton2.Visible = True
    UserForm1.OptionButton3.Visible = True
End If
End Sub
3
Réponse 2 / 4
ch'duj Messages postés 22 Date d'inscription jeudi 19 mai 2011 Statut Membre Dernière intervention 27 février 2012 2
7 nov. 2011 à 11:34
Merci, mais en fait ce qui m'ennuie c'est de pouvoir faire une boucle, et de pouvoir indicer le 1 .... 12 de optionbutton.
si je n'ai rien dans l'intitulé de optionbutton alors mon optionbutton est invisible
Afin de minimisé l'écriture.

merci de ton aide
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
7 nov. 2011 à 11:38
Oui bon alors pas de problème pour une boucle, mais qu'entends tu par intitulé?
Exemple de boucle sur les optionbuttons de l'optionbutton5 à l'optionbutton19 : 
Dim Indic As Byte
For Indic = 5 To 19
    Me.Controls("OptionButton" & Indic).Visible = True
Next
0
Réponse 3 / 4
ch'duj Messages postés 22 Date d'inscription jeudi 19 mai 2011 Statut Membre Dernière intervention 27 février 2012 2
7 nov. 2011 à 12:01
Merci,

Mais en fait je met mes lignes dans mon module et la fonction Me ne fonctionne pas dans un module.

cela dit je ton astuce interressante

merci de ton aide
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
7 nov. 2011 à 12:17
Si Me ne fonctionne pas, remplace par UserForm... 
UserForm1.Controls("OptionButton" & Indic).Visible = True
0
Réponse 4 / 4
ch'duj Messages postés 22 Date d'inscription jeudi 19 mai 2011 Statut Membre Dernière intervention 27 février 2012 2
8 nov. 2011 à 16:53
Merci Pijaku

ca fonctionne comme je le souhaitais

a+
0