Discussion :

[94olivieroma]

Bonjour le Forum,

Je voudrais masquer/afficher des lignes qui ne se suivent pas en fonction d'une valeur en B1

J'ai trouver un code pour masquer les lignes consécutives, mais débutant en VBA, je ne sais pas comment modifier le code pour des lignes non consécutives.
Dans mon exemple en PJ, lorsque je sélectionne :
- "IS" en B1, je voudrais cacher la cligne 5
- "IR" en B1, je voudaris cacher la ligne 9

Merci de votre aide

macro test.xlsm

[Theze]

Bonjour,

Une piste avec Union() et utiliser l'évènement "Change()" de la feuille plutôt que "SelectionChange()" :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Range("B1").Value = "IR" Then
        Union(Rows(4), Rows(6), Rows(9)).EntireRow.Hidden = True
    Else
       Union(Rows(4), Rows(6), Rows(9)).EntireRow.Hidden = False
    End If
 
    If Range("B1").Value = "IS" Then
        Union(Rows(5), Rows(7), Rows(8), Rows(10)).EntireRow.Hidden = True
    Else
        Union(Rows(5), Rows(7), Rows(8), Rows(10)).EntireRow.Hidden = False
    End If
 
    If Range("B1").Value = "" Then
        Rows("4:10").EntireRow.Hidden = False
    End If
 
End Sub

[94olivieroma]

Bonjour Theze,

Merci pour cette solution. Je l'ai adaptée à mon fichier de travail. Elle fonction bien pour "IS" et "IR".
Mais par contre elle ne masque pas les lignes 43, 45, 65, 69 sur la troisième partie du code avec I29 " ".
Encore plus étrange, si j'inverse les conditions "False" & "True" et sélectionne en I29 " ", alors je ne cache plus les lignes lors de la sélection "IR" ou "IS".

Je joins mon nouveau fichier pour mieux me faire comprendre.

Merci encore et bonne soirée

Copy of test macro2.xlsm