VBA : format de date

Interv -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Beaucoup de sujet à ce propos mais pas le résultat que je désire :

Je vous explique le problème, j'ai fait une interface pour remplir des données et dans cette interface je fais apparaître la date automatiquement avec la formule :


With InterfaceHistorique

.DateDispoIntervention.Text = Format(Now, "dd/mm/yyyy")

End With

Au moment où on appuis sur le bouton nouvelle intervention la date se met automatiquement dans la case de l'interface.

Jusque là tout ce passe bien on valide et ça marche, mais si on veut modifier la date dans cette case pendant qu'on ouvre l'interface alors là le résultat est qu'on se retrouve avec un format mm/jj/aaaa et je ne sais pas pourquoi. Inversion des mois et des jours alors que le format de la case est toujours en 09/01/2012, ça affiche 01/09/2012

Le truc est qu'il ne faut pas modifier la manière de rentrer la date (pas d'inversion de mois et de jour dans l'apparition de la date).

J'ai essayé tous les formats de cellules ça ne marche pas et le cdate ne marche pas non plus inversion à chaque validation.

Merci d'avance !

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Une proposition de solution: pour EXCEL (entre autre) une date n'est qu'un nombre de jour en partant de du 01/01/1900.

Formater la colonne ou vous copiez cette date en format date Type: *14/03/2001

Pour transformer la date de votre TextBox en nombre:

CLng(CDate(nom_de_votre_textbox.text))

A votre dispo pour la suite
0