[VBA-E]mauvais format de date lors de recopie de la combox vers la feuille de calcul

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:

---

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:

---

1 2 3

Private Sub commandbutton1_click Case "cb_lst02" 'Date lf.Cells(noligne, 2) = lecontrole.List(lecontrole.ListIndex)

---

merci a+

A mon avis, c'est dans le format de ta cellule que le format est mauvais
Essaie de rajouter çà à la fin de ton code après l'alimentation de ta cellule

Code:

---

1 2	lf.Cells(noligne, 2) Selection.NumberFormat = "m/d/yyyy"

---

bonsoir Helios
ton code comme ca plante

Code:

---

1 2	lf.Cells(noligne, 2) Selection.NumberFormat = "m/d/yyyy"

---

si je mets ton code comme ca

Code:

---

lf.Cells(noligne, 2). Selection.NumberFormat = "m/d/yyyy"

---

il me met la date a l'envers rien ne change
si je mets ce code

Code:

---

lf.Cells(noligne, 2)= Selection.NumberFormat = "m/d/yyyy"

---

il me met vrai

merci a+

Pourquoi Selection???

j'ai enlevé selection ..... et ca marche merci a+