Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cacher une ligne, en fonction de la valeur d'une cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

GuillaumA

XLDnaute Occasionnel
Bonjour à tous.

J'ai la macro suivante:
Public Sub Masquer() 'cache les lignes automatiquement

Application.ScreenUpdating = False
For i = 1 To 100
Rows(i).Hidden = Cells(i, 12).Value = ""
Next i
Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...

Cette dernière me permet de masquer une ligne s'il n'y a pas de valeur dans cette dernière sur les lignes 1 à 100


J'aimerais transformer cette dernière afin qu'en fonction d'une valeur dans la cellule M19 de la Feuil1, cette dernière cache toutes les lignes de la Feuil2 qui ont la même valeur dans la colonne L.

3 valeurs différentes peuvent apparaître dans M19 (et donc aussi dans la colonne L de la feuille 2), A B et C.

Je vous joint un fichier exemple pour clarifier le problème =) .
Merci de votre considération et futur aide!!!


Cordialement,
Guillaume A.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Cacher une ligne, en fonction de la valeur d'une cellule

Bonjour Guillaume,
Une proposition à mettre dans le code de la feuille 1:
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Intersect(Target, Range("M19")) [COLOR=blue]Is Nothing Then Exit Sub[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
    [COLOR=blue]For[/COLOR] i = 2 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, "L").End(xlUp).Row
    .Rows(i).Hidden = .Cells(i, 12) <> Range("M19").Value
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Cacher une ligne, en fonction de la valeur d'une cellule

Bonjour,

A mettre dans le module de code de la feuille Feuil1.

Code: 
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
    [COLOR=blue]If[/COLOR] Target.Address(0, 0) = [I]"M19"[/I] [COLOR=blue]Then[/COLOR]
        [COLOR=blue]Dim[/COLOR] c [COLOR=blue]As[/COLOR] Range
        [COLOR=blue]With[/COLOR] Sheets([I]"Feuil2"[/I]).Range([I]"L4:L33"[/I])
            .EntireRow.Hidden = [COLOR=blue]False[/COLOR]
            [COLOR=blue]If[/COLOR] Target <> [I]"C"[/I] [COLOR=blue]Then[/COLOR]
                [COLOR=blue]Set[/COLOR] c = .Find(What:=Target.Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=[COLOR=blue]False[/COLOR])
                [COLOR=green]'Si Columndifferences ne renvoie rien une erreur est levée[/COLOR]
                [COLOR=blue]On[/COLOR] [COLOR=blue]Error[/COLOR] [COLOR=blue]Resume[/COLOR] [COLOR=blue]Next[/COLOR]
                [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] c [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR] .ColumnDifferences(c).EntireRow.Hidden = [COLOR=blue]True[/COLOR]
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
        [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
    [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Cacher une ligne, en fonction de la valeur d'une cellule

Ah! Je me suis trompé! Ce n'est pas cacher la même valeur...
Désolé de ma mauvaise explication j'avais oublié certaines données de l'équation...

Ce que je recherche c'est:

Si A est choisi, alors B disparaît
Si B est choisi, alors A disparaît
Si C est choisi, alors aucun ne disparaît

Encore désolé pour mon explication précédente.

Merci tout de même à vous Efgé et Hasco pour vos propositions que je suis en train d'essayer de modifier.

Cordialement,
Guillaume A.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Cacher une ligne, en fonction de la valeur d'une cellule

Re Guillaume, bonjour Hasco,
Je poste quand même ma proposition:
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Intersect(Target, Range("M19")) [COLOR=blue]Is Nothing Then Exit Sub[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
    .Rows.Hidden = [COLOR=blue]False[/COLOR]
    [COLOR=blue]Select Case[/COLOR] Range("M19")
        [COLOR=blue]Case[/COLOR] "A"
            Var = "B"
        [COLOR=blue]Case[/COLOR] "B"
            Var = "A"
        [COLOR=blue]Case Else[/COLOR]
            Var = ""
    [COLOR=blue]End Select[/COLOR]
[COLOR=blue]For[/COLOR] i = 4 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, "L").End(xlUp).Row
    .Rows(i).Hidden = .Cells(i, 12) = Var
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2016 Macro masquer certaines lignes en fonction de l'état d'une cellule (vide ou pas)
Réponses
2
Affichages
67
Chris1263
C
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
133
sylvanu
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
229
piga25
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
118
Dudu2
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
177
TRANSPLANT69
T
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
221
ascal44
A
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
215
Abi23
A
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
130
Yogean
Y
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
284
crocrocro
C
M
  • Question Question
Microsoft 365 Impossible de coller en mode valeur
Réponses
10
Affichages
220
job75
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
426
rtlv17
R
  • Résolu(e)
XL 2021 VBA - Comment ajuster la largeur d'une colonne sur une cellule qui contient des retours à la ligne
Réponses
9
Affichages
324
Phil69970
J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
273
jmst1
J
R
  • Question Question
XL pour MAC Rechercher une valeur non vide
Réponses
4
Affichages
100
sylvanu
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
925
fanfan38
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
115
Ckyara31
C
J
  • Question Question
XL 2016 recherche d'une valeur en fonction d'une plage de données
Réponses
2
Affichages
126
jeff2318
J
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
133
JUAN45
J
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
190
Bibinaire
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…