masquer des lignes dans un fichier Excel par commande VBA

**line78** · 26/11/2016, 20h09

Bonjour à tous,

Je suis nouvelle sur le Forum et j'espère que vous pourrez m'aider dans ma requête. J'aimerais masquer des lignes de mon fichier Excel via des demandes précises textes dans les cellules A2 et B2 qui renvoient au contenu de la colonne 4 de mon fichier.

Vous allez me dire pourquoi ne pas appliquer tout simplement un autofilter et sélectionner dans la colonne 4 ce qui doit s'afficher!! mes responsables ne veulent pas voir le filtre ni même avoir la possibilité de sélectionner autre chose et voir d'autres résultats.

J'ai mis en pièce jointe un fichier simplifié car le fichier d'origine peut contenir 300 à 500 lignes voire plus et un autofilter et assez compliqué puisque il ne faut rien oublier.

Dans le fichier vous trouverez un soupçon de code

dans l'onglet de la feuille1 qui ne marche pas trop... d'où votre aide Help!!

Ce que j'aimerai c'est que lorsque j'inscris MIT dans la cellule B2 seules les lignes contenant dans la colonne 4 POL,POL2,TYM s'affichent.
J'aimerai également avoir la possibilité de n'afficher qu'une demande exemple si j'inscris SLC2 dan la cellule A2 seule la ligne SLC2 s'affiche.
Ah oui j'oubliais lorsque rien n'est inscrit dans les cellules A2 et B2 alors toutes les lignes sont masquées.

Merci bcp pour votre aide précieuse

Pièce jointe 225958

**NVCfrm** · 26/11/2016, 21h19

Bienvenue.
Avant que Marc ... vienne rappeler certains principes avec vivacité, je te conseilles d'expliquer davantage ... en postant les "soupçons de code" en lieu et place d'un fichier.

**line78** · 26/11/2016, 21h51

Merci d'avoir précisé!

voici ce que j'ai essayé de faire je continue à travailler dessus!

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
    If Target.Address = "$A$2" Then
                If [A2] = Empty Then
            Range("D9:D15").EntireRow.Hidden = True
             Exit Sub
        End If
        Set MyPlage = Range("D9:D15")
        For Each cell In MyPlage
            If cell.Value <> [A2] Then
                cell.EntireRow.Hidden = True
            ElseIf cell.Value = [A2] Then
            cell.EntireRow.Hidden = False
            End If
        Next
    End If
    Application.ScreenUpdating = True
End Sub

**patricktoulon** · 26/11/2016, 22h02

re
juste une petite question comme ca en passant

Ah oui j'oubliais lorsque rien n'est inscrit dans les cellules A2 et B2 alors toutes les lignes sont masquées.

ah!! oui!!! et comment tu veux taper en A2 ou B2 si elle sont invisibles

c'était juste comme ca en passant comme personne ne te l'a demandé
j'ai cru bon te faire entrevoir un 1 er problème de conception dans ton system hein!!....

re
bon a regarder ton exemple on est tranquile ca comence en ligne 9

2 soucis

si j'ai lc2 en B et que je tape en A2 quelle est la règle de priorité la A ou la B
doit on effacer B si on tape dans A?
doit ton empêcher de taper en A si B plein ?
tout c'est des soucis de conception qui ne sont pas suffisamment pensés
reprends ton énoncé et di nous avec ces nouveaux paramètres comment tu veux que cela fonctionne

**line78** · 27/11/2016, 16h17

Bonjour Patricktoulon,

Oui effectivement ce sont des problématiques que je n'avais pas encore mises en avant et qui se seraient présentées.

Lorsque les deux B2 et A2 sont avec une sélection via la colonne 4 alors les deux affichent les lignes qui les concernent.
B2 est prioritaire sur A2 dans les sens ou rien n'est inscrit dans A2.Autrement dit si rien n'est inscrit dans la cellule A2 seule la sélection dans B2 s'affiche.
Lorsque les deux B2 et A2 sont vides alors toutes les lignes sont masquées.

