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 |
Partager