Listbox créée dynamiquement

Version imprimable

07/10/2017, 18h41
patyom

Listbox créée dynamiquement

Bonsoir,
J'ai un Pb avec une listbox à 4 colonnes que j'ai créé dynamiquement. Voilà ce que j'ai fait :
J'ai d'abord créé dynamiquement des labels que je gère avec un module de classe. Dans ce module j'ai mis un élément (_click) dans lequel j'appelle cette fameuse Listbox et quand j'essaie de mettre à jour les colonnes, il ne m'accepte pas le ".List(i,1)".
par contre quand je fais un AddItem seul çà marche.

J'avoue que je ne comprends pas.:scarymov:
07/10/2017, 19h17
Philippe Tulliez

Bonjour,
N'ayant pas de boule de cristal, il est difficile de t'aider sans visualiser le code de ton module de classe et celui de la procédure qui l'utilise.
07/10/2017, 19h59
Invité

Bonsoir Patyom et Phillippe,

Bien que ma boule de cristal de fonctionne plus, je peux quand même dire que .List(i,1). Permet d'affecter une valeur a la colonne 1 du list mais bien évidement il faut avoir fait un AddItem au préalable!

Alors que list = range("A2:C15").value affectera toutes le valeurs de la plage choisi.
07/10/2017, 21h47
patyom

Soory, autant pour moi, il s'agissait d'une erreur dans le niveau de mes indices du list.
Tout fonctionne maintenant, je cherche le moyen de mettre un contour à cette Listbox mais je vais y arriver.
J'avais bien effectué le AddItem auparavant.

Merci

Un additif : Je cherche à aligner les chiffres des mes colonnes 2,3,4 sur la droite ?

J'ai trouvé ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
Private Sub CommandButton1_Click()
 
Dim Selectionner As Boolean
Dim I As Integer
 
Selectionner = False
 
With Me.ListBox1
For I = 0 To .ListCount
If .Selected(I) = True Then
Selectionner = True
Exit For
End If
Next
End With
 
If Selectionner = True Then
With Me.ListBox1
'1ère colonne
MsgBox .Column(0)
'2ème colonne
MsgBox Trim(.Column(1))
End With
Else
MsgBox "Vous devez effectuer une sélection !"
End If
 
End Sub
 
Private Sub UserForm_Initialize()
 
Dim Texte As String
 
With Me.ListBox1
'sur 2 colonnes
.ColumnCount = 2
'défini les largeurs
.ColumnWidths = "45;40"
'rempli la 1ère
.AddItem "Element 1"
.AddItem "Element 2"
.AddItem "Element 3"
.AddItem "Element 4"
'rempli la 2ème en définissant un nombre
'de 20 espaces auquels sont déduit les
'caractères voulus. A adapter ici !!!
Texte = 1
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 0) = Texte
Texte = 20
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 1) = Texte
Texte = 300
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 2) = Texte
Texte = 4000
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 3) = Texte
End With
 
End Sub

ça colle pour ce que je veux en faire

bye !!