Discussion :

[UDSP50]

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

[Daniel.C]

Bonjour,

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 :

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

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

[eric4459]

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 :

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
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 :

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

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:

ComboBox et TextBox.xlsm

Est-ce que cela te convient?

Eric

[UDSP50]

Super Eric ca marche super

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

A+ tout le monde etmerci

[eric4459]

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