En espérant avoir été plus précise!

Merci pour votre aide

**patricktoulon** · 29/11/2016, 10h57

Bonjour line 78

voila une idée parmi tant d'autre
a placer ce code dans le module du sheets concerné

TAPE SLC2 EN MAJ OU MIT PUIS ENTER ET TU AURA CE QUE TU SOUHAITE

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'Ce que j'aimerai c'est que lorsque j'inscris MIT dans la cellule B2 seules les lignes contenant dans la colonne 4 POL,POL2,TYM s'affichent.
' j 'aimerai également avoir la possibilité de n'afficher qu'une demande exemple si j'inscris SLC2 dan la cellule A2 seule la ligne SLC2 s'affiche.
' Ah oui j'oubliais lorsque rien n'est inscrit dans les cellules A2 et B2 alors toutes les lignes sont masquées.
'Ce que j'aimerai c'est que lorsque j'inscris MIT dans la cellule B2 seules les lignes contenant dans la colonne 4 POL,POL2,TYM s'affichent.
' j 'aimerai également avoir la possibilité de n'afficher qu'une demande exemple si j'inscris SLC2 dan la cellule A2 seule la ligne SLC2 s'affiche.
' Ah oui j'oubliais lorsque rien n'est inscrit dans les cellules A2 et B2 alors toutes les lignes sont masquées.
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$2"
        Range("D9:D200").EntireRow.Hidden = False    'Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
        If [A2] = "SLC2" Then
            For Each cel In Range("D9", Cells(Rows.Count, 4).End(xlUp))
                If cel <> "SLC2" Then cel.EntireRow.Hidden = True
            Next
        End If
    Case "$B$2"
        Range("D9:D200").EntireRow.Hidden = False    'Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
        param1 = "POL,POL2,TYM"
        If [b2] = "MIT" Then
            For Each cel In Range("D9", Cells(Rows.Count, 4).End(xlUp))
                If Not param1 Like "*" & cel.Value & "*" Then cel.EntireRow.Hidden = True Else cel.EntireRow.Hidden = False
            Next
        End If
    End Select
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$2": [A2:B2].Value = ""
    Case "$B$2": [A2:B2].Value = ""
    End Select
    If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
End Sub
        End If
    End Select
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$2": [A2:B2].Value = ""
    Case "$B$2": [A2:B2].Value = ""
    End Select
    If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
End Sub

**line78** · 30/11/2016, 22h18

Bonjour PatrickToulon,

Tout à bord merci bcp pour ton aide!

J'ai appliqué le code dans ma feuille et celui-ci fonctionne bien. En revanche, la sélection dans la case A2 n'est pas spécifique à SLC2. SLC2 était un exemple.
Quelque soit la sélection faite dans A2 (en correspondance avec la colonne 4), il faudrait afficher les lignes dans le fichier.

Exemple:
Si A2 vide rien ne s'affiche
Si SLC2 est inscrit dans A2 seules les lignes SLC2 s'affichent
Si POL est inscrit dans A2 seules les lignes POL s'affichent
En résumé, Tout ce qui est inscrit dans la cellule A2 faisant référence à la colonne 4 doit s'afficher si aucune correspondance n'est trouvée aucune ligne doit s'afficher.

J'avais commencé à travailler sur cette problématique en A2 en indiquant un code au début de la discussion et que voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
    If Target.Address = "$A$2" Then
                If [A2] = Empty Then
            Range("D9:D15").EntireRow.Hidden = True
             Exit Sub
        End If
        Set MyPlage = Range("D9:D15")
        For Each cell In MyPlage
            If cell.Value <> [A2] Then
                cell.EntireRow.Hidden = True
            ElseIf cell.Value = [A2] Then
            cell.EntireRow.Hidden = False

Peut-on adapter cette nouvelle demande pour la cellule A2 à ton code?

