formater une date

[maval]

Bonjour,

J'aimerai convertir une date dans une cellule "E5"si possible en VBA

de ====>110413 pour avoir ceci ====>11/04/2013.

En sachant cas chaque enregistrement la cellule "E5"et effacer

Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

D'avance merci à qui pourra m'aider.
Cordialement
Maval

 

[Modeste geedee]

Re : formater une date

bonsour®

=1*TEXTE(E3;"00\/00\/00")
ou bien
=1*(GAUCHE(E3;2)&"/"&STXT(E3;3;2))

format cellule :
jj/mm/aaaa

 

[maval]

Re : formater une date

Bonjour Modeste geedee,

Je te remercie mais rencontre un problème et je n'arrive pas a obtenir le résultat voulu ou alors je me suis planter?

Merci et bonne soirée

Max

 

[Christ69]

Re : formater une date

voici une petite macro qui devrait te rendre service

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1.Value, "mm/dd/yyyy")
End Sub

Par contre je suis à la recherche de quelqu'un qui pourra me dépanner sur les modules de classes .
.
Cordialement à tous

 

[maval]

Re : formater une date

Bonjour,

J'ai essayé comme ceci et sa ne marche pas.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("E5").Value = Format(Range("E5").Value, "mm/dd/yyyy")

End Sub

Si quelqu'un a une idée merci d'avance

Maval

 

[job75]

Re : formater une date

Bonjour maval, le fil,

Voyez cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, t$, dat$
Set r = Intersect(Target, [E5])
If Not r Is Nothing Then
  t = Replace(r.Text, "/", "")
  dat = Left(t, 2) & "/" & Mid(t, 3, 2) & "/" & Mid(t, 5, 2)
  Application.EnableEvents = False
  r.NumberFormat = "dd/mm/yy" 'format Date
  r = "=--""" & dat & """"
  t = r.Text
  r.NumberFormat = "@" 'format Texte
  r = IIf(t = dat, dat, "")
  Application.EnableEvents = True
End If
End Sub

La cellule E5, au départ, doit impérativement être au format Texte.

Autrement la cellule se met au format Date et l'on ne peut plus contrôler l'entrée.

Fichier joint.

A+

 

[job75]

Re : formater une date

Re,

Notez que bien que E5 soit du texte il est très facile de l'utiliser.

Voyez la formule en D5 :

=SI(E5="";"";--E5)

Fichier (2).

A+

 

[maval]

Re : formater une date

Bonjour Job75

Je vous remercie beaucoup, toujours très bien expliquer. Super!!

Bonne journée

@+
Max

 

[job75]

Re : formater une date

Re,

Si l'on entrait un guillemet " la macro plantait donc écrire :

t = Replace(Replace(r.Text, "/", ""), """", "")

Fichier 3.

A+

 

[maval]

Re : formater une date

Bonjour Job75,

Je vous remercie beaucoup et vous souhaite une bonne journée.

@+
Max