XL 2016 combobox lier a 3 textbox

reinruof77

XLDnaute Occasionnel
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
 

Pièces jointes

  • recherche travail proximité REINRUOF.xlsm
    112.4 KB · Affichages: 43

Dranreb

XLDnaute Barbatruc
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:

Dranreb

XLDnaute Barbatruc
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
 

Dranreb

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
28
Affichages
1 K
Réponses
19
Affichages
1 K

Statistiques des forums

Discussions
312 947
Messages
2 093 840
Membres
105 851
dernier inscrit
aviato