Discussion :

[abouhossam]

j'ai developpé une macro:

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 Bvalider_Click()
    With Sheets("mouvement")
        For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
            If cel.Value = LBmoteurcadre.Value Then   
                .Range("g" & cel.Row).Value = Format    (CBdate.Value, "dd/mm/yyyy")
                .Range("h" & cel.Row).Value = Format(facturevente.Value, ">")  
            End If
        Next
    End With
    facturevente.Value = ""
    LBmoteurcadre.Clear
    LBmodèle.Clear
    CBsté.Value = ""
End Sub

mon problème est le suivant:
quand je click sur le bouton Bvalide la valeur Sheets("mouvement").Range("g" & cel.Row).Value est défferente de CBdate.Value
exemple:
quand je saisie 07/10/2008 la valeur Sheets("mouvement").Range("g" & cel.Row).Value=10/07/2008
merci.

[ouskel'n'or]

Ajoute cdate(CBdate.Value....
Un oeil dans l'aide en ligne à Cdate de fera comprendre pourquoi

Code :

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

.Range("g" & cel.Row).Value = Format(cdate(CBdate.Value), "dd/mm/yyyy")

[abouhossam]

salut ouskel'n'or
toujours le même problème
ma LBdate est de format DTPicker
merci.

[ouskel'n'or]

J'ai cru que tu prenais ta date dans une textbox.
Il y a longtemps que je n'ai pas travailler avec un calendrier mais il me semble que ta syntaxe était la bonne. Quel est ta version ? Française ou anglaise ?

[abouhossam]

Quel est ta version ? Française ou anglaise ?

comment je peux savoir?
merci.

[ouskel'n'or]

Quand tu fais F1, l'aide est en anglais ou en français ?

[abouhossam]

j'ai changé CBdate format DTPicker par une zone Textbox pour éviter les problème.
mais ça ne peche pas de trouver une solution pour DTPicker
la version est française.