Alimenter Textbox avec Combobox

[papypog]

Bonjour,

Le sujet a déjà été traité en autre ici ICI mais ne satisfait pas à mon bonheur.

Je me suis bien inspiré de exemple de l'excellent PierreJean mais dans le fichier ci-joint les textbox ne sont pas complétées.

Une bonne âme voudrait-elle bien m'indiquer le pourquoi et comment y remédier.

D'avance Merci

 

[CHALET53]

Re : Alimenter Textbox avec Combobox

Bonjour,
un essai

Private Sub ComboBox5_Change()
'Stop
'ici, je souhaite qu'en sélectionnant une valeur dans la combobox j'ai dans les textbox_
'les valeurs des lignes correspondantes des colonnes B et C
For n = 2 To Sheets("2013").Range("A65536").End(xlUp).Row

If Sheets("2013").Range("A" & n) = Val(ComboBox5) Then
TextBox1 = Sheets("2013").Range("B" & n)
TextBox2 = Sheets("2013").Range("C" & n)
n = Sheets("2013").Range("A65536").End(xlUp).Row
End If
Next
End Sub

a+

 

[Dranreb]

Re : Alimenter Textbox avec Combobox

Bonjour.

Private Sub ComboBox5_Change()
Dim L As Long
L = Me.ComboBox5.ListIndex + 2
If L > 1 Then
   Me.TextBox1.Text = Feuil3.Cells(L, 2).Value
   Me.TextBox2.Text = Feuil3.Cells(L, 3).Value
   End If
End Sub

Cordialement.

Salut PierreJean et Chalet53.

 

[pierrejean]

Re : Alimenter Textbox avec Combobox

Bonjour papypog

Salut CHALET53

Ma version:

Private Sub ComboBox5_Change()
'ici, je souhaite qu'en sélectionnant une valeur dans la combobox j'ai dans les textbox_
'les valeurs des lignes correspondantes des colonnes B et C
With Sheets("2013")
For n = 2 To .Range("A65536").End(xlUp).Row
   If .Range("A" & n) = CInt(ComboBox5) Then
     TextBox1 = .Range("B" & n)
     TextBox2 = .Range("C" & n)
   End If
Next
End With
End Sub

Edit: Salut Dranreb

 

[papypog]

Re : Alimenter Textbox avec Combobox

Bonjour PierreJean,

je savais bien que tu allais passer par là, un grand MERCI cela fonctionne à merveille.

J'avais essayé "With Sheets("2013")" sans plus de succès.

Peux-tu éclairer ma lanterne sur l'apport de "CInt"

 

[pierrejean]

Re : Alimenter Textbox avec Combobox

Re

Les Textbox et Combobox n'accueillent que du texte .Si l'on veut un chiffre il faut passer par la conversion. En l'occurence Cint transforme en Integer (nombre entier)

 

[papypog]

Re : Alimenter Textbox avec Combobox

Re MERCI

Me voilà moins bête.