Recherche userform avec plusieurs filtres au choix

Bonjour a toutes et a tous

Je sais que mon problème a déjà fait l'objet de plusieurs discussions

mais je n'arrive pas à les associer au miens

Dans un userform, je voudrais créer une recherche de certaines données qui se trouvent sur une feuille

Pour cela, dans mon userform j'ai 3 combobox (dont 2 en cascade) et un textbox et biensur une listbox où s'affiche les éléments trouvés

Si c'est possible, pouvoir faire une recherche avec l'un d'entre eux ou peaufiner la recherche les autres combobox ou textbox

J'ai réussi à le faire avec un combobox par un code trouvé sur le net mais apres je coince

Et par la suite, effacer la ligne sélectionner de ma listbox

Pour de meilleurs explication je joins un fichier d'exemple

Merci d'avance

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour a vous,

et merci beaucoup pour votre aide

les modifications apportées sont presque parfait

cependant il y a quelques petites choses qui fraudaient modifier

Je joins le fichier avec les explications dessus en espérant que c'est compréhensible

Merci d'avance

J’avoue ne pas très bien comprendre.

Si par exemple les éléments jaunes de Bâtiment (A1, A2…A10) sont ceux du combobox2 qui est en cascade avec le combobox1 qui lui contient la liste des parcs (Parc 1, Parc 2…Support), alors pourquoi y a-t-il dans le tableau de la feuille ‘’OT Global’’ des couples comme Parc 1 – B1 en ligne 2 ou Parc 1 – G5 en ligne 6 ?

Dans la feuille listing, tu associes pourtant la couleur jaune de Parc 1 à celles des éléments jaunes A1...A10 et non à des éléments B ou G ...

Bye !

Effectivement c'est une chose que je n'avais pas fait attention

revoici mon exemple en pièce jointe où j'ai modifier cela

j'espère que ça sera compréhensible

Bonjour

Nouvelle version.

Bye !

Merci pour cette nouvelle version

Elle fonctionne comme je le souhaite

petite question:

pourrai-tu m'expliquer le code du bouton "supprimer"??

Private Sub CommandButton1_Click()      'Bouton supprimer
    fog.Range("A" & i & ":G" & i).Delete shift:=xlUp
    MsgBox "Ligne supprimée"
    Unload Me
End Sub

Je sais que fog = Sheets("OT Global")

mais les 2 "i" ??

Merci

Seb77 a écrit :

pourrai-tu m'expliquer le code du bouton "supprimer"?

...Je sais que fog = Sheets("OT Global")

mais les 2 "i" ??

quand tu cliques sur le bouton supprimer, l’userform1 est toujours actif et tu viens de cliquer sur une ligne de la Listbox1.

Ce faisant, tu as déclenché la macro qui définit la valeur de i :

Private Sub ListBox1_Click()
    i = ListBox1.Column(7, ListBox1.ListIndex)
End Sub

C’est la valeur de la 7° colonne de la Listbox1 pour la ligne où tu as cliqué. Cette colonne est masquée car sa largeur est égale à zéro. Mais elle donne le numéro de la ligne grâce à l’instruction qui a chargé la listbox :

Sub ChargementListBox()
…
ListBox1.List(ListBox1.ListCount - 1, 7) = Lign
…

OK ?

Bye !

Rechercher des sujets similaires à "recherche userform filtres choix"