Recherche de données à partir d'un ComboBox

Version imprimable

04/11/2019, 17h51
TchiotPols

1 pièce(s) jointe(s)

Recherche de données à partir d'un ComboBox

Bonjour à Toutes et à Tous,
Autodidacte en VBA, j'ai un problème dont je pense connaître la raison mais que je n'arrive pas à résoudre. A partir du ComboBox1 (initialisé à l'ouverture du fichier), je désire retrouver la valeur de ce ComboBox1 dans la ou les n cellules de la colonne K pour incrémenter en Item le ComboBox2 avec les correspondances des cellules trouvées de la colonne L. ComboBox en cascade.
Je ne retrouve pas les n solutions possibles par rapport à la valeur recherchée pour incrémenter les Items du ComboBox2.
Par exemple : pour la valeur "2006", j'ai bien mes 2 Items alors que pour la valeur "2004" je n'en retrouve qu'un au lieu de 3.
Mon problème est certainement dû à la déclaration des valeurs ; celle du ComboBox1 par rapport à celle(s) de la colonne K. Dans ma colonne K, je sais j'ai du "string" et du "Integer" ou "Long".
Néanmoins est-il possible d'avoir une solution pour retrouver toutes les valeurs recherchées ou faut-il refondre le tableau pour avoir une année = un lieu par ligne ?
J'ai essayé avec Find et Find_Next en cherchant sur internet. Mais je ne comprends pas tout dans le code.
Voir mon fichier joint.
Par avance merci.

Bonjour,

Citation:

Envoyé par TchiotPols

Mon problème est certainement dû à la déclaration des valeurs ; celle du ComboBox1 par rapport à celle(s) de la colonne K.

Tu as bien situé le problème car comme tu as plusieurs années sur la même ligne il ne faut tester que la présence.
Je te propose ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Change()
Dim y As Long
With Sheets("Feuil1")
    .ComboBox2.Clear ' initialise le combo
    For Lig = 2 To 8
        'initialisation de la variable "x" représentant l'année dans la colonne K de l'onglet "Feuil1"
        x = .Cells(Lig, 11).Value
        'initialisation de la variable "y" représentatn la valeur recherchée du ComboBox1
        y = .ComboBox1.Value
        'comparaison des deux valeurs
        If InStr(x, y) > 0 Then 'teste la présence de la valeur du combo dans la ligne
            'sil les 2 variables sont identiques, récupération de la valeur du lieu colonne L
            celval = .Range("L" & Lig).Value
            'ajout de la valeur du lieu trouvé comme item au ComboBox2
            .ComboBox2.AddItem celval
        End If
    Next Lig
End With
End Sub

Cela devrait te donner satisfaction.

05/11/2019, 11h31
TchiotPols

Bonjour anasecu,

Réponse rapide = grand plaisir pour le demandeur...:lol: J'ai testé ton code. Cela marche à merveille. Je savais, comme d'habitude sur ce forum, que je trouverai quelqu'un de bien. Un grand merci à toi et bonne continuation.:D:applo: