Discussion :

[cabridous]

Bonjour tous le monde

J'ai une listbox qui me regroupe plusieurs information de ma BDD.
Mais le problème c'est que j'ai des information qui son plus ou moins longue et j'aimerai pouvoir regler la taille des cellules pour rendre tous ça plus agréable et je n'arrive pas à trouver un code qui marche.

Mon code actuel est :

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
 
Private Sub UserForm_Initialize()
Worksheets("Rapportintervention").Select
Dim Rapportintervention(9, 1000000)
For cptr = 0 To 9
        Rapportintervention(0, cptr) = Cells(cptr + 2, 6)
        Rapportintervention(1, cptr) = Cells(cptr + 2, 7)
        Rapportintervention(2, cptr) = Cells(cptr + 2, 15)
        Rapportintervention(3, cptr) = Cells(cptr + 2, 10)
        Rapportintervention(4, cptr) = Cells(cptr + 2, 14)
        Rapportintervention(5, cptr) = Cells(cptr + 2, 8)
        Rapportintervention(6, cptr) = Cells(cptr + 2, 9)
        Rapportintervention(7, cptr) = Cells(cptr + 2, 12)
        Rapportintervention(8, cptr) = Cells(cptr + 2, 11)
 
Next
ListBox1.Column() = Rapportintervention
 
 
End Sub

[ouskel'n'or]

Hello cabridous,

Probleme de largeur colonne dans ma Listbox
...
j'aimerai pouvoir regler la taille des cellules

Les deux posent pb ?

[cabridous]

La largeur des columcount

[ouskel'n'or]

Précise ta demande : Que veux-tu ? Que la largeur des colonnes varient en fonction de la longueur du texte placé dans la liste
-> recherche de la plus grande longueur, largeur moyenne d'un caractère en fonction de la police... etc (Pas commode à réaliser)
ou bien
-> Fixer la largeur en dur par le code ? -> définir la propriété ColumnWidths. Ex pour trois colonnes :

Code :

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

Listbox1.ColumnWidths(90;72;90)

Tu dis
A+

Edit
Si tu as une erreur, comme les anglais n'utilisent pas les points-virgules, vérifie que le séparateur ne soit pas une virgule