Private Sub CmbB_Dates_Change()
With Frm_Image
.Txt_An = .CmbB_Dates
.Caption = "Résumé du Tour de France de " & .Txt_An
.Lab_An.Caption = "Le PARCOURS de " & .Txt_An
.Basc_Classement.TripleState = False
.Basc_Classement = False
With .CmbB_Dates
YearSelect = CDate(.List(.ListIndex, 0))
Me.Txt_Début.Text = .List(.ListIndex, 1) ' Application.Proper(Format(CDate(.List(.ListIndex, 1)), "dddd dd mmmm yyyy"))
Me.Txt_Fin.Text = .List(.ListIndex, 2) ' Application.Proper(Format(CDate(.List(.ListIndex, 2)), "dddd dd mmmm yyyy"))
Me.Txt_Nb_Etapes.Text = .List(.ListIndex, 3)
Me.Txt_Coureurs.Text = .List(.ListIndex, 4)
Me.Txt_Reste.Text = .List(.ListIndex, 5)
Me.Txt_Distance.Text = .List(.ListIndex, 6)
Me.Txt_Moyenne.Text = .List(.ListIndex, 7)
' Me.Txt_Jaune.Text = .List(.ListIndex, 9)
End With
With .ListView4 ' Liste des Maillots
.ListItems.Clear
With .ColumnHeaders ' Maillot - Nom du Coureur
.Clear
.Add , , "", 0, 0 ' Année sélectionnée
.Add , , "Maillot", 60, 2
.Add , , "Noms du Coureur Maillots", 175, 0
End With ' ColumnHeaders
.Gridlines = True
.Sorted = False
.LabelEdit = lvwManual
.View = lvwReport
'**********************
Recup_Maillot YearSelect, ColSource
'**********************
End With 'ListView3
With .LstB_Etapes '314
.ColumnCount = 5
.ColumnWidths = "0;65;235;0;0"
.Clear
For Col = 1 To UBound(Tab_Etapes, 2)
If Tab_Etapes(1, Col) = YearSelect Then
YearSelect = Tab_Etapes(1, Col)
.AddItem YearSelect 'Année
.List(.ListCount - 1, 1) = Tab_Etapes(2, Col) 'N° Etape
.List(.ListCount - 1, 2) = Tab_Etapes(3, Col) 'Parcours
ColSource = Tab_Etapes(4, Col)
.List(.ListCount - 1, 3) = ColSource 'Colonne Source
.List(.ListCount - 1, 4) = Tab_Etapes(5, Col) 'Ligne
End If
Next
End With
'**********************
Recup_General YearSelect, ColSource
Recup_Maillot YearSelect, ColSource
'**********************
End With
Copie_Image
End Sub