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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83
|
Option Base 1
'Option Explicit
Option Compare Text
Dim nbcol
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub OK_Click()
Dim i
MsgBox "ListView1=" & ListView1.ListItems.Item(ListView1.SelectedItem.Index) _
& vbCr & "ComboBox1=" & ComboBox1 _
& vbCr & "ListBox1=" & ListBox1
ChoixProjet = "[" & Me.ListView1.ListItems.Item(ListView1.SelectedItem.Index) & "-" & Me.ListView1.ListItems.Item(ListView1.SelectedItem.Index).ListSubItems(1) & "]"
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim TailleColonnes()
TailleColonnes = Array(23, 180)
Dim B, i, x, retour, temp
ChoixProjet = ""
ChoixProjetCategorie = ""
On Error Resume Next
nbcol = UBound(MesProjets, 2)
If Err Then
Call GetProjects
nbcol = UBound(MesProjets, 2)
Err.Clear
End If
i = 1
x = 15
On Error GoTo 0
'#############################ListView1#######################################
ListView1.ColumnHeaders.Clear 'Supprime les anciens entêtes
For i = 1 To nbcol
'Définit les entêtes de colonnes
With ListView1
With .ColumnHeaders
'Ajout des colonnes
.Add , , MesProjets(1, i), TailleColonnes(i), lvwColumnLeft
End With
.View = lvwReport 'affichage en mode Rapport
.Gridlines = True 'affichage d'un quadrillage
.FullRowSelect = True 'Sélection des lignes comlètes
End With
Next i
For i = 2 To UBound(MesProjets, 1)
With ListView1
.ListItems.Add , , MesProjets(i, 1)
.ListItems(i - 1).ListSubItems.Add , , MesProjets(i, 2)
End With
Next i
'#############################ListView1#######################################
'#############################ComboBox1#######################################
'http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "50;70"
Me.ComboBox1.List = MesProjets
'#############################ComboBox1#######################################
'#############################ListBox1#######################################
With ListBox1
.ColumnCount = 2
.ColumnWidths = "40,70"
.List() = MesProjets
End With
'#############################ListBox1#######################################
End Sub |
Partager