Bonsoir
j'ai un petit souci avec mon code ci dessous
les donnees de la colonne 4 de ma feuille n'apparait pas pas ma listview
mercisi vous avez une idee
cris

je viens de joindre un fichier pour une meilleurecomprehension

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
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Private Sub CommandButton1_Click()
Me.Hide
End Sub
 
 
Private Sub UserForm_Activate()
 
'Suppression des titres de colonnes
ListView1.ColumnHeaders.Clear
 
'Alimentation des titres de colonne :
 
ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.13, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.27, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Date", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.1, lvwColumnRight
ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight
 
'on remplit la listview
 
With Me.ListView1
.ListItems.Clear
    For Each v In Range("a4:a" & Range("a65536").End(xlUp).Row)
        x = x + 1
        .ListItems.Add , , v
        .ListItems(x).ForeColor = v.Font.Color
        For j = 1 To 6
            .ListItems(x).ListSubItems.Add , , v.Offset(0, j)
            .ListItems(x).ListSubItems(j).ForeColor = v.Offset(0, j).Font.Color
        Next j
Next v
End With
 
End Sub