Casse tête sur format dâte

Jean-Marcel à dit:

Bonsoir
Ici transfert de txtbox dans B4
essaye :
If TextBox1.Value <> "" Then Range("B4") = Application.WorksheetFunction.Proper(Format(CDate(TextBox1.Value), "dd/mm/yyyy"))

Cliquez pour agrandir...

Jean-Marcel à dit:

Bonsoir
J'ai déja eu ce petit pb et je ne suis pas le seul.
Essaye d'envoyer ton fichier avec ton usf et des données non confidentielles
pour que l'on te trouve une solution.
Apparemment c'est lors du chargement de ta seconde usf ( celle de modif) si j'ai bien compris que le pb survient.
si c'est le cas il faut agir sur le format de la text boxà l'initialyse.
avec un petit fichier cela sera plus facile
De plus tu pourras constater que les dates ne s'inversent pas tout le temps ( uniquement si le jour est inférieur à 13)

Cliquez pour agrandir...

piga25 à dit:

bonjour,

Pour les gros fichiers il est possible d'utiliser Cijoint.fr - Service gratuit de dépôt de fichiers .

Cliquez pour agrandir...

egman à dit:

Bonjour piga25,
Merci pour l'info, je n'ai jamais utilisé ce service.
Qui est ce qui ouvre le fichier une fois envoyé ? il faudra surement que je donne quelques indices à propos du fichier..
Merci

Cliquez pour agrandir...

Jean-Marcel à dit:

Re si c'est dans l'usf résultat
essaye à tout hasard pour la textBoxFaitLe

résultat.TextBoxFaitLe.Value = ActiveCell.Offset(0, 10).Value
résultat.TextBoxFaitLe.Value = (Format(CDate(résultat.TextBoxFaitLe.Value), "dd/mm/yyyy"))

Pour ma part cela marche correctement dans cette USF sans ma modif

Cliquez pour agrandir...

Jean-Marcel à dit:

Re si c'est dans l'usf résultat
essaye à tout hasard pour la textBoxFaitLe

résultat.TextBoxFaitLe.Value = ActiveCell.Offset(0, 10).Value
résultat.TextBoxFaitLe.Value = (Format(CDate(résultat.TextBoxFaitLe.Value), "dd/mm/yyyy"))

Pour ma part cela marche correctement dans cette USF sans ma modif

Cliquez pour agrandir...