Discussion :

[chris09300]

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

[Cocotte278]

Bonjour,

N'y aurait-il pas une erreur dans ton écriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a4:a" & Range("a65536").End(xlUp).Row)

S'il s'agit de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown).Address

Mais j'ai plutôt choisi un tableau.
Tu définis d'abord ce dernier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Tbl As Range, D As Range
Dim LN(19, 36)
 
Set Tbl = .Range("A2:A21")
    For Each D In Tbl
        LN(D.Row - 2, D.Column - 1) = D.Value
    Next D

Et après tu remplis ta ListView

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
With ListView27
    .ListItems.Clear
    For L = 0 To UBound(LN, 1)
        .ListItems.Add , , LN(L, 0)
        For c = 1 To UBound(LN, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , LN(L, c)
        Next
    Next
End With

J'espère t'avoir apporté quelque chose.

[chris09300]

merci, ca fonctionne
cris