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
| Private Sub UserForm_Initialize()
Dim intL As Integer 'Récupération de l'index de la ligne
Dim tblListe() As String 'tableau pour le remplissage de la liste
Dim xlWb As Workbook
Dim xlWs As Worksheet
'Ouverture du fichier
Set xlWb = ActiveWorkbook
'Utilisation de la première feuille
Set xlWs = xlWb.Worksheets(1)
'Boucle pour déterminer le nombre de lignes contenant des
'données dans le fichier Excel
intL = 1
Do Until Len(xlWs.Range(Cells(intL, 1), Cells(intL, 1))) = 0
intL = intL + 1
Loop
'redimensionnement du tableau en fonction du nombre de lignes
'remplies dans le feuille de données
ReDim tblListe(intL, 1)
tblListe(0, 0) = "Index"
tblListe(0, 1) = "Mois"
'Boucle sur les cellules de la feuille Excel
intL = 1
Do Until Len(xlWs.Range(Cells(intL, 1), Cells(intL, 1))) = 0
'Index de la ligne
tblListe(intL, 0) = intL
'Contenu de la première colonne de la feuille de données
tblListe(intL, 1) = xlWs.Range(Cells(intL, 1), Cells(intL, 1))
'Debug.Print intL & " --- " & & " --- " &
intL = intL + 1
Loop
'transfert des données vers la liste du UserForm
Me.lstChoix.List = tblListe
'Fermeture et libération des objets
Set xlWb = Nothing
Set xlWs = Nothing
End Sub |
Partager