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
- Partager des photos en ligne - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
10 réponses
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
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
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
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
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
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
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.
