VBA Excel, chargement des données de la feuille de calcul dans un contrôle ListView

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
Sub InitListView(Plage As Range, LV As MSComctlLib.ListView)
Dim ListTypes() As TypCol, i As Long
'L'analyse des types de données se fait sur base des données de la 1ère ligne de données
'Sous la 1ère ligne de titre
Dim ctrl As MSForms.Control

    For Each ctrl In LV.Parent.Controls
        If ctrl Is LV Then Exit For
    Next ctrl
    ctrl.Visible = False

    ReDim ListTypes(1 To Plage.Columns.Count)
    For i = 1 To Plage.Columns.Count
        If Plage.Rows.Count > 1 Then
            ListTypes(i) = AnalyseTypeCel(Plage.Cells(2, i))
        Else
            ListTypes(i) = TypCol.EstTexte
        End If
    Next i
    RetraiteDonnees Plage.Value, ListTypes, LV

    ctrl.Visible = True
    LV.Parent.Top = LV.Parent.Top + 1
    LV.Parent.Top = LV.Parent.Top - 1
End Sub