combobox et remonté de données

Version imprimable

03/02/2015, 19h18
UDSP50

combobox et remonté de données

bonjour,

j'ai cherché un peu partout et notamment ici mais soit je n'ai pas compris ou su adapter mais je n'ai pas reussi a trouver mon bonheur

j'ai une feuille excel

colonne A et colonne B

jai un form avec un combobox et un textbox

mon combo dans le rawsource me liste toute la colonne A

Ce que je n'arrive pas a faire :
quand je clique sur un des mots de la liste du combo, j'aimerai qu'il m'affiche dans le textbox le mot lié de la colonne B

Exemple : si je clic sur toto (A3) de la liste, dans le textbox il devrait afficher Vélo (B3)

merci

Bonjour,

Citation:

mon combo dans le rawsource me liste toute la colonne A

Est-ce que c'est vraiment toute la colonne ? Ou est-ce que tu n'as pas de problème à ce niveau ?

Adapte et essaie :
Code:

1 2 3 4 5 6 7 8 9 Private Sub ComboBox1_Change() Dim Ligne As Variant Ligne = Application.Match(Me.ComboBox1.Value, [A:A], 0) If IsNumeric(Ligne) Then Me.TextBox1.Text = Cells(Ligne, 2).Value Else MsgBox "résultat non trouvé" End If End Sub

1 pièce(s) jointe(s)

Bonjour
Essayes ce code :
A coller dans un module du classeur dont deux feuilles sont renommées Lancer (qui contient un bouton pour lancer la macro)et Liste_Combo (qui contient les données)

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
Option Explicit
Sub Choix()
Dim LST As Worksheet
Set LST = ThisWorkbook.Sheets("Liste_Combo")
 
 Choix_Liste.ComboBox1.List = LST.Range("A1:A6").Value
 Choix_Liste.Show
 
End Sub
Sub ComboText()
 
Dim LST As Worksheet
Dim i As Integer
Dim Lst_Cbx As Range
Dim Der As Integer
Set LST = ThisWorkbook.Sheets("Liste_Combo")
Set Lst_Cbx = LST.Range("A1")
Lst_Cbx = Lst_Cbx.Offset(0)
 
 
With Sheets("Liste_Combo")
Der = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
For i = 0 To Der
 If Choix_Liste.ComboBox1.Value = Lst_Cbx.Offset(i, 0) Then
 
            Choix_Liste.TextBox1.Value = Lst_Cbx.Offset(i, 1)
 
  End If
Next i
Choix_Liste.Show
End Sub

Colles celui-ci dans un UserForm que tu auras renommé Choix_Liste

Code:

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
Me.Hide
ComboText
End Sub
 
Private Sub CommandButton1_Click()
Unload Me
End Sub

Ci-joint le fichier:

Pièce jointe 168071

Est-ce que cela te convient?

Eric

04/02/2015, 15h28
UDSP50

Super Eric ca marche super

Merci a toi Daniel je garde aussi ton code ça peu me resservir

A+ tout le monde etmerci
04/02/2015, 15h56
eric4459

Bonjour,
n'oublies pas le bouton :resolu: si c'est le cas ;) et :plusser: si tu en a envie
Merci et à bientôt
Eric