Controle saisie dans Userform

[eric]

Bonjour à tous

Dans un Userform, je dispose de plusieurs champs de type textbox
dont certains me servent pour remplir des cellules au format date.

Lors du transfert dans la feuille excel les dates sont inversées
je m'explique
saisie dans Userform.textbox1 01/12/2003
Transfert dans cellule 12/01/2003 format date standard
par commande cells(4,3) = textbox1.value
Il doit surement me manquer un fonction en quelque part ....

Merci d'avance et longue vie au site très intéressant

 

[Ronan Quennec]

Salut,

Il faut tout d'abord dimensionner une variable au format date

dim date_saisie as date

Ensuite, affecter à cette variable la valeur du textbox

date_saisie=me.textbox1.value

Puis, affecter à ta cellule le contenu de la variable

sheets("feuil1").cells(4,3).value=date_saisie

ATTENTION, si par malheur, l'utilisateur saisi autre chose qu'une date dans le textbox, au moment de l'affectation de la variable au textbox, le programme bug.

Pour éviter ceci, tu peux toujours dimensionner ta variable comme ceci

dim date_saisie as variant

@+

Ronan

 

[zon]

Bonsoir à tous


Eric avec format on inverse le jour et le mois

cells(4,3) = format(textbox1.value,"MM/DD/YYYY")


A+++