VBA userform et select case
Résolu/Fermé
vans7k
-
23 juin 2010 à 14:50
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 23 juin 2010 à 15:10
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 23 juin 2010 à 15:10
A voir également:
- VBA userform et select case
- Aller à la ligne dans une case excel - Guide
- Excel case ✓ - Forum Excel
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Vba attendre 1 seconde ✓ - Forum VB / VBA
2 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
23 juin 2010 à 15:10
23 juin 2010 à 15:10
tu as écris
Select Case section
Case 1
Questions.TexteLibre.Visible = True
Questions.D.Visible = True
Questions.TexteLibre.Enabled = True
Questions.D.Enabled = True
Questions.OK.Visible = True
Questions.OK.Enabled = True
Case 2
Questions.Oui.Visible = True Questions.Non.Visible = True
Questions.D.Visible = True
Questions.Oui.Enabled = True
Questions.Non.Enabled = True
Questions.D.Enabled = True
je suppose que tu as placé ce code dans la partie initialisation ou bien en Activate.
mais tu n'as pas caché ce que tu n'utilise pas.
il faut simplement écrire
Case 1
Questions.TexteLibre.Visible = True
Questions.D.Visible = True
Questions.TexteLibre.Enabled = True
Questions.D.Enabled = True
Questions.OK.Visible = True
Questions.OK.Enabled = True
Case 2
Questions.TexteLibre.Visible = false ' Texte libre sera caché
Questions.Oui.Visible = True Questions.Non.Visible = True
Questions.D.Visible = True
Questions.Oui.Enabled = True
Questions.Non.Enabled = True
Questions.D.Enabled = True
A+
Select Case section
Case 1
Questions.TexteLibre.Visible = True
Questions.D.Visible = True
Questions.TexteLibre.Enabled = True
Questions.D.Enabled = True
Questions.OK.Visible = True
Questions.OK.Enabled = True
Case 2
Questions.Oui.Visible = True Questions.Non.Visible = True
Questions.D.Visible = True
Questions.Oui.Enabled = True
Questions.Non.Enabled = True
Questions.D.Enabled = True
je suppose que tu as placé ce code dans la partie initialisation ou bien en Activate.
mais tu n'as pas caché ce que tu n'utilise pas.
il faut simplement écrire
Case 1
Questions.TexteLibre.Visible = True
Questions.D.Visible = True
Questions.TexteLibre.Enabled = True
Questions.D.Enabled = True
Questions.OK.Visible = True
Questions.OK.Enabled = True
Case 2
Questions.TexteLibre.Visible = false ' Texte libre sera caché
Questions.Oui.Visible = True Questions.Non.Visible = True
Questions.D.Visible = True
Questions.Oui.Enabled = True
Questions.Non.Enabled = True
Questions.D.Enabled = True
A+
Autant pour moi je viens de trouver la solution !!
Il suffisait simplement dans les propriétés de mon formulaire pour chaque éléments qui ne revenait pas tout le temps de mette visible à FALSE !
:/
Merci quand même à ceux qui ont peut être cherché ;).
J'ai eu l'idée grâce à un autre problème posé sur ce forum ! Vive commentcamarche !!!
Bonne journée à tous
Il suffisait simplement dans les propriétés de mon formulaire pour chaque éléments qui ne revenait pas tout le temps de mette visible à FALSE !
:/
Merci quand même à ceux qui ont peut être cherché ;).
J'ai eu l'idée grâce à un autre problème posé sur ce forum ! Vive commentcamarche !!!
Bonne journée à tous