Bonjour à tous

j'ai un userform dans excel 10 que j'active et qui récupère un tableau dans une feuille de calcul
Ce tableau se compose actuellement de 2 colonnes et quelques lignes
Tout se passe bien. Le seul pb c'est que j'aimerais forcer le code pour que la listeview n'affiche que 2 colonnes et non pas 2 + une colonne vide qui n'est pas très jolie
en fait j'ai essayé de jouer sur la largeur de la liste, mais rien n'y fait. j'ai toujours un petit bout de colonne supplémentaire qui s'affiche
pouvez-vous m'aider ?

Merci d'avance

voici le code

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
Private Sub UserForm_Initialize()
 
 
Dim ws As Worksheet
Dim rg As Range
Dim i As Integer
Dim j As Integer
 
 
Set ws = ThisWorkbook.Sheets("CAISSE")
Set rg = ws.Range("refTab")
 
 
With UserForm6.ListView1
For i = 1 To 2
        .ColumnHeaders.Add , , rg.Offset(0, i - 1), 100
Next i
 
For i = 1 To 20
        .ListItems.Add , , rg.Offset(i, 0)
Next i
 
For i = 1 To 20
For j = 1 To 2
        .ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
Next j
Next i
 
    .View = lvwReport
 
End With
 
End Sub