XL 2016 combobox lier a 3 textbox

reinruof77

XLDnaute Occasionnel

• 7 Juin 2017

• #2

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

Code:

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

une idée?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Juin 2017

• #3

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

VB:

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.

 

Dernière édition: 7 Juin 2017

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 7 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Juin 2017

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 7 Juin 2017

• #6

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Juin 2017

• #7

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

 

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 7 Juin 2017

• #8

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

Encore Merci.

 

Vote positif 0 Vote négatif