Alimenter Textbox avec Combobox

C

CHALET53

XLDnaute Barbatruc

• 13 Novembre 2012

• #2

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Novembre 2012

• #3

Re : Alimenter Textbox avec Combobox

Bonjour.

VB:

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.

 

Dernière édition: 13 Novembre 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Novembre 2012

• #4

Re : Alimenter Textbox avec Combobox

Bonjour papypog

Salut CHALET53

Ma version:

Code:

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

 

Vote positif 0 Vote négatif

P

papypog

XLDnaute Occasionnel

• 13 Novembre 2012

• #5

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"

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Novembre 2012

• #6

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)

 

Vote positif 0 Vote négatif

P

papypog

XLDnaute Occasionnel

• 13 Novembre 2012

• #7

Re : Alimenter Textbox avec Combobox

Re MERCI

Me voilà moins bête.

 

Vote positif 0 Vote négatif