ListeBox + Filtre données

  • Initiateur de la discussion Initiateur de la discussion max.lander
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

max.lander

XLDnaute Occasionnel
Bonjour à tous,

Je me permets de solliciter votre aide dans la résolution de mon problème!

Je suis en train d'essayer de mettre en place une listeBox sensé filtré une liste de données(sous excel 2007) mais voila je vois pas comment faire pour aller au plus simple.

Je vous joins ma trame en espérant que vous puissiez m'aider.

Merci par avance.
 

Pièces jointes

Re : ListeBox + Filtre données

Bonjour Chris401, dominique35,

Merci pour vos solutions, j'ai juste oublié de préciser que je souhaitais garder cette présentation car à terme je vais masquer le colonne services et ne laisser apparaitre que les noms.

Si je comprends bien il n'existe pas de solution sans passer par une macro?


Merci à vous
 
Dernière édition:
Re : ListeBox + Filtre données

Salut à tous,

exene merci encore pour cette piste mais je trouve les listes en cascade un peu compliqué pour mon problème.

Alors je vais plutôt utiliser la solution que vous trouverez en pj.

Mais 2 problèmes se posent :
un code laborieux et des soucis à l'insertion de nouvelles lignes il faut modifier le code à chaque fois.

Si quelqu’un a des améliorations je suis preneur.


Merci par avance
 

Pièces jointes

Re : ListeBox + Filtre données

Salut Joss,

Pas de soucis, concernant mon projet Planning et gestion des temps, j'ai du me résoudre à abandonner la solution PALO, du moins pour la parti planning, j'y compte y revenir pour la parti gestion des temps...

Je suis donc revenu à un stockage classique sous excel, d' ou les questions du jour.
 
Re : ListeBox + Filtre données

Salut bebere,


c'est totalement ce qu'il me fallait, merci beaucoup!
cependant peux-tu me commenter ton code?

Merci par avance
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$E$3" Then
        Cells.Rows.Hidden = False
        derl = Range("B65536").End(xlUp).Row
        Select Case Target
        Case "Tous"
            Rows("5:" & derl).Hidden = False
        Case Else
            For l = 5 To derl
                If Cells(l, 2) = Target Then
                    Rows(l).Hidden = True
                End If
            Next
        End Select
    End If
    
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
508
Réponses
5
Affichages
701
Retour