Probleme de largeur colonne dans ma Listbox
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:
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 |
