Discussion :

[emilie31]

Bonjour,

Je suis en train de créer un questionnaire avec des champs de la boite à outil « formulaire ». Et suivant les réponses sélectionnées, je souhaiterais afficher ou non la question suivante.

J’ai trouvé comment masquer les boutons de la question suivantes mais je ne sais pas comment masquer la ligne de la question.

Je joins un fichier pour plus de clarté sur ce que j’ai réussi à faire,

Pourriez-vous m’aiguiller ?

D’avance merci

[mercatog]

Pour la ligne 13:
Cacher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(13).Hidden = True

Montrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(13).Hidden = False

[emilie31]

Merci pour la réponse, reste à savoir où je dois insérer ces lignes dans le code suivant déjà créé?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Casdoption1_QuandClic()
 
With ActiveSheet
    .Shapes("Group Box 3").Visible = True
    .Shapes("Option Button 4").Visible = True
    .Shapes("Option Button 5").Visible = True
End With
 
End Sub
Sub Casdoption2_QuandClic()
 
With ActiveSheet
    .Shapes("Group Box 3").Visible = False
    .Shapes("Option Button 4").Visible = False
    .Shapes("Option Button 5").Visible = False
End With
 
End Sub

[casefayere]

Bonjour Emilie, mercatog, le forum

Déjà, apprends à mettre les balises codes

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Casdoption1_QuandClic()
 
With ActiveSheet
   Rows(13).Hidden = False
   .Shapes("Group Box 3").Visible = True
   .Shapes("Option Button 4").Visible = True
   .Shapes("Option Button 5").Visible = True
End With
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Casdoption2_QuandClic()
 
With ActiveSheet
   Rows(13).Hidden = True
   .Shapes("Group Box 3").Visible = False
   .Shapes("Option Button 4").Visible = False
   .Shapes("Option Button 5").Visible = False
End With
 
End Sub