Selection d'une cellule par rapport à valeur d'une listbox

Bonjour,

Je cherche une solution simple à ce problème :

J'ai une listbox alimentée par une combobox. Jusque là pas de problème.

Ce que je voudrais, c'est pouvoir sélectionner une des propositions de la listbox, de cliquer sur le bouton et de retrouver la cellule contenant la sélection de ma listbox.

par exemple, avec le fichier ci-joint :

J'ouvre mon UserForm1 - Je sélectionne avec la ComboBox1 : "VILLE 1" - Je sélectionne avec la ListBox1 : "2,1" - Je valide en cliquant sur le bouton de l'UserForm et cela doit me sélectionner la cellule "B2".

J'espère que vous pourrez m'aider car cela ne doit pas être très compliqué mais je ne trouve aucune solution.

Merci d'avance pour votre aide

Bonjour,

Une solution

A+

Merci beaucoup, c'est parfait !!!

Je vais bien étudier les différentes étapes afin de comprendre cette macro.

Merci encore

Bonjour,

Finalement, il me resterait une dernière petite question afin de bien finaliser mon projet, est-il possible, avec la solution de Frangy, d'afficher les valeurs dans la listbox par colonne et non par ligne ?

Par exemple, pour VILLE1, j'aimerais qu'il me propose dans la listbox :

1 1.1 1.2

2 2.1 2.2

J'ai eu beau changer le nombre de colonnes mais cela ne fonctionne pas :

Private Sub UserForm_Initialize()
Dim d As Object, Tablo, i As Long
    Set d = CreateObject("Scripting.Dictionary")
    Tablo = Sheets("Feuil2").Range("A1:A" & Range("A65000").End(xlUp).Row).Value
    For i = 1 To UBound(Tablo)
        If Not d.exists(Tablo(i, 1)) Then d.Add Tablo(i, 1), Tablo(i, 1)
    Next
    ComboBox1.List = d.Items
    Erase Tablo
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
    End With
End Sub

Merci d'avance pour votre aide

Eh bien j'ai fini par y arriver toute seule comme une grande !!!! Comme quoi, même lorsqu'on débute, il suffit de suivre la logique Vba...

Il suffisait d'ajouter :

          For Y = 1 To 1
              ListBox1.AddItem Tablo(k, Y)
              ListBox1.List(ListBox1.ListCount - 1, 0) = Tablo(k, Y) '0 étant la première colonne
              ListBox1.List(ListBox1.ListCount - 1, 1) = Tablo(k, Y + 1)
              ListBox1.List(ListBox1.ListCount - 1, 2) = Tablo(k, Y + 2)

Si cela peut aider quelqu'un d'autre...

Merci encore à Frangy pour l'aide apportée.