Discussion :

[Bklein51]

Bonjour,

Je vais essayer d'expliquer simplement mon problème :

J'ai un fichier excel avec deux colonnes (A & B).
A chaque valeur de la colonne A correspond une valeur de la colonne B

J'utilise un formulaire dans lequel se trouve un combobox. Les items de cette Combobox sont les valeurs de la colonne A.

J'aimerai que lorsque je sélectionne une valeur de la colonne A par l'intermédiaire de la Combobox, la valeur de la colonne B correspondante (sur la même ligne) se reporte dans un label du formulaire.

Est-ce possible ?

Merci d'avance,

[Kimy_Ire]

Bonjour Bklein51,

Voici ce que je te propose. Il y a "plus" rapide si tu es sur les cellules [A1, B1], [A2, B2], etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ComboBox1_Change()
With Worksheets("Bklein51")
    Me.Label1 = .Columns(1).Find(Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1).Value
End With
End Sub
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
 
With Worksheets("Bklein51")
    Me.ComboBox1.List() = .Range("A1:A" & .Columns(1).Find("*", , , , , xlPrevious).Row).Value
    Me.ComboBox1.ListIndex = 0
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Bklein51]

Salut et merci à toi, je me suis fortement inspiré de ton exemple et ça marche nickel !

Encore merci et bonne journée