code vba recherche

Version imprimable

06/12/2012, 09h33
Marc31

1 pièce(s) jointe(s)

code vba recherche

Bonjour à tous,

j'aimerais réaliser un outil de recherche dans une base de données.
Le principe serait que selon le choix de la liste deroulante, cela actualiserais la listbox.
Mais je ne sais pas du tout par quoi commencer et comment faire donc si quelqu'un pouvait m'aider, MERCI.
Et bonne journée.
06/12/2012, 11h58
Ariaar

Bonjour Marc31,

Tu devrais tout d'abord jeter un coup d'oeuil sur cet (excellent) tutoriel:
http://silkyroad.developpez.com/VBA/UserForm/

Sinon, tu devrais sûrement utiliser les fonctions Userform_Initialize et Listbox_Click qui te permettront de modifier les valeurs de tes listboxs.

J'espère que ça te permettra d'avancer dans ta réalisation ;)
06/12/2012, 13h44
patricktoulon

heu

bonjour
je suppose que ta recherche va se faire en fonction des criteres obtenus avec tes comboboxs ?

Les méthodes find et findnext me semblent tout indiquées

avec des conditions sur les offset de la cellule trouvée avec l' un des critères

au plaisir
06/12/2012, 13h56
Marc31

code vba recherche

Merci pour l'aide Ariaar et patrick!!

Oui là recherche va se faire en fonction des choix dans les listes deroulantes.

Initialisation de la listBox et changement de valeur après sélection

Un peu de code pour te guider;) :

Pour initialiser tes ListBoxs, si c'est en fonction d'une recherche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
 
    Dim myRange As excel.Range
 
    ' Utilisation de la fonction Find dont patricktoulon à parler
    ' Elle te retournera la première cellule contenant la valeur cherchée trouver
    Set myRange = excel.Range("maPlage").Find(What:="maValeur1", [Autres arguments facultatifs])
    If Not myRange Is Nothing Then
        Dim addr As String
 
        ' On stocke l'adresse de la cellule dans addr
        addr = myRange1.Address
        ' Cette boucle va ajouter toutes les valeurs cherchée dans ta ListBox
        Do
            ListBox.AddItem myRange.Value
            Set myRange = excel.Range("maPlage").FindNext(myRange)
        Loop While Not myRange Is Nothing And myRange.Address <> addr
    End If
 
End Sub

Et pour actualiser la ListBox:

Code:

1
2
3
4
5
6
Private Sub ListBox_Click()
 
    ' ici, tu pourras effectuer toutes les opération que tu veux sur toutes tes listBoxs,
    ' et notamment les mettre à jour en fonction des valeurs de ListBox
 
End Sub

La méthode Clear des ListBoxs te permettra de supprimer tous les éléments de la listBox, et tu pourras y ajouter les éléments trouver grâce à Find en lui donnant en paramètre ListBox.Value!

Voilà, j'espère que c'est plus clair pour toi ^^

06/12/2012, 16h33
Marc31

code vba recherche

Ahh ouiiii merci parce que la je sais même pas par où commencer!!!!
mais je vois deja un probleme car ma plage de données va être variable puisque c'est une base de données que l'on remplit au fur et à mesure!
06/12/2012, 17h11
Ariaar

Alors soit tu as une plage nommée et l'avantage c'est qu'elle sera dynamique, sinon c'est à toi de récupérer les bons paramètres dans ta base de données.

1 pièce(s) jointe(s)

bonjour,

