VBA : format de date

Fermé
Interv - 20 mars 2012 à 18:52
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 20 mars 2012 à 20:03
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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
Modifié par f894009 le 20/03/2012 à 20:13
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