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 : Sélectionner tout - Visualiser dans une fenêtre à part
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