VBA userform et select case
Résolu
vans7k
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA userform et select case
- Case à cocher word ✓ - Forum Word
- Incompatibilité de type vba ✓ - Forum Programmation
- Aller à la ligne dans une case excel - Guide
- Excel case choix multiple - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
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