XL 2016 problème de date avec VBA

maurice.dumas · 15 Décembre 2018

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 · 15 Décembre 2018

Bonsoir.
Essayez

VB:

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

job75 · 16 Décembre 2018

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 :

Code:

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 · 17 Décembre 2018

Dranreb à dit:
Bonsoir.
Essayez

VB:

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

merci à vous ça marche

XL 2016 problème de date avec VBA

maurice.dumas

Guest

Pièces jointes

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

maurice.dumas

Guest

Discussions similaires

XL 2016 problème de date avec VBA

maurice.dumas

Guest

Pièces jointes

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

maurice.dumas

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency