Combobox, textbox et base de donnée

[seb8062]

Bonjour A tous,
Voila ce qui m'amene vers vous.
J'ai une base de donnée ou j'ai pu dans 3 combobox les infos qui sont dépendante entre elle. voir pj
Seulement, j'aimerai que l'info de la 3eme combobox aille (si c'est symbole) dans la textbox1 ou( si c'est designation) dans la text box 2 puis en fonction de cela recuperer la données associer (si symlbole recuperer designation ou inverse)

Amicalement

Option Explicit

Private Sub UserForm_Initialize()
'Me.service.List = Array("")
' Me.op.List = Array("")

Me.serie.ColumnHeads = True
Me.serie.RowSource = "Nomenclature!A2:A5"

Me.choix.List = Array("Symbole", "Designation")

End Sub

Private Sub choix_Change()

'serie = serie.Text

Select Case choix
Case "Designation"

Select Case serie
Case "X72500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!D2: D3334"

Case "X73500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!D3337: d7391"

Case "X76500"
data.ColumnHeads = True
data.RowSource = "Nomenclature! D7392: d10425"

End Select

Case "Symbole"
Select Case serie
Case "X72500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B2: b3334"

Case "X73500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B3337: b7391"

Case "X76500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B7392: b10425"

End Select

End Select


End Sub

Private Sub data_change()

MsgBox data.Value
textbox1 = data.Value
End Sub

 

[Compte Supprimé 979]

Re : Combobox, textbox et base de donnée

Salut Seb8062,

Merci d'éditer ton post et de mettre ton code entre les balises "["code"]" et "["/code"]" sans les guillemets 😉

A+

 

[seb8062]

Re : Combobox, textbox et base de donnée

Salut BrunoM45;

Desolé, je suis nouveau sur le forum mais je ne vois pas se que tu veux que je fasse.
J'espere que cela te conviens :

Option Explicit

Private Sub UserForm_Initialize()
'Me.service.List = Array("")
' Me.op.List = Array("")

Me.serie.ColumnHeads = True
Me.serie.RowSource = "Nomenclature!A2:A5"

Me.choix.List = Array("Symbole", "Designation")

End Sub

Private Sub choix_Change()

'serie = serie.Text

Select Case choix
Case "Designation"

Select Case serie
Case "X72500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!D2: D3334"

Case "X73500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!D3337: d7391"

Case "X76500"
data.ColumnHeads = True
data.RowSource = "Nomenclature! D7392: d10425"

End Select

Case "Symbole"
Select Case serie
Case "X72500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B2: b3334"

Case "X73500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B3337: b7391"

Case "X76500"
data.ColumnHeads = True
data.RowSource = "Nomenclature!B7392: b10425"

End Select

End Select


End Sub

Private Sub data_change()

MsgBox data.Value
textbox1 = data.Value
End Sub