Discussion :

[bvalenza]

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

[unparia]

Bonjour
Regarde, analyse, comprends et inspire-t-en :
Exemple :

Code :

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

1
2
3
4
5
6
7
8
With ListView1
     .ColumnHeaders.Add , , "coucou", ListView1.Width / 2
     .ColumnHeaders.Add , , "Hello", ListView1.Width / 2, lvwColumnCenter
     For I = 1 To 10
       .ListItems.Add = "COLONNE 1 " & I
       .ListItems(I).SubItems(1) = "COLONNE 2 " & I
    Next
  End With

C'est facile si l'on se donne la peine de "travailler", difficile si l'on attend la soupe toute cuite.

[bvalenza]

ça fonctionne très bien
Encore merci beaucoup pour votre aide