Bonjour à tous,

J'ai besoin de votre aide pour améliorer un code concernant le masquage de mes lignes.L'explication du code ci-dessous est la suivante: lorsque j'inscris en A2 une donnée faisant référence à la colonne 5 seules les lignes comportant cette donnée s'affichent. Le même Concept s'applique pour la donnée inscrite en E3 qui fait référence à la colonne B2.

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
      Select Case Target.Address
    Case "$A$2"
        Range("E14:E3000").EntireRow.Hidden = False    'Cells(Rows.Count, 5).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [E3] = "" Then Range("E14", Cells(Rows.Count, 5).End(xlUp)).EntireRow.Hidden = True
        If [A2] <> "" Then
                    For Each cel In Range("E14", Cells(Rows.Count, 5).End(xlUp))
                If cel.Value = [A2] Then Else cel.EntireRow.Hidden = True
            Next
        End If
 
 
Case "$E$3"
     Range("B14:B3000").EntireRow.Hidden = False    'Cells(Rows.Count, 2).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [E3] = "" Then Range("B14", Cells(Rows.Count, 2).End(xlUp)).EntireRow.Hidden = True
                 If [E3] <> "" Then
            For Each cel In Range("B14", Cells(Rows.Count, 2).End(xlUp))
               If cel.Value = [E3] Then Else cel.EntireRow.Hidden = True
Next
        End If
    End Select
    Application.ScreenUpdating = True
End Sub


Voici ma demande:
Dans mon code, A2 et E2 fonctionnent de manière indépendantes. J'aimerais afficher simultanément toutes les
lignes faisant référence à ma sélection à la fois en A2 et E2.


Merci à vous tous pour votre aide