A voir également:
- Masquer des ligne si valeur d'une cellule à Oui
- Aller à la ligne dans une cellule excel - Guide
- Partager des photos en ligne - Guide
- Excel cellule couleur si condition texte - Guide
- Mètre en ligne - Guide
- Masquer une conversation whatsapp - Guide
2 réponses
Bonjour,
en vba aller sur la feuille2 et faire Alt F11 pour accéder à l'éditeur et mettre ce code qui se déclenchera à chaque changement de la feuille2:
enregistrer sous: classeur prenant en charge les macros
--
@+ Le Pivert
en vba aller sur la feuille2 et faire Alt F11 pour accéder à l'éditeur et mettre ce code qui se déclenchera à chaque changement de la feuille2:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F22").Value = "OUI" Then
Rows("23").EntireRow.Hidden = False
Rows("24:27").EntireRow.Hidden = True
ElseIf Range("F22").Value = "NON" Then
Rows("24:27").EntireRow.Hidden = False
Rows("23").EntireRow.Hidden = True
End If
End Sub
enregistrer sous: classeur prenant en charge les macros
--
@+ Le Pivert
Bonjour Laetitia
Possible :
- soit par formule et filtrage:
Dans une colonne inutilisée à la ligne 23 mettre la formule =SI($F$22="non";"x";"")
à la ligne 24 mettre la formule =SI($F$22="oui";"x";"") et étirer la formule jusqu'à la ligne 27
Filtrer ensuite le tableau sur cette colonne avec condition x
- soit par macro
macro à mettre dans un module de l'éditeur VBA :
à lancer depuis Développeur dans le ruban ou depuis un bouton
Cdlmnt
Via
Possible :
- soit par formule et filtrage:
Dans une colonne inutilisée à la ligne 23 mettre la formule =SI($F$22="non";"x";"")
à la ligne 24 mettre la formule =SI($F$22="oui";"x";"") et étirer la formule jusqu'à la ligne 27
Filtrer ensuite le tableau sur cette colonne avec condition x
- soit par macro
macro à mettre dans un module de l'éditeur VBA :
Sub masquer()
Rows("23:27").Select
Selection.EntireRow.Hidden = False
If Range("F22") <> "oui" And Range("F22") <> "non" Then Exit Sub
If Range("F22") = "oui" Then
Rows("23:23").Select
Else
Rows("24:27").Select
End If
Selection.EntireRow.Hidden = True
End Sub
à lancer depuis Développeur dans le ruban ou depuis un bouton
Cdlmnt
Via
