XL 2016 combobox lier a 3 textbox

[reinruof77]

bonjour

je cherche le moyen de récupérer dans le combobox7 les données des combobox 1 -2-et 3 mais je n'y arrive pas avez vous une idée et est ce possible.

Merci de votre aide

 

[reinruof77]

re bonjour

peut être un début de solution en récupérant les données dans la texbox mais je n'arrive pas a mes fin

ComboBox7.AddItem = TextBox5.Value
ComboBox7.AddItem = TextBox6.Value

une idée?

 

[Dranreb]

Bonjour.
Je suppose que c'est dans la Listview1_ItemClick que vous voulez le faire ?
Ne pourriez vous les récupérer de T ?

ComboBox7.Clear
For c = 5 To 7: ComboBox7.AddItem T(1, c): Next c

Remarque: vous pourriez peut être siplifier ListView1.ListItems(Item.Index).Tag en Item.Tag tout simplement.

 

[reinruof77]

Bonjour et merci de ton aide

j'ai essayer mais cela ne fonctionne pas .
ou alors je ne le place pas comme il faut.

Merci

 

[Dranreb]

En le plaçant comme ça ça garnit la liste de ComboBox7 quand on sélectionne une ligne de la ListView :

Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim T(), c As Long
LCou = ListView1.ListItems(Item.Index).Tag '.ListSubItems(10).Text
T = CBL.PlgTablo.Rows(LCou).Resize(, 7).Value
For c = 1 To 7: Me("TextBox" & c).Text = T(1, c): Next c
ComboBox7.Clear
For c = 5 To 7: ComboBox7.AddItem T(1, c): Next c
'TextBox7.Value = Format(Me.TextBox7.Value, "hh:mm")
End Sub

 

[reinruof77]

SUPER
un gros merci
reste plus qu'a trouver le moyen pour le bouton Modifier .😉

pour le moment j'ai tricher 😵
j'ai mis trois textbox mais non visible et les combobox renvoi les données dedans.

en tout cas encore merci.

 

[Dranreb]

Je ne comprends pas votre histoire. Dans la CommandButton1_Click vous avez :
For c = 1 To 10: T(1, c) = Me("TextBox" & c).Text: Next c
Or les TextBox s'arrêtent à TextBox7
Il me semble évident que For c = 8 To 10 il faut prendre Me("ComboBox" & c - 3).Text

 

[reinruof77]

Merci cela faisait un moment que je cherchais .
Problème résolu

Encore Merci.