Bonsoir, j'ai une combobox avec une date lorsque je selectionne j'ai la bonne date qui s'affiche exemple 10/02/2007 mais quand elle se recopie , cela donne
02/10/2007 comment forcer le faormat de date pour un combobox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub userform_initialize() Dim fl As Worksheet Set fl = Worksheets("data") fl.Activate Dim LaDate As Date, i As Date Dim j As Integer LaDate = Date - 30 For i = LaDate To LaDate + 60 cb_lst02.AddItem i Next
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub commandbutton1_click Case "cb_lst02" 'Date lf.Cells(noligne, 2) = lecontrole.List(lecontrole.ListIndex)
merci a+
Partager