Format d'une text box

[hellocarioca]

Bonjour,

je fais une sauvegarde de données d'un fichier à u autre en utilisant des text box dont la valeur est un lien vers une autre cellule...
Mon problème c 'une qu'un des liens sert à me donner la date d'aujourd'hui avec la formule =now()... mais avec la textbox m'a sauvegarde sur l'autre fichier ne marche pas, g juste un très long chiffre.
Pour la sauvegarde j'utilise cette macro:

ligne = 0
ligne_vide = False
Do While ligne_vide = False
ligne = ligne + 1
coord_cellule = "A" + Format(ligne)
If Worksheets("Temporary_file").Range(coord_cellule).Value = "" Then
ligne_vide = True
Worksheets("Temporary_file").Range(coord_cellule).Value = Worksheets("data").TextBox1.Value
End If
Loop

J'aimerai savoir s'il est possible de mettre un format sur les textbox pour que le renvoie de ma cellule vers l'autre fichier reste sur le format date.

Merci

Maud🙂

 

[matthieu33]

Re : Format d'une text box

Bonjour Maud,

Peux-tu essayer le code qui suit ?

Worksheets("Temporary_file").Range(coord_cellule). Value = Format(Worksheets("data").TextBox1.Value, "dd/mm/yyyy")

@+

 

[hellocarioca]

Re : Format d'une text box

Bonjour Matthieu,

et ben que dire encore une fois ce forum est formidable et toi aussi...
merci bcp ça faisait un petit bout de temps que je luttais pour trouver la solution...

merci merci

Maud 😀