Discussion :

[henrynv]

Bonjour,

Je suis débutant en macro et je n'arrive pas à rédiger la macro suivante:

Je voudrais masquer des lignes en fonction de la réponse à la première question. Il s'agit d'un formulaire qui comporte x questions mais qui ne les affiche pas toutes, cela dépend de la réponse à la première question.

Ainsi, dans l'exemple ci dessous, je voudrais qu'Excel n'affiche que les questions de la Grande distribution. Les questions appartenant à la Grande distribution sont marquées par 1. les questions qui ne concernent pas la grande distribution sont marquées par 0

n'hésitez à me poser des questions si je n'ai pas été assez clair!

Merci pour l'aide!


Sport Gd Distri. Energie
1. Quel est votre secteur d'activité?
Grande distribution

2. Mangez-vous des glaces? 1 0 1
Oui 1 0 1

3. Mangez-vous des champignons? 1 1 0
Non 1 1 0

[henrynv]

Le message s'étant mal affiché, je joins le fichier Excel!

Bon aprem!

[gFZT82]

Bonjour,

Voici une solution avec un code à placer dans le module de la feuille 1.
Il utilise l'évènement Worksheet_Change qui permet de détecter le changement du secteur d'activité.

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
19
20
21
22
23
24
25
26
27
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim DerLig As Long
Dim Colonne As String
With Worksheets("Feuil1")
    If Target.Count = 1 Then
        If Target.Address = "$A$3" Then
            Application.ScreenUpdating = False
            DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
            Select Case Target
            Case "Sport"
                Colonne = "E"
            Case "Grande distribution"
                Colonne = "F"
            Case "Energie"
                Colonne = "G"
            End Select
            .Cells.EntireRow.Hidden = False
            For Each Cel In .Range(.Cells(5, Colonne), .Cells(DerLig, Colonne))
                If Cel = "0" Then .Rows(Cel.Row).Hidden = True
            Next Cel
            Application.ScreenUpdating = True
        End If
    End If
End With
End Sub

Cordialement.

[henrynv]

Un grand merci, cette macro correspond tout à fait à mes besoins!