Merci à toi pour ton aide

**patricktoulon** · 30/11/2016, 23h48

re
bonsoir
et ben dis donc il faudrait savoir ou tu a mal toi

bon si B2 n'est plus de la partie cela devrait être plus simple je regarderais cela demain en fin d'après midi

**line78** · 01/12/2016, 08h58

Bonjour,

ah ben si j'aimerai que B2 soit toujours de la partie. (rien ne change pour B2 il est tellement bien ce code

!).

juste lorsque que j'inscris dans A2 (SLC2 ou POL ou autre référence à la colonne 4) seules les lignes de ma sélection dans A2 s'affichent.

J'aimerai également garder ton code avec MIT dans la sélection B2.

Merci à toi

**patricktoulon** · 01/12/2016, 10h51

bonjour
voila j'ai ajouté la similarité pour le A2
si tu tape SLC2 TU AURA LA LIGNE SLC2
SI TU TAPE POL TU AURA POL ET POL2
etc...

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
28
29
30
31
32
33
34
35
36
37
38
39
 
'Ce que j'aimerai c'est que lorsque j'inscris MIT dans la cellule B2 seules les lignes contenant dans la colonne 4 POL,POL2,TYM s'affichent.
' j 'aimerai également avoir la possibilité de n'afficher qu'une demande exemple si j'inscris SLC2 dan la cellule A2 seule la ligne SLC2 s'affiche.
' Ah oui j'oubliais lorsque rien n'est inscrit dans les cellules A2 et B2 alors toutes les lignes sont masquées.
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$2"
        Range("D9:D200").EntireRow.Hidden = False    'Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
        If [A2] = "SLC2" Then
            For Each cel In Range("D9", Cells(Rows.Count, 4).End(xlUp))
                If cel <> "SLC2" Then cel.EntireRow.Hidden = True
            Next
        End If
        For Each cel In Range("D9", Cells(Rows.Count, 4).End(xlUp))
            If cel Like "*" &  [A2]  & "*" Then cel.EntireRow.Hidden = False Else cel.EntireRow.Hidden = True
        Next
    Case "$B$2"
        Range("D9:D200").EntireRow.Hidden = False    'Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
        param1 = "POL,POL2,TYM"
        If [b2] = "MIT" Then
            For Each cel In Range("D9", Cells(Rows.Count, 4).End(xlUp))
                If Not param1 Like "*" & cel.Value & "*" Then cel.EntireRow.Hidden = True Else cel.EntireRow.Hidden = False
            Next
        End If
    End Select
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$2": [A2:B2].Value = ""
    Case "$B$2": [A2:B2].Value = ""
    End Select
    If [A2] & [b2] = "" Then Range("D9", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
End Sub
Sub truc()
    Cells.EntireRow.Hidden = False
End Sub

**line78** · 02/12/2016, 18h57

Bonjour PatrickToulon

Merci bcp pour ton aide tout fonctionne parfaitement.

J'ai modifié le code de cette manière pour la cellule A2 cela correspond à ma demande. Il n'est pas facile de formuler de manière factuel sa pensée en informatique surtout quand on a pas l'habitude!! Encore désolée! En tout cas cela m'a donné envie d'apprendre en réalisant tout le potentiel du code. Si tu connais un site de cours ou formation dans le language VBA, ça m'intéresse??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Select Case Target.Address
    Case "$A$2"
        Range("D13:D1000").EntireRow.Hidden = False    'Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = False
        If [A2] & [b2] = "" Then Range("D13", Cells(Rows.Count, 4).End(xlUp)).EntireRow.Hidden = True
        If [A2] <> "" Then
                    For Each cel In Range("D13", Cells(Rows.Count, 4).End(xlUp))
                If cel.Value = [A2] Then Else cel.EntireRow.Hidden = True
            Next
        End If
End Select
    Application.ScreenUpdating = True
End Sub

masquer des lignes dans un fichier Excel par commande VBA [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager