des séparations dans une zone de liste

[pascal21]

bonjour le forum
dans un usf j'ai mis une zone de liste en multi colonnes pour pouvoir visualiser une feuille de mon classeur (j'ai préféré cette solution à une cinquantaine de labels ingérables et lents)
je me demandais si il était possible d'avoir des traits entre chaque ligne de données et éventuellement entre chaque colonne enfin de rendre la lecture plus aisée
je n'ai pas trouvé ça dans les propriètés de la zone de liste
merci

 

[Guest]

Re : des séparations dans une zone de liste

bonjour Pascal,

Ce n'est pas possible mais pour contourner le problème tu peux faire quelque chose comme ceci:

 Dim i As Long
 For i = 1 To 8
    With Me.ListBox1
        .AddItem Feuil1.Range("A" & i) [COLOR="Red"]& vbTab & Chr(124)[/COLOR]
        .List(.ListCount - 1, 1) = Feuil1.Range("B" & i)
    End With
 Next

cordialement.

 

[pascal21]

Re : des séparations dans une zone de liste

bonsoir
merci pour ce code que je n'arrive pas à adapter pour mon classeur, n'étant pas à l'aise avec additem
quelques précisions
je collecte

feuil25 zone b1:i59

nom de la liste

chauffeurs

si quelqu'un peux me modifier ce code pour adaptation ça serait sympas
merci

 

[pascal21]

Re : des séparations dans une zone de liste

bonsoir
personne pour modifier ce bout de code?
merci

 

[skoobi]

Re : des séparations dans une zone de liste

Bonsoir,

en adaptant le code d'Hasco:

For lig = 1 To 59
  With Me.ListBox1
      .AddItem Feuil25.Cells(lig, 2) & " " & Chr(124)
    For col = 1 To 7
      .List(.ListCount - 1, col) = Feuil25.Cells(lig, col + 2) & " " & Chr(124)
    Next
  End With
Next