Discussion :

[koKoTis]

Bonjour ... j'ai une cellule avec le date au format date comme suit 11/11/2016 ... la date su jour quoi .... la fonction "=MAINTENANT()"

Je voudrais convertir cette date au format texte mais quelle reste sous le forme 11/11/2016

Auriez vous une solution ?

[MarcelG]

Bonjour à toi,
Bonjour au forum,

Pour ce faire, tu peux utiliser la fonction Texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=Texte(Maintenant();"jj/mm/aaaa")

[RyuAutodidacte]

Bonjour,
Dans le cas où tu veux juste te débarrasser de la formule par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = Range("A1").value

Si c'est avec un format texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = Cstr(Range("A1").value)

[Menhir]

En VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = Format(Range("A1").value, "dd/mm/yyyy")

Maitenant si je veut rajouter 3 astérisque devant la date que dois-je faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = "***" & Format(Range("A1").value, "dd/mm/yyyy")

[koKoTis]

Merci pour vos code VBA mais j'ai opter pour le fonction texte

[MarcelG]

Bonjour Menhir et Ruy

En effet la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format

renvoie du texte.
Il est donc redondant, Ruy, de lui affecter la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cstr

[koKoTis]

Bonjour à toi,
Bonjour au forum,

Pour ce faire, tu peux utiliser la fonction Texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=Texte(Maintenant();"jj/mm/aaaa")

Bonjour ... cela ne fonctionne pas chez moi

[koKoTis]

Ah ben là ca fonctionne merci

[koKoTis]

Maitenant si je veut rajouter 3 astérisque devant la date que dois-je faire ?

[RyuAutodidacte]

Autre cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = Cstr(Format(Now, "dd/mm/yy"))

Edit : les posts s'entrecroisent