W
Willy
Guest
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
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