Date au mauvais format

Résolu
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
NonoM45 Messages postés 770 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour ;

J’ai des textbox contenant une date au bon format, mais quand je range dans la feuille le mois et le jour sont inversés dans le tableau. Je ne sais pas quel code vba ajouter pour que la date reste normale, pouvez-vous m’aider. Je joins un fichier

https://www.cjoint.com/data3/MIcqE5uNOvE_Essai-date-2.xlsm

Private Sub Valider_Click()
Dim L As Integer
Dim T As Double
Application.ScreenUpdating = False
L = Sheets("Donnéesorties").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = CDate(TextBox20.Value)
'Permet de calculer la différence entre la date du début du produit VTT et la date du jour
Me.TextBox23 = DateDiff("m", CDate(Me.TextBox21), CDate(Me.TextBox22))
'************************************************************************************************
Range("B" & L).Value = TextBox21.Value 'Date de début
Range("C" & L).Value = TextBox22.Value 'Date du jour
Range("D" & L).Value = TextBox23.Value 'Durée
Unload Me
Sheets("Donnéesorties").Select
Application.ScreenUpdating = True
End Sub
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonsoir

Continue à mettre des Cdate dans ta macro :

Range("C" & L).Value = CDate(TextBox22.Value )'Date du jour

etc.

Cela devrait résoudre le problème

Cdlmnt

Via
0
Réponse 2 / 2
NonoM45 Messages postés 770 Date d'inscription   Statut Membre Dernière intervention  
 

Bonjour,

Erreur du débutant ;-)

On peut utiliser CDate()  pour convertir la date correctement, exemple :

Range("B" & L).Value = CDate(TextBox21) 'Date de début

A+

Edit : oups bonjour via55, plus rapide que moi ;-)
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses