Listview et alimentation combo et textbox
Bonjour je débute avec le listview et j'ai quelques difficultés.
En sélectionnant une valeur du listview, je cherche à alimenter les combo et les textbox qui ont précédemment servi dans un USF à alimenter la ligne du listview.
Mais mon code est inefficace :-(
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Private Sub listview1_click()
Dim i As Integer
Dim Ctrl1 As Control
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
'Je déverrouille mes contrôles
For Each Ctrl1 In Controls
If TypeOf Ctrl1 Is MSForms.ComboBox Or TypeOf Ctrl1 Is MSForms.TextBox Then
Ctrl1.Enabled = False
End If
Next
With ListView1.ListItems(i)
MsgBox .ListSubItems(2).Text
.ListSubItems(2).Text = frmEcranSaisie.txtDate.Value 'alimentation d'un textbox
(...)
End With
End If
Next
End Sub |
La valeur du textbox ne s'affiche pas.
D'autre part comment faire pour alimenter un combo ? Sachant que les combo sont alimentés par des valeurs (1,2,3...) et si la valeur du listview est 2 je souhaiterais que le combo se place à 2 mais laisse la possibilité de choisir 1 ou 3 pour une modification.
Mais là j'avoue être complément perdue :-(
Help me please :?
Listview et alimentation combo et textbox
Est ce que t'as vérifié l'incrémentation de ton I ?