remplir textbox avec combobox

Version imprimable

07/04/2012, 02h52
duplaly

remplir textbox avec combobox

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.

Bonjour,

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

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

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:

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

Si la liste des valeurs commence en ligne 1 :

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

07/04/2012, 07h44
duplaly

Un grand merci. Tout fonctionne
07/04/2012, 08h07
BlueMonkey

Content que la solution convienne :ccool:
A+