Private Sub CmbB_Dates_Change()
With Frm_Image
.Caption = "Résumé du Tour de France de " & .Txt_An
.Txt_An = .CmbB_Dates
.Lab_An.Caption = "Le PARCOURS de " & .Txt_An
.Btn_Bascule.TripleState = False
.Btn_Bascule = 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")) ' .List(.ListIndex, 1)
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)
End With
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
'**********************
End With
Copie_Image
End Sub