XL 2010 Masquer les lignes en fonction du résultat d'une liste déroulante

Titi456 · 27 Novembre 2023

Bonjour,

Je souhaiterais pouvoir masquer les lignes ne correspondant pas au résultat de ma liste déroulante (cellule A1).

Exemple 1: Si cellule A1 = 8, j'aimerais que les lignes 5 à 8 et 10 à 13 soient masquées automatiquement.
Exemple 2: Si cellule A1 = 10, j'aimerais que les lignes 5 à 9 et 11 à 13 soient masquées automatiquement.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

job75 · 27 Novembre 2023

Utilisez le paramètre UserInterfaceOnly :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Me.Protect Password:=".", UserInterfaceOnly:=True
If Range("A1") = "" Then Rows("5:13").Hidden = False: Exit Sub
For Each c In Range("A5:A13")
    c.EntireRow.Hidden = c <> Range("A1")
Next
End Sub

fanfan38 · 27 Novembre 2023

Bonjour
Ci joint ma solution (en VBA)

A+ françois

Titi456 · 27 Novembre 2023

Bonjour Fanfan38,

Merci beaucoup pour votre aide. Votre code fonctionne parfaitement bien; le seul bémol c'est qu'il ne réaffiche pas toutes les lignes quand je vide la cellule A1 mais il est vrai que je ne l'avais pas mentionné dans ma demande initiale.

Mes meilleures salutations et bon début de semaine.

Thierry

fanfan38 · 27 Novembre 2023

La macro modifiée

A+ François

Titi456 · 27 Novembre 2023

Merci pour votre aide mais le réaffichage des lignes lorsque je vide la cellule A1 ne fonctionne malheureusement pas chez moi avec votre macro modifiée.

fanfan38 · 27 Novembre 2023

Corrigé (A1 ne doit pas être fusionné)

A+ François

job75 · 27 Novembre 2023

Bonjour Titi456, fanfan38,

Ce code est plus simple :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Range("A1") = "" Then Rows("5:13").Hidden = False: Exit Sub
For Each c In Range("A5:A13")
    c.EntireRow.Hidden = c <> Range("A1")
Next
End Sub

Comme il y a peu de lignes il est inutile de tester Target.

A+

Titi456 · 27 Novembre 2023

job75 à dit:
Bonjour Titi456, fanfan38,

Ce code est plus simple :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Range("A1") = "" Then Rows("5:13").Hidden = False: Exit Sub For Each c In Range("A5:A13") c.EntireRow.Hidden = c <> Range("A1") Next End Sub

Comme il y a peu de lignes il est inutile de tester Target.

A+

Bonjour Job75,

Effectivement votre code est plus simple et je vous en remercie.
Je souhaiterais juste y ajouter un verrouillage de la feuille mais je suis pas fichu d'y arriver .

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="."
Dim c As Range
If Range("A1") = "" Then Rows("5:24").Hidden = False: Exit Sub
For Each c In Range("A5:A24")
    c.EntireRow.Hidden = c <> Range("A1")
Next
ActiveSheet.Protect Password:="."
End Sub

Mes meilleures salutations,

Thierry

job75 · 27 Novembre 2023

Utilisez le paramètre UserInterfaceOnly :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Me.Protect Password:=".", UserInterfaceOnly:=True
If Range("A1") = "" Then Rows("5:13").Hidden = False: Exit Sub
For Each c In Range("A5:A13")
    c.EntireRow.Hidden = c <> Range("A1")
Next
End Sub

Titi456 · 27 Novembre 2023

job75 à dit:

Utilisez le paramètre UserInterfaceOnly :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Me.Protect Password:=".", UserInterfaceOnly:=True
If Range("A1") = "" Then Rows("5:13").Hidden = False: Exit Sub
For Each c In Range("A5:A13")
    c.EntireRow.Hidden = c <> Range("A1")
Next
End Sub

Re bonjour,

C'est parfait! Merci à vous deux pour votre aide.

Mes meilleures salutations,

Thierry

job75 · 27 Novembre 2023

Ce qui n'est pas parfait c'est de mettre votre post #10 comme solution de ce fil.

En effet vous n'avez trouvé aucune solution, merci de corriger.

Titi456 · 28 Novembre 2023

job75 à dit:
Ce qui n'est pas parfait c'est de mettre votre post #10 comme solution de ce fil.

En effet vous n'avez trouvé aucune solution, merci de corriger.

Oui pardon. C'est corrigé

XL 2010 Masquer les lignes en fonction du résultat d'une liste déroulante

Titi456

XLDnaute Junior

Pièces jointes

job75

fanfan38

XLDnaute Barbatruc

Pièces jointes

Titi456

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

Pièces jointes

Titi456

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Titi456

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

Titi456

XLDnaute Junior

job75

XLDnaute Barbatruc

Titi456

XLDnaute Junior

Discussions similaires