Discussion :

[duplaly]

bonjour
j'ai besoin d'aide pour écrier la syntaxe. je veux à partir du choix fait dans mon combobox1 et mon combobox2 afficher l'information associée dans un textbox.
mes combobox sont alimentés déjà.
merci pour toute aide.

[BlueMonkey]

Bonjour,

Pour afficher dans TextBox1 la concaténation des valeurs affiché dans Combox1 et Combobox2 à chaque changement dans une des ComboBox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
    UpdateTextBox
End Sub
 
Private Sub ComboBox2_Change()
    UpdateTextBox
End Sub
 
Sub UpdateTextBox()
    TextBox1.Value = ComboBox1.Value & ComboBox2.Value
End Sub

[duplaly]

Merci pour la réponse, mais ce n'est pas mon cas actuellement. Je m'explique autrement.
je travaille sur une de données
la colonne (A) Prenom est chargé dans le combobox1
la colonne (B) Nom est chargé dans le combobox2
je voudrais écrire un code me permettant d'afficher l'âge dans un textbox en fonction du choix dans les 2 combobox. lorsque je sélectionne en A un prénom dont 2 noms sont possibles, le textbox ne m'affiche pas la bonne correspondance.
voici le code que j'utilise présentement

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox2_Click()
 Set c = Sheets("Coordonnées").Columns("B").Find(ComboBox2. Value, LookIn:=xlValues, lookat:=xlWhole)
 If Not c Is Nothing Then
 TextBox2 = c.Offset(0, 1)
 TextBox6 = Format(c.Offset(0, 10), "0.00$")
 TextBox7 = c.Offset(0, 8)
 End If
 End Sub

[BlueMonkey]

Si la liste des valeurs commence en ligne 1 :

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
Private Sub ComboBox1_Change()
    UpdateTextBox
End Sub
 
Private Sub ComboBox2_Change()
    UpdateTextBox
End Sub
 
Sub UpdateTextBox()
    Dim lastLine As Long
    Dim i As Long
 
    With Sheets("Coordonnées")
        lastLine = .Range("A1").End(xlDown).Row
 
        For i = 1 To lastLine
            If .Range("B" & i).Value = ComboBox2.Value Then 'filtre Nom
                If .Range("A" & i).Value = ComboBox1.Value Then 'filtre Prénom
                    TextBox2.Value = .Range("C" & i).Value
                    TextBox6.Value = Format(.Range("L" & i).Value, "0.00$")
                    TextBox7.Value = .Range("J" & i).Value
                End If
            End If
        Next i
    End With
End Sub

[duplaly]

Un grand merci. Tout fonctionne

[BlueMonkey]

Content que la solution convienne
A+