[VBA E-03] Novice, filtrer une BDD et afficher dans une Listview.

Bonjour et touts mes voeux pour 2009 au forum.

Etant novice, je me jette à l'eau, mais je ne sais pas si je suis sur le bon forum. Si c'est le cas je m'en excuse d'avance.
Voilà ma question:
j'aimerais filtrer une BDD selon une valeur sélectionnée à partir d'une combobox qui reprend les donnée de la feuille "BDD" colonne "A" pour ensuite afficher dans une listview les colonnes et lignes qui correspondent a cette valeur.
autrement dit: dans la feuille "BDD" colonne "A" ,tant que la valeur est "mai - 2008" affiche dans la listview les colonnes et lignes correspondantes.

d'avance merci pour vos réponses.

Bonjour et bienvenu sur le forum,

Pour commencer, qu'as-tu déjà codé ?

Pour faire ce filtre avec la sélection de ta combobox je vois quelque chose comme :

Code:

---

1 2 3 4 5 6 7

Private Sub combo_Change() For i = 1 To BDD.Range("A65536").End(xlUp).Row If combo.Value = BDD.Cells(i, 1) Then ListBox.AddItem BDD.Cells(i, Y) End If Next End Sub

---

(pas testé donc à adapter;))

A chaque changement de ta combo, il prend sa valeur et la compare avec les valeurs de la colonne A et si c'est pareil il ajoute les valeurs de la ligne i colonne Y (à préciser) à la listbox.

Si tes valeurs sont des strings, tu peux utiliser "strcomp" pour la condition.

Bonjour Zandru et encore merci car je rame vraiment. j'éspere etre au bon endroit pour repondre.
Voila ta demande pour t'eclairer
J'ai dans une Form_recherche le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Userform_()Activate ' ComboBox choix, Affiche la liste des mois - année de la feuille ("BDD") colonne ("A") sans doublons Worksheets("BDD").Select Dim j As Integer For j = 2 To Sheets("BDD").Range("A65536").End(xlUp).Row Lst_choix = Range("A" & j) If Lst_choix.ListIndex = -1 Then Lst_choix.AddItem Range("A" & j) Next j End sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Btn_valider_Click() Dim moisAnnee As String moisAnnee = Lst_choix.Value Worksheets("BDD").Select Range("A2").Select Do Until (ActiveCell.Value = moisAnnee) ActiveCell.Offset(1, 0).Select Loop Frm_rechercher.Hide Call Consulter End Sub

---

Tout ceci fonctionne jusqu'à présent, mais je pense que le problème se situe dans la form_consulter ci-dessous:

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() Dim tableau, y& ' Trie les données de la base par ordre croissant Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

---

Le problème se situe ici à mon avis ( comment lui dire, tant que la valeur de combobox est dans la feuille "BDD" colonne "A" affiche dans listview les colonnes et lignes située à droite de "A"
Avec ceci, cela m'affiche dans la listvieuw toutes les données de la "BDD"

Code:

---

1 2 3

Selection.CurrentRegion.Select tableau = Selection.Value ' Remplissage ListView

---

Mille merci d'avance.
fadan