Mettre un Textbox au format de date européen : Jour, mois, année.

**RJSCVF** · 06/12/2019, 14h41

Bonjour à tous !
Je sollicite une aide sur un problème que je n'arrive pas à résoudre.
j'ai un "USERFORM" avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Ajout des données dans la base
'*****************************************
Sheets("FICHE D'ENREGISTREMENT").Activate
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell = TextBoxDate.Value
        ActiveCell.Offset(0, 1).Value = ComboBoxService
        ActiveCell.Offset(0, 2).Value = TextBoxLibellé
        ActiveCell.Offset(0, 3).Value = Val(TextBoxPrixAchat)
        ActiveCell.Offset(0, 4).Value = Val(TextBoxTaux)
        ActiveCell.Offset(0, 5).Value = Val(TextBoxPrixAchat) * Val(TextBoxTaux)

Mais j'ai constaté que la "TextboxDate" (en gras et soulignée dans le code) insère la date dans la feuille de calcul excel au format américain au lieu du format Européen que je saisis. C'est-à-dire que lorsque j'écris dans la TextboxDate "06/12/2019" (le 06 décembre 2019), cette date se transforme dans la feuille en "12/06/2019"( le 12 décembre 2019). Ce qui fausse les dates entrées dans ma base de données.
Aider moi s'il vous plait à corriger ce code, de sorte que la date saisie dans la "TexboxDate" soit celle qui entre sur la feuille dans ma base de donnée.

Merci

**joe.levrai** · 06/12/2019, 14h48

Bonjour,

au choix

Code :

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

1
2
CDate(.TextBox1.Value)
DateSerial(Year(CDate(.TextBox1.Value)), Month(CDate(.TextBox1.Value)), Day(CDate(.TextBox1.Value)))

**Patrice740** · 06/12/2019, 14h48

Bonjour,

Regardes ce tuto :
http://didier-gonard.developpez.com/...-excel-et-vba/

**RJSCVF** · 06/12/2019, 15h19

Bonjour est merci pour vos réponses.
Je voudrais demander à Joe.Levrai s'il peut m'indiquer comment je peux insérer le code qu'il m'a proposé dans mon code, car ne ne sais exactement où, ni comment le placer dans mon code.
Je rappelle je suis encore novice en VBA.
Merci