Excel: Liste déroulante qui cache rangée
Résolu
Sebas916
-
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
un problème qui me travail depuis longtemps et que je n'ai toujours pas trouvé malgré mes nombreuse recherche sur internet et mes tentatives de codage.
Je souhaite faire une liste déroulante dans excel, par exemple..des types de films, et qui, selon le choix que je fais masque les rangé (horizontale) qui ne convienne pas a ce type. Donc j'aimerais savoir comment, avec le choix que je fais dans ma case de type, je peux cacher des rangées.
Merci beaucoup
un problème qui me travail depuis longtemps et que je n'ai toujours pas trouvé malgré mes nombreuse recherche sur internet et mes tentatives de codage.
Je souhaite faire une liste déroulante dans excel, par exemple..des types de films, et qui, selon le choix que je fais masque les rangé (horizontale) qui ne convienne pas a ce type. Donc j'aimerais savoir comment, avec le choix que je fais dans ma case de type, je peux cacher des rangées.
Merci beaucoup
A voir également:
- Excel: Liste déroulante qui cache rangée
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
7 réponses
Re,
J'avais préparé ce code avant le diner
je te conseille dans ta liste déroulante en colonne BB d'insérer Tous en début de liste de sorte à pouvoir afficher tout tes films depuis la liste déroulante en G3
ensuite clic droit sur l'onglet de feuille1/Visualiser le code et colle ce code dans la feuille blanche qui s'est ouverte.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$G$2" Then
If [G2] = "Tous" Then
Range("G3:G100").EntireRow.Hidden = False
Exit Sub
End If
Set MyPlage = Range("G3:G100")
For Each cell In MyPlage
If cell.Value <> [G2] Then
cell.EntireRow.Hidden = True
ElseIf cell.Value = [G2] Then
cell.EntireRow.Hidden = False
End If
Next
End If
Application.ScreenUpdating = True
End Sub
lorsque tu sélectionnes un serie en G3 seul cette série reste visible et si tu sélectionnes Tous toutes les lignes sont visible.
Si tu as besoin d'un montage fais signe
J'avais préparé ce code avant le diner
je te conseille dans ta liste déroulante en colonne BB d'insérer Tous en début de liste de sorte à pouvoir afficher tout tes films depuis la liste déroulante en G3
ensuite clic droit sur l'onglet de feuille1/Visualiser le code et colle ce code dans la feuille blanche qui s'est ouverte.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$G$2" Then
If [G2] = "Tous" Then
Range("G3:G100").EntireRow.Hidden = False
Exit Sub
End If
Set MyPlage = Range("G3:G100")
For Each cell In MyPlage
If cell.Value <> [G2] Then
cell.EntireRow.Hidden = True
ElseIf cell.Value = [G2] Then
cell.EntireRow.Hidden = False
End If
Next
End If
Application.ScreenUpdating = True
End Sub
lorsque tu sélectionnes un serie en G3 seul cette série reste visible et si tu sélectionnes Tous toutes les lignes sont visible.
Si tu as besoin d'un montage fais signe
Sebas916
c'est PARFAIT!!! MErci beaucoup beaucoup!!! :D
Bonsoir tout le monde,
Ce n'est pas tout simplement un filtre automatique qu'il veut ?
Sélectionner les titres et :
menu 'données / filtrer / filtre automatique' sur 2003, j'ignore où sur 2007.
eric
Ce n'est pas tout simplement un filtre automatique qu'il veut ?
Sélectionner les titres et :
menu 'données / filtrer / filtre automatique' sur 2003, j'ignore où sur 2007.
eric
Salut,
Si je comprends ta demande, c'est pas très compliqué mais serait il possible
d'avoir un modéle de fichier à joindre avec ce lien
http://www.cijoint.fr/
Si je comprends ta demande, c'est pas très compliqué mais serait il possible
d'avoir un modéle de fichier à joindre avec ce lien
http://www.cijoint.fr/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir
peut être selon ce modèle
http://www.cijoint.fr/cjlink.php?file=cj201011/cijeQyJaG9.xls
crdlmnt
peut être selon ce modèle
http://www.cijoint.fr/cjlink.php?file=cj201011/cijeQyJaG9.xls
crdlmnt
Vaucluse, je ne comprend pas très bien ton modèle, je voudrais simplement que, si je choisis (selon ton exemple) type: C, les types A et B se cache, devienne caché
Ah! Je viens de comprendre le fonctionnement de votre fichier! Désolé je n'avais pas compris avant. Mais en faite je recherche un peu plus que cela, je ne veux pas juste voir la liste, j'aimerais aussi que les autre disparaisse. Qu'il devienne ''Hidden''. Je sais que ça se fais, mais je n'ai toujours pas réussis.
comprend toujours pas...
il faudrait que vous complétiez un peu votre modèle avec des titres, de façon à ce qu'on voit ce que vous voulez cacher
(par exemple un modèle avec une feuille liste "tous types" et une feuille avec ce que vous voulez voir en choisissant un type)
A tout hasard, dans mon modèle la colonne E vous donne uniquement les titres correspondants au type affiché en H3
a vous lire
il faudrait que vous complétiez un peu votre modèle avec des titres, de façon à ce qu'on voit ce que vous voulez cacher
(par exemple un modèle avec une feuille liste "tous types" et une feuille avec ce que vous voulez voir en choisissant un type)
A tout hasard, dans mon modèle la colonne E vous donne uniquement les titres correspondants au type affiché en H3
a vous lire
Votre 2e fichier ressemble plus a ce que je recherche, mais l'idéal serais comme ça:
http://www.cijoint.fr/cjlink.php?file=cj201011/cijo5MFSX2.xlsx
on vois dans les feuille 2 et 3 que les ligne complete ''disparaisse'' sans s'effacer ou se modifier, si vous regardez les numéro de ligne a gauche vous verrez que ce sont les même numéro mais qu'ils se sont collé.
http://www.cijoint.fr/cjlink.php?file=cj201011/cijo5MFSX2.xlsx
on vois dans les feuille 2 et 3 que les ligne complete ''disparaisse'' sans s'effacer ou se modifier, si vous regardez les numéro de ligne a gauche vous verrez que ce sont les même numéro mais qu'ils se sont collé.