Largeur de colonnes dans listview
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:
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 |
