ARNAUD ZIRIPE
XLDnaute Occasionnel
Bonjour à Tous
Je me tourne vers vous afin de m'aider à résoudre un problème.
Le problème est le suivant:
J'ai une Base de données dans la feuille ("Feuil1").
J'ai 6 boutons d'options nommés (CP1, CP2, CE1, CE2, CM1, CM2) et une ComboBox1 qui contient (compo Décembre, Compo Février, Compo Avril et Compo Mai).
j'ai également une ListeBox1
l'idée ici est qu'en cliquant sur l'un des boutons d'options, apparaissent dans la ListBox1 la liste tous les élèves appartenant à la classe choisie.
petite précision: dans la base de donnée("Feuil1) , Matricule= colonne "A", Nom=colonne "C", Prénom=colonne"D".
en suite vient le tour de la Combobox1
En choisissant l'une des compos, apparaissent en face ce la liste toujours dans
la listbox1 les Infos de la colonne "E" si c'est pour compo Décembre qui est choisi
"F" pour compo Février
"G"Pour compo Avril
"H"pour compo Mai
J'ai utilisé cette macro que voici pour le filtre avec les boutons d'option. ça marche bien dans la base mais pour le reste ce compliqué pour moi.
Private Sub OptionButton1_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CP1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CP2", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton3_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CE1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton4_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CE2", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton5_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CM1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton6_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CM2", _
Operator:=xlOr, Criteria2:="="
End Sub
Merci de bien vouloir m'aider car ce compliqué pour moi
Je me tourne vers vous afin de m'aider à résoudre un problème.
Le problème est le suivant:
J'ai une Base de données dans la feuille ("Feuil1").
J'ai 6 boutons d'options nommés (CP1, CP2, CE1, CE2, CM1, CM2) et une ComboBox1 qui contient (compo Décembre, Compo Février, Compo Avril et Compo Mai).
j'ai également une ListeBox1
l'idée ici est qu'en cliquant sur l'un des boutons d'options, apparaissent dans la ListBox1 la liste tous les élèves appartenant à la classe choisie.
petite précision: dans la base de donnée("Feuil1) , Matricule= colonne "A", Nom=colonne "C", Prénom=colonne"D".
en suite vient le tour de la Combobox1
En choisissant l'une des compos, apparaissent en face ce la liste toujours dans
la listbox1 les Infos de la colonne "E" si c'est pour compo Décembre qui est choisi
"F" pour compo Février
"G"Pour compo Avril
"H"pour compo Mai
J'ai utilisé cette macro que voici pour le filtre avec les boutons d'option. ça marche bien dans la base mais pour le reste ce compliqué pour moi.
Private Sub OptionButton1_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CP1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CP2", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton3_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CE1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton4_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CE2", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton5_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CM1", _
Operator:=xlOr, Criteria2:="="
End Sub
Private Sub OptionButton6_Click()
ActiveSheet.Range("$A$1:$AX$1087").AutoFilter Field:=4, Criteria1:="=CM2", _
Operator:=xlOr, Criteria2:="="
End Sub
Merci de bien vouloir m'aider car ce compliqué pour moi
Dernière édition: