Discussion :

[fadan]

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.

[zandru]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fadan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Selection.CurrentRegion.Select
    tableau = Selection.Value
    ' Remplissage ListView

Mille merci d'avance.
fadan