cathodique
XLDnaute Barbatruc
Bonjour,
J'ai essayé en m'inspirant des exemples de Boisgontier, à récupérer des données depuis une BD dans des textboxs suivant le choix effectué dans une combobox, mais sans y parvenir.
Ma feuille BD contient des doublons, Je voudrais en faisant un choix via combobox1 (données colonne B),
afficher dans les textboxs les données respectives:
textbox1=colonne C (site)
textbox2=colonne H (P1)
textbox3=colonne I (P2)
textbox4=colonne J (P3)
textbox5=colonne K (P4)
textbox6=colonne L (P5)
Je me tourne vers vous pour solliciter votre aide. voici ce que j'ai fait
En vous remerciant par avance. Bon dimanche à tous.
Cordialement,
J'ai essayé en m'inspirant des exemples de Boisgontier, à récupérer des données depuis une BD dans des textboxs suivant le choix effectué dans une combobox, mais sans y parvenir.
Ma feuille BD contient des doublons, Je voudrais en faisant un choix via combobox1 (données colonne B),
afficher dans les textboxs les données respectives:
textbox1=colonne C (site)
textbox2=colonne H (P1)
textbox3=colonne I (P2)
textbox4=colonne J (P3)
textbox5=colonne K (P4)
textbox6=colonne L (P5)
Je me tourne vers vous pour solliciter votre aide. voici ce que j'ai fait
Code:
Option Explicit
Dim F
Private Sub UserForm_Initialize()
Dim C As Range, mondico As Object
Set F = Sheets("BD")
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(F.Cells(2, 2), F.Cells(Rows.Count, 2).End(3))
mondico(C.Value) = C.Value
Next C
Me.Cb1.List = mondico.items
End Sub
Private Sub Cb1_Change()
Dim mondico As Object
Dim C As Range
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(F.Cells(2, 2), F.Cells(Rows.Count, 2).End(3))
If C = Me.Cb1 Then mondico(C.Offset(, 1).Value) = C.Offset(, 1).Value
Next C
End Sub
Private Sub TextBox1_Change()
Dim mondico As Object
Dim C As Range
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(F.Cells(2, 2), F.Cells(Rows.Count, 2).End(3))
If C = Me.Cb1 Then Me.TextBox1 = C.Offset(, 2).Value
Next C
End SubEn vous remerciant par avance. Bon dimanche à tous.
Cordialement,