Discussion :

[lio62]

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+

[helios77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lio62]

bonsoir Helios
ton code comme ca plante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si je mets ton code comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

il me met vrai

merci a+

[AlainTech]

Pourquoi Selection???

[lio62]

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