Discussion :

[-Naek-]

En ne trouvant pas de solution a mon ancien poste http://www.developpez.net/forums/d75...onnes-listbox/

Je souhaite changer de stratégie, donc ...

Mon code permet de remplir une Listbox avec plusieurs lignes.

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
39
40
41
42
43
44
45
46
47
Public Sub Mettre_Scan_A_Jour()
'je déclare un tableau
Dim Tableaux()
'Déclaration d'une cellule et d'un entier i
Dim Cel As Variant, i As Long
'cel prend la valeur de la cellule A2
Set Cel = Range("A2")
'Calcule le nombre de lignes
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row
'Redimention du tableaux de Nb_Lignes de lignes et 13 colonnes
ReDim Tableaux(Nb_Lignes, 1 To 13)
'Je parcours toutes les lignes Nb_Lignes
For i = 1 To Nb_Lignes
        'J'insère dans mon tableau la valeur de la cellule.
        Tableaux(i, 1) = CStr(Cel(i, 6))
        Tableaux(i, 2) = CStr(Cel(i, 12))
        Tableaux(i, 3) = CStr(Cel(i, 13))
        Tableaux(i, 4) = CStr(Cel(i, 14))
        Tableaux(i, 5) = CStr(Cel(i, 15))
        Tableaux(i, 6) = CStr(Cel(i, 16))
        Tableaux(i, 7) = CStr(Cel(i, 17))
        Tableaux(i, 8) = CStr(Cel(i, 18))
        Tableaux(i, 9) = CStr(Cel(i, 19))
        Tableaux(i, 10) = CStr(Cel(i, 20))
        Tableaux(i, 11) = CStr(Cel(i, 21))
        Tableaux(i, 12) = CStr(Cel(i, 22))
        Tableaux(i, 13) = CStr(Cel(i, 23))
 
        'J'insère dans ma listbox chaque ligne de mon tableau
        'vbTab me permet de faire un espace entre chaque colonne
        Form1.ListBox1.AddItem (Tableaux(i, 1) & vbTab & _
        Tableaux(i, 2) & vbTab & _
        Tableaux(i, 3) & vbTab & _
        Tableaux(i, 4) & vbTab & _
        Tableaux(i, 5) & vbTab & _
        Tableaux(i, 6) & vbTab & _
        Tableaux(i, 7) & vbTab & _
        Tableaux(i, 8) & vbTab & _
        Tableaux(i, 9) & vbTab & _
        Tableaux(i, 10) & vbTab & _
        Tableaux(i, 11) & vbTab & _
        Tableaux(i, 12) & vbTab & _
        Tableaux(i, 13))
 
Next i
 
End Sub

J'obtiens le résultat que je désire mais plusieurs décalages sont visibles.

1-Les colonnes se touchent alors que vbTab doit les séparer.
2-Un décalage en moins est visible.

Remarque:
Le résultat provient d'une feuille excel. Il n'y a pas de vide dans ma feuille excel. Chaque cellule possède une valeur.

Je cherche un moyen d'empécher ces décalages ...

Merci de votre aide

[Lynx92260]

Bonjour ,


La listview est plus adapté au multicolonne .

Pour ma part j'utilise toujours ce control pour visualiser plusieurs colonnes ....

Va sur le lien

http://silkyroad.developpez.com/VBA/ListView/

Il est trés bien documenté !!!


La réussite de ton projet sera de meilleurs augure

[-Naek-]

Merci Lynx92260 nickel de chez nickel je te remercie bien