Masquer et afficher des lignes non consécutives avec VBA

Version imprimable

17/08/2017, 06h48
94olivieroma

1 pièce(s) jointe(s)

Masquer et afficher des lignes non consécutives avec VBA

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 :koi:

Pièce jointe 303562

Bonjour,

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

Code:

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

17/08/2017, 18h36
94olivieroma

1 pièce(s) jointe(s)

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

Pièce jointe 303852