XL 2016 problème de date avec VBA

[maurice.dumas]

Bonjour
j'ai un problème de date ..

je cherche juste à saisir des dates dans un userform pour les copier dans une feuille
et vice versa charger un userform avec des dates d'un fichier
Je pense que VB travaille en Américain donc croise les jours et mois , comment configurer les format date?

 

[Dranreb]

Bonsoir.
Essayez

Sheets("configuration").Range("date_debut_projet").Value = CDate(TextBox10.Text)

 

[job75]

Bonjour maurice.dumas, bienvenue sur XLD, bonjour Bernard, le forum,

CDate crée un bug si le texte à convertir n'est pas une date reconnaissable en VBA donc utiliser :

Private Sub CommandButton1_Click()
With TextBox10
    If Not IsDate(.Value) Then MsgBox "Date non valide !", 48: _
        .SetFocus: .SelStart = 0: .SelLength = Len(.Value): Exit Sub 'sécurité
    Sheets("configuration").Range("date_debut_projet") = CDate(.Value)
    Sheets("configuration").Range("A1") = CDate(.Value)
    'date_sans_format
    Sheets("configuration").Range("date_sans_format").NumberFormat = "General" 'format Standard
    Sheets("configuration").Range("date_sans_format") = CDbl(CDate(.Value))
End With
Unload Me
End Sub

Bonne journée.

 

[maurice.dumas]

Bonsoir.
Essayez

Sheets("configuration").Range("date_debut_projet").Value = CDate(TextBox10.Text)

Bonsoir.
Essayez

Sheets("configuration").Range("date_debut_projet").Value = CDate(TextBox10.Text)

merci à vous ça marche