j'ai eu un code similaire sur ce forum qui a resolue mon probleme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub TextBox1_Change()
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, n As Integer
Dim C As Range
ListBox1.Clear
n = 0
Recherche = TextBox1.Value
Range("a2").Select
Ligne = Sheets("Base De Données").Range("a" & "65536").End(xlUp).Row
Set Plage = Sheets("Base De Données").Range("a" & "1:" & "a" & Ligne)
With Plage
Set C = .Find(Recherche, , xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
          ListBox1.AddItem C.Offset(0, 0), n
        ListBox1.List(n, 0) = C
         ListBox1.List(n, 1) = C.Offset(0, 1)
          ListBox1.List(n, 2) = C.Offset(0, 2)
           ListBox1.List(n, 3) = C.Offset(0, 3)
            ListBox1.List(n, 4) = C.Offset(0, 4)
             ListBox1.List(n, 5) = C.Offset(0, 5)
             ListBox1.List(n, 6) = C.Offset(0, 6)
             ListBox1.List(n, 7) = C.Offset(0, 7)
              ListBox1.List(n, 8) = C.Offset(0, 8)
 
                n = n + 1
    End If
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
End Sub

07/12/2012, 11h59
Marc31

Merci pour le code parce que là j'avoue que je suis un peu largué....!!!
C'est dur de partir de 0

merci beaucoup le code marche super!!!!
Par contre est il possible de faire une 1 recherche est que cela affiche le resultat puis une seconde recherche qui affinerais la premiere recherche?
Enfin je sais pas si je me fais bien comprendre.
Petit exemple: 1 er recherche(choix liste deroultante) :association
2 ieme recherche(choix liste deroultante): ville (toulouse)

donc on obtiendrez toutes les associations de la ville de toulouse par exemple!
Encore merci

J'avais une petit question par rapport au code vba en fait, quand je fais une recherche sur une colonne par exemple la ville, il m'affiche dans mon tableau la ville en premier champ et le reste derriere mais comment faire si je veux afficher le nom de la structure en premier champ puis la ville en second?
Merci et bonne journée
07/12/2012, 14h51
Ariaar
Citation:

Envoyé par Marc31

Par contre est il possible de faire une 1 recherche est que cela affiche le resultat puis une seconde recherche qui affinerais la premiere recherche?

Si tu veux qu'une recherche soit générée à chaque fois que l'utilisateur fait un choix dans une de tes liste déroulantes, il te suffit d'effectuer les recherches/modifications sur le champs où sont affichées les résultats avec la procédure ListBox_Click dont je t'ai parlé précédemment.

Exemple:
- L'utilisateur choisi association dans ListBox1, tu affiches dans un Label (par exemple, je ne connais pas ton programme) les différents résultats que tu auras trouvé grâce à ListBox1_Click
- L'utilisateur choisi Toulouse dans ListBox2, tu effectues une première recherche, qui va te donner la liste des entreprises et associations de Toulouse. Tu n'as plus qu'à récupérer les associations seulement, ou de ne garder que les associations présentes dans le Label ET dans le résultat de ta recherche
10/12/2012, 14h27
Marc31

code vba recherche

Encore merci pour votre aide....
Et oui c'est tout à fait ça mais je ne vois pas comment faire pour parce que il y a une premiere liste deroulante puis il faut aller choisir le choix de la seconde en fonction de la premiere.

Je reprends l'exemple des associations et des villes, dans ListBox1 et ListBox 2.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
' Initialisation du UserForm
Private Sub UserForm_Initialize()
' ici tu reprends le code que je t'ai donné plus haut
End sub
 
' Opération se déclenchant lorsque l'utilisateur fait un choix sur la ListBox
' contenant les types de structures
Private Sub ListBox1_Click()
 
    ' pour vider la deuxième ListBox
    ListBox2.Clear
 
    ' Tu peux remplir la ListBox avec ce que tu veux
    ' avec la même technique que dans le UserForm_Initialize
 
    ' Ajoute le choix de l'utilisateur dans le Label affichant le résultat
    Label.Value = Label.Value & vbLf & ListBox1.Value
 
End Sub
 
' Opération se déclenchant lorsque l'utilisateur fait un choix sur la ListBox
' contenant les villes
Private Sub ListBox2_Click()
 
    ' Ici tu peux faire les même opérations que dans ListBox1_Click
 
End Sub

10/12/2012, 15h27
Marc31

code vba recherche

En fait j'ai qu'une listbox et plusieurs combobox avec du contenu definis.
10/12/2012, 15h33
Ariaar

Alors c'est ton jour de chance parce que ça fonctionne quasiment de la même manière ;)
10/12/2012, 16h10
Marc31

code vba recherche

Oui c'est bizarre car habituellement la chance n'est pas avec moi en vba!!!
10/12/2012, 16h19
Ariaar

Lol, bah teste le code et surtout oublie pas de marquer le poste comme résolu si ça marche :)

Si ça marche pas, cette fois il va me falloir un peu plus de détails parce que j'ai absolument aucune vision de ton code ou même de ton userform!

Bon courage ;)
10/12/2012, 17h16
Marc31

1 pièce(s) jointe(s)

code vba recherche

ben voilà pour le userform mais pour le code je vais encore essayer ce soir et si cela ne marche pas je le mettrais!

code vba recherche

Alors j'ai essayé plein de choses mais je suis revenu au code qui marchait.
Mais actuellement, les combobox sont indépendantes, elles affichent dans la listbox le résultat mis dans la combobox.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub ComboBox1_Change()
 
'type structure
 
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, n As Integer
Dim C As Range
ListBox1.Clear
n = 0
Recherche = ComboBox1.Value
Range("K2").Select
Ligne = Sheets("BDD").Range("K" & "65536").End(xlUp).Row
Set Plage = Sheets("BDD").Range("K" & "2:" & "K" & Ligne)
With Plage
Set C = .Find(Recherche, , xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
          ListBox1.AddItem C.Offset(0, 0), n
        ListBox1.List(n, 0) = C
         ListBox1.List(n, 1) = C.Offset(0, -1)
          ListBox1.List(n, 2) = C.Offset(0, 1)
           ListBox1.List(n, 3) = C.Offset(0, 4)
            ListBox1.List(n, 4) = C.Offset(0, -10)
             ListBox1.List(n, 5) = C.Offset(0, -9)
             ListBox1.List(n, 6) = C.Offset(0, -8)
             ListBox1.List(n, 7) = C.Offset(0, 5)
              ListBox1.List(n, 8) = C.Offset(0, 7)
 
 
                n = n + 1
    End If
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
 
End Sub

11/12/2012, 15h56
Ariaar

Pour que les ComboBoxs soient "dépendantes", il te suffit de changer leur contenu dans ComboBox1_Change(), en faisant la même chose que sur ListBox1
12/12/2012, 15h00
Marc31

Oui j'ai essayé mais je comprends pas comment faire car il y a plusieurs combobox et le premier choix peut être l'une des 8 combobox.

Je n'arrive pas à l'intégrer.....
12/12/2012, 16h52
Ariaar

Tu peux poster le code que tu as essayé d'intégrer?
13/12/2012, 09h58
Marc31

code vba recherche

Et non je suis désolé comme cela ne marchait pas j'ai effacé car je travaille en direct sur l'outil et que comme mes collegues l'utilisent en même temps je ne peux pas laisser des bugs!
13/12/2012, 10h26
Ariaar

OK, si tu essayes autre chose et que ça ne marche pas, poste le code et j'essaierais de le corriger ;)
13/12/2012, 11h16
Marc31

code vba recherche

Encore merci pour l'aide mais j'abandonne j'y arrive pas ça fait plusieurs jours que je suis bloqué dessus.
Bonne journée