Alimenter Textbox avec Combobox

papypog

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

Fichiers joints

CHALET53

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

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

pierrejean

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

papypog

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

XLDnaute Barbatruc
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)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas