des séparations dans une zone de liste

pascal21 · 24 Avril 2008

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 · 24 Avril 2008

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:

Code:

 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 · 24 Avril 2008

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

Code:

feuil25 zone b1:i59

nom de la liste

Code:

chauffeurs

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

pascal21 · 25 Avril 2008

Re : des séparations dans une zone de liste

bonsoir
personne pour modifier ce bout de code?
merci

skoobi · 25 Avril 2008

Re : des séparations dans une zone de liste

Bonsoir,

en adaptant le code d'Hasco:

Code:

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

des séparations dans une zone de liste

pascal21

XLDnaute Barbatruc

Guest

Guest

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

Discussions similaires