formater une date

Modeste geedee

XLDnaute Barbatruc

• 11 Avril 2013

• #2

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Avril 2013

• #3

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

 

Vote positif 0 Vote négatif

Christ69

XLDnaute Nouveau

• 11 Avril 2013

• #4

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 12 Avril 2013

• #5

Re : formater une date

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2013

• #6

Re : formater une date

Bonjour maval, le fil,

Voyez cette macro dans le code de la feuille :

Code:

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+

 

Pièces jointes

• Dates(1).xls

  39 KB · Affichages: 36
• Dates(1).xls

  39 KB · Affichages: 41
• Dates(1).xls

  39 KB · Affichages: 46

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2013

• #7

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 :

Code:

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

Fichier (2).

A+

 

Pièces jointes

• Dates(2).xls

  39 KB · Affichages: 39
• Dates(2).xls

  39 KB · Affichages: 41
• Dates(2).xls

  39 KB · Affichages: 40

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Avril 2013

• #8

Re : formater une date

Bonjour Job75

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

Bonne journée

@+
Max

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2013

• #9

Re : formater une date

Re,

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

Code:

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

Fichier 3.

A+

 

Pièces jointes

• Dates(3).xls

  39 KB · Affichages: 39
• Dates(3).xls

  39 KB · Affichages: 42
• Dates(3).xls

  39 KB · Affichages: 42

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 16 Avril 2013

• #10

Re : formater une date

Bonjour Job75,

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

@+
Max

 

Vote positif 0 Vote négatif