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
 

Pièces jointes

  • testBD.xlsm
    22.5 KB · Affichages: 98

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"
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla