VBA Excel USerform format date US FR

Signaler
Messages postés
19
Date d'inscription
mardi 23 février 2021
Statut
Membre
Dernière intervention
3 juin 2021
-
Messages postés
15962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
-
Bonjour,

J'ai créé un USF qui permet le remplissage d'un tableau Excel.
La txtbox qui contient la date dans le USF doit être encodée sous le format US MM/DD/YY sous peine que lors de l'inscription dans le tableau, Excel ne le reconnait pas comme une date.
Comment faire pour que je puisse l'encoder en format DD/MM/YY dans la txtBox et que lors de la retranscription dans le tableau le format date soit reconnu et respecté dans sa forme DD/MM/YY.

J'ai écrit ce code

Private Sub UserForm_Initialize()

Me.Top = 210
Me.Left = 733


Dim MonKmh As Integer
Dim MonFond As Long
Dim MaDate As Date
Dim MonAjoutGO As Integer

MaDate = Now()


txt_KmH.Value = Format(MonKmh, "# ##0")
txt_Fond.Value = Format(MonFond, "# ##0")
txt_AjoutGO.Value = Format(MonAjoutGO, "# ##0")
Txt_Date.Value = Format(MaDate, "MM/DD/YY")


End Sub

Si je change la dernière ligne par DD/MM/YY ça ne marche pas dans le tableau

Ensuite pour la retranscription des données des txtbox vers le tableau de la feuille, le code est :

Private Sub btnAjouterBase_Click()

Sheets("Listing").Activate
Range("A8").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = Txt_Date.Value
ActiveCell.Offset(0, 5).Value = cbo_Vehicule
ActiveCell.Offset(0, 7).Value = txt_KmH * 1
ActiveCell.Offset(0, 8).Value = txt_Fond * 1
ActiveCell.Offset(0, 9).Value = txt_AjoutGO * 1

Unload Me

frm_Saisie.Show

End Sub

D'avance merci.



Configuration: Windows / Chrome 90.0.4430.212

1 réponse

Messages postés
15962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
866
bonjour,
moi j'essaierais:
ActiveCell = datevalue(Txt_Date.Value)