Recherche par categorie

[Willy]

Bonjour à tous,

J'ai une liste de A à E contenant les infos sur le personnel pompier.

La liste d'infos se présente comme ceci :

ColonneA ColonneB ColonneC ColonneD ColonneE
NOM PRENOM STATUT FONCTION GRADE
______________________________________________________
DURAND MARCEL SPP CA/VSAB ADJUDANT
DUPOND JEAN SPV EQUIPIER CAPORAL/CHEF
DUMUR PIERRE SPV EQUIPIER SERGENT
DUCUIR PAUL SPP CDG SERGENT
Etc ...
______________________________________________________
**********


Dans un userform j'ai une listBox ainsi que plusieurs checkBox

En Lançant le userform, la liste reçoie tous les noms et prénoms du personnel comme ceci :

Option Explicit
Dim VarListe_Rech As Integer

Private Sub userform_Initialize()
' CHARGE LA LISTE DES NOMS PAR DEFAUT
Dim PlageNom As String
VarListe_Rech = Sheets("BDD").Range("A501").End(xlUp).Row
PlageNom = Sheets("BDD").Range("A2:B" & VarListe_Rech).Address

' Prepare la listbox avec 2 colonnes
ListBox_Rech.ColumnCount = 2
ListBox_Rech.RowSource = "BDD!" & PlageNom
ListBox_Rech.ColumnWidths = "70;70"

' Active le checkbox NOMS
OptionButton1.Value = True
OptionButton1.ForeColor = RGB(0, 255, 255) ' Cyan
End Sub


Mon but est d'avoir une recherche par nom, fonction ou grade
par exemple, en cliquant sur la checkBox CA/VSAB, afficher toutes les personnes qui possèdent cette fonction comme ceci dans la listBox :
DUPONT Jean CA/VSAB
DUFRESNE Bernard CA/VSAB
Etc...

Et ainsi de suite.

Bon pour la checkBox NOM c'est pas compliqué (lol), c'est la même que l'initialisation de l'USF :

Private Sub OptionButton1_Click()
' CHECKBOX NOM et prénom
Dim PlageNom As String
VarListe_Rech = Sheets("BDD").Range("A501").End(xlUp).Row
PlageNom = Sheets("BDD").Range("A2:B" & VarListe_Rech).Address

ListBox_Rech.ColumnCount = 2
ListBox_Rech.RowSource = "BDD!" & PlageNom
ListBox_Rech.ColumnWidths = "70;70"
End Sub

Comment effectuer une recherche pour afficher les personnes qui possèdent une fonction ou un grade précis et juste les personnes concernées ?

Quelle méthode de recherche me conseillez vous ?

Merci pour vos idées

Willy

 

[Willy]

Bonjour le forum,

Je joint un petit exemple pour plus de clarté

merci beaucoup

Willy