Discussion :

[Gestionnaire_rh]

Bonjour le forum,
c’est depuis quelque temps que je traine sur le séparateur de colonne dans ma listbox, malgré que je suis juste un débutant avec le vba, j’ai arrivé à alimenter cette liste d’une trentaine de colonnes mais rajouter ce séparateur (chr(124)) donne vraiment un très bon aperçu.
voici le code que j’ai utilisé :

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
Private Sub UserForm_Initialize()
Dim VarDerLigne As Integer
Dim VarPlage As String
 
 
   VarDerLigne = Sheets("pointage").Range("a65536").End(xlUp).Row
   VarPlage = Sheets("pointage").Range("a6:ao" & VarDerLigne).Address
 
   Range("a5:e5").Value = Range("a6:e6").Value
   Range("ak5:ao5").Value = Range("ak6:ao6").Value
 
   Range("a6:e6") = ""
   Range("ak6:ao6") = ""
 
   ListBox1.RowSource = "pointage!" & VarPlage
   ListBox1.ColumnCount = 41
   ListBox1.ColumnWidths = "50 ;145 ;50 ;20 ;50 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;35 ;35 ;35 ;50 ;50 "
   ListBox1.ColumnHeads = True
   ListBox1.IntegralHeight = True
 
End Sub

je vous remercie d'avance.

[SfJ5Rpw8]

Pas de question ?

[Gestionnaire_rh]

Bonjour,

j'ai besoin de votre aide concernant le séparateur pour mes colonnes dans ma listbox, je ne sais pas comment le rajouter.

Cordialement

Bonjour,

j'ai essayé mais sans succès, et j'espère que j'étais claire sur ma demande, cette astuces de séparateur des colonnes dans une listbox(chr=124) que n'arrive pas a rajouter a mon code, encore merci pour votre aide

Cordialement.

[helas]

Bonjour,
Pour ajouter des éléments à la listbox

Code :

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

1
2
3
4
5
6
 
   ListBox1.Clear
   For colonne = 6 To 15
    ListBox1.AddItem ActiveSheet.Cells(5, colonne)
   Next colonne
   ListBox1.ColumnWidths = "50"

Il y a donc une seule colonne.
RowSource peut être employée si les données sont en colonnes et non pas en lignes comme c'est le cas dans l'exemple.

[Gestionnaire_rh]

Bonjour helas,

je pense que vous m'avez pas bien compris, ce que je veux c'est pouvoir rajouter un séparateur pour mes 41 colonnes, alors selon des exemples que j'ai trouver soit une astuce comme ce 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
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
 
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "50;15;50;15;50;15;50"
For i = 1 To 20
    ListBox1.AddItem "Ligne" & i
    For j = 2 To 7 Step 2
    ListBox1.List(ListBox1.ListCount - 1, j) = i & j
    Next j
    For j = 1 To 6 Step 2 'boucle pour créer les "séparateurs" de colonnes
    ListBox1.List(ListBox1.ListCount - 1, j) = Chr(124)
    Next j
Next i
End Sub

, ou bien une autre astuce (rajouter le point d'exclamation "!" au lieu "chr=124"), j'espère que vous pouvez m'aider pour que je puisse adapter un des deux exemples sur mon premier code posté.

Cordialement.

[patricktoulon]

Bonsoir

Tout d'abord comment remplis tu ta ListBox ?

Si tu utilises une boucle for next, do loop,
à chaque fois que tu instruis la colonne en ligne, tu ajoutes à la variable ton caractère.

Cela dit tu risques d'avoir les valeurs corompues.
Alors si tu as 10 colonnes à remplir mets en 20, et 1 sur 2 tu mets ton caractère.

Tu en as déjà un exemple.

Au plaisir

[Gestionnaire_rh]

Bonjour patricktoulon,

mon problème c'est que je ne sais pas comment rajouter ou insérer en mes colonnes un '!' ou un chr(124), car pour visualiser et vérifier mes 41 colonnes dont 31 affichent juste des 1 ou 'A' (présent ou absent) est vraiment pénible, déjà c'est pour cette que j'ai choisi (listview ou lieu de listbox), et code que j'ai utiliser pour alimenter ma listview est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim VarDerLigne As Integer
Dim VarPlage As String
 
   VarDerLigne = Sheets("pointage").Range("a65536").End(xlUp).Row
   VarPlage = Sheets("pointage").Range("a6:ao" & VarDerLigne).Address
 
   ListBox1.RowSource = "pointage!" & VarPlage
   ListBox1.ColumnCount = 41
   ListBox1.ColumnWidths = "50 ;145 ;50 ;20 ;50 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;35 ;35 ;35 ;50 ;50 "
   ListBox1.ColumnHeads = True
   ListBox1.IntegralHeight = True
 
End Sub

alors maintenant, comment j’insère le Chr(124)

je vous remercie d'avance

Cordialement.