Cacher ou montrer des lignes avec une cellule OUI ou NON
Fermé
romainlei
Messages postés
5
Date d'inscription
dimanche 9 juillet 2017
Statut
Membre
Dernière intervention
9 juillet 2017
-
9 juil. 2017 à 09:31
françois - 10 juil. 2017 à 15:37
françois - 10 juil. 2017 à 15:37
A voir également:
- Cacher ou montrer des lignes avec une cellule OUI ou NON
- Aller à la ligne dans une cellule excel - Guide
- Cacher une conversation whatsapp - Guide
- Oui transfert - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
10 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
9 juil. 2017 à 14:10
9 juil. 2017 à 14:10
Bonjour,
pour faire cela, il faut passer par du VBA si tu as quelques notions
clic droit sur l'onglet de ta feuille/Visualiser le code et coller le code cidessous
Private Sub Worksheet_Change(ByVal Target As Range)
If [A3] = "OUI" Then Rows("5:7").EntireRow.Hidden = True Else Cells.EntireRow.Hidden = False
End Sub
enregistrer le fichier sous en choisissant dans Type l'extention XLS ou XLSM
https://www.cjoint.com/c/GGjmkqbJApj
ou
https://www.cjoint.com/c/GGjmjg0I5Tj
pour faire cela, il faut passer par du VBA si tu as quelques notions
clic droit sur l'onglet de ta feuille/Visualiser le code et coller le code cidessous
Private Sub Worksheet_Change(ByVal Target As Range)
If [A3] = "OUI" Then Rows("5:7").EntireRow.Hidden = True Else Cells.EntireRow.Hidden = False
End Sub
enregistrer le fichier sous en choisissant dans Type l'extention XLS ou XLSM
https://www.cjoint.com/c/GGjmkqbJApj
ou
https://www.cjoint.com/c/GGjmjg0I5Tj
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
9 juil. 2017 à 10:07
9 juil. 2017 à 10:07
Bonjour
en passant par le filtrer, ça ne vous convient pas?
à vous lire
crdlmnt
en passant par le filtrer, ça ne vous convient pas?
à vous lire
crdlmnt
romainlei
Messages postés
5
Date d'inscription
dimanche 9 juillet 2017
Statut
Membre
Dernière intervention
9 juillet 2017
9 juil. 2017 à 11:33
9 juil. 2017 à 11:33
je ne trouve pas comment filtrer les lignes ce ne me propose pas de ligne a filtrer
je suis sur excel 2010
je suis sur excel 2010
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
Modifié le 9 juil. 2017 à 11:36
Modifié le 9 juil. 2017 à 11:36
si vous avez un modèle à ,déposer, on y verrait plus clair:
voyez ici
https://www.cjoint.com/
et revenez coller ici le lien créé sur le site
à vous lire
crdlmnt
voyez ici
https://www.cjoint.com/
et revenez coller ici le lien créé sur le site
à vous lire
crdlmnt
romainlei
Messages postés
5
Date d'inscription
dimanche 9 juillet 2017
Statut
Membre
Dernière intervention
9 juillet 2017
9 juil. 2017 à 11:53
9 juil. 2017 à 11:53
https://www.cjoint.com/c/GGjjZZIYWzx
cellule A3 OUI ou NON
OUI > Affiche les lignes 5,6,7
NON > Masque les lignes 5,6,7
Cordialement
cellule A3 OUI ou NON
OUI > Affiche les lignes 5,6,7
NON > Masque les lignes 5,6,7
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
romainlei
Messages postés
5
Date d'inscription
dimanche 9 juillet 2017
Statut
Membre
Dernière intervention
9 juillet 2017
9 juil. 2017 à 17:29
9 juil. 2017 à 17:29
Merci ça correspond a ma recherche
Cordialement
Cordialement
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
9 juil. 2017 à 17:36
9 juil. 2017 à 17:36
Re,
Si tes attentes sont satisfaites, je passe le statut de la discussion en résolu
Si tes attentes sont satisfaites, je passe le statut de la discussion en résolu
romainlei
Messages postés
5
Date d'inscription
dimanche 9 juillet 2017
Statut
Membre
Dernière intervention
9 juillet 2017
9 juil. 2017 à 18:20
9 juil. 2017 à 18:20
https://www.cjoint.com/c/GGjqjePwxkx
En faite j'ai une autre question
j'ai plusieurs cellule oui non et je dois cacher les ligne juste en dessous comment puis-je faire
E145 > si non cache les ligne 146 a 149
E186 > si non cache les lignes 187 a 194
G202 > si non cache les lignes 203 a 208
I210 > si non cache les lignes 211 a 216
E230 > si on cache les lignes 231 a 236
C238 > si on cache les lignes 239 a 248
Cordialement
En faite j'ai une autre question
j'ai plusieurs cellule oui non et je dois cacher les ligne juste en dessous comment puis-je faire
E145 > si non cache les ligne 146 a 149
E186 > si non cache les lignes 187 a 194
G202 > si non cache les lignes 203 a 208
I210 > si non cache les lignes 211 a 216
E230 > si on cache les lignes 231 a 236
C238 > si on cache les lignes 239 a 248
Cordialement
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié le 9 juil. 2017 à 21:11
Modifié le 9 juil. 2017 à 21:11
Bonjour à tous
Dans le module de la feuille Insertion
http://www.cjoint.com/c/GGjtbXOwIwB
Cdlmnt
Attention. Modifications à 21h02
Je t'ai supprimé le Module 1 et le Module de classe où tu avais mis le code de la macro concernée par ce post
Dans le module de la feuille Insertion
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.address
Case "$E$145": If Range("E145") = "NON" Then Rows("146:149").Hidden = True Else Rows("146:149").Hidden = False
Case "$C$186": If Range("C186") = "NON" Then Rows("187:194").Hidden = True Else Rows("187:194").Hidden = False
Case "$G$202": If Range("G202") = "NON" Then Rows("203:208").Hidden = True Else Rows("204:209").Hidden = False
' je te laisse finir
End Select
End Sub
http://www.cjoint.com/c/GGjtbXOwIwB
Cdlmnt
Attention. Modifications à 21h02
Je t'ai supprimé le Module 1 et le Module de classe où tu avais mis le code de la macro concernée par ce post
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
10 juil. 2017 à 07:46
10 juil. 2017 à 07:46
Re, Bonjour CCM,
Merci d'avoir pris le relais, j'avais commencé sur ce code ou à partir d'un index ligne exemple 145 j'ajoutais le nombre de ligne à masquer
Rows(145 + 1 & ":" & 145 + 4)
par contre je n'ai pas le temps de regarder les codes écrits par Romainlei qui à mon avis présente quelques problèmes
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Select Case Target.address
Case "$E$145": If Range("E145") = "NON" Then Rows(145 + 1 & ":" & 145 + 4).Hidden = True Else Rows(145 + 1 & ":" & 145 + 4).Hidden = False
Case "$C$186": If Range("C186") = "NON" Then Rows(186 + 1 & ":" & 186 + 8).Hidden = True Else Rows(186 + 1 & ":" & 186 + 8).Hidden = False
Case "$G$202": If Range("G202") = "NON" Then Rows(202 + 1 & ":" & 202 + 6).Hidden = True Else Rows(202 + 1 & ":" & 202 + 6).Hidden = False
Case "$I$210": If Range("I210") = "NON" Then Rows(210 + 1 & ":" & 210 + 6).Hidden = True Else Rows(210 + 1 & ":" & 210 + 6).Hidden = False
Case "$E$230": If Range("G230") = "NON" Then Rows(230 + 1 & ":" & 230 + 6).Hidden = True Else Rows(230 + 1 & ":" & 230 + 6).Hidden = False
Case "$C$238": If Range("C238") = "NON" Then Rows(238 + 1 & ":" & 238 + 10).Hidden = True Else Rows(238 + 1 & ":" & 238 + 10).Hidden = False
End Select
End Sub
Merci d'avoir pris le relais, j'avais commencé sur ce code ou à partir d'un index ligne exemple 145 j'ajoutais le nombre de ligne à masquer
Rows(145 + 1 & ":" & 145 + 4)
par contre je n'ai pas le temps de regarder les codes écrits par Romainlei qui à mon avis présente quelques problèmes
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Select Case Target.address
Case "$E$145": If Range("E145") = "NON" Then Rows(145 + 1 & ":" & 145 + 4).Hidden = True Else Rows(145 + 1 & ":" & 145 + 4).Hidden = False
Case "$C$186": If Range("C186") = "NON" Then Rows(186 + 1 & ":" & 186 + 8).Hidden = True Else Rows(186 + 1 & ":" & 186 + 8).Hidden = False
Case "$G$202": If Range("G202") = "NON" Then Rows(202 + 1 & ":" & 202 + 6).Hidden = True Else Rows(202 + 1 & ":" & 202 + 6).Hidden = False
Case "$I$210": If Range("I210") = "NON" Then Rows(210 + 1 & ":" & 210 + 6).Hidden = True Else Rows(210 + 1 & ":" & 210 + 6).Hidden = False
Case "$E$230": If Range("G230") = "NON" Then Rows(230 + 1 & ":" & 230 + 6).Hidden = True Else Rows(230 + 1 & ":" & 230 + 6).Hidden = False
Case "$C$238": If Range("C238") = "NON" Then Rows(238 + 1 & ":" & 238 + 10).Hidden = True Else Rows(238 + 1 & ":" & 238 + 10).Hidden = False
End Select
End Sub
Bonjour romainlei,
Fichier Excel 2007 : https://mon-partage.fr/f/9QsIi5A8/
Alt F11 pour voir la macro, puis revenir sur Excel.
⚠ Les commentaires de la sub sont très importants !!!
Si les limitations de ma sub ne te gênent pas, tu verras que
ça convient très bien : adaptation très facile, il n'y a que 2
lignes à compléter ou à modifier.
À te lire pour avoir ton avis.
Fichier Excel 2007 : https://mon-partage.fr/f/9QsIi5A8/
Alt F11 pour voir la macro, puis revenir sur Excel.
⚠ Les commentaires de la sub sont très importants !!!
Si les limitations de ma sub ne te gênent pas, tu verras que
ça convient très bien : adaptation très facile, il n'y a que 2
lignes à compléter ou à modifier.
À te lire pour avoir ton avis.
