inversion des chiffres dans une cellule

[will3012]

Bonjour à tous,


une petite question ridicule, mais qui me bloque.

je viens de tranformer un fichier txt en excel, et le format date est sous la forme aaaammjj.
il me faudrait un format de jjmmaa.

quelqu'un pourrait-il me donner la réponse ?

par avance, merci

 

[Staple1600]

Re : inversion des chiffres dans une cellule

Bonjour


edit:

Une solution par macro
A tester sur une feuille qui ne contient que des dates aux format Texte
Sinon utiliser ConvertToDateForm
en sélectionnant au préalable les cellules à modifier

Sub ConvertToDateFormII()
'source: F. Sigonneau
'V. Nanavati, mpep
Application.ScreenUpdating = False
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Not IsEmpty(c) Then c.Value = Left(c.Value, 4) & "/" & Mid(c.Value, 5, 2) & "/" _
& Right(c.Value, 2)
Next
Application.ScreenUpdating = True
End Sub

Sub ConvertToDateForm()
'V. Nanavati, mpep
Dim c As Range
  For Each c In Selection
    c.Value = Left(c.Value, 4) & "/" & Mid(c.Value, 5, 2) & "/" _
          & Right(c.Value, 2)
  Next
End Sub

 

[will3012]

Re : inversion des chiffres dans une cellule

merci pour cette réponse, mais je fais comment pour aplliquer cette macro ?

est ce qu'il me faut la créer ou existe-t-elle déjà ?

 

[Staple1600]

Re : inversion des chiffres dans une cellule

Re


Tu ouvres ton fichier
ensuite tu ALT+F11

Fichier/Insertion/Module

La tu copies le code de la macro

Tu retournes dans Excel

Tu fais ensuites Outils/Macros/ et là tu choisis la macro que tu veux
éxécuter.

En cas de soucis

Tu peux envoyer ton fichier sur le forum aussi.

 

[wilfried_42]

Re : inversion des chiffres dans une cellule

Salut Wilfried, Staple

en formule : la date est en A1

=DATE(GAUCHE(DROITE(A1;8);4);GAUCHE(DROITE(A1;4);2);DROITE(A1;2))

 

[will3012]

Re : inversion des chiffres dans une cellule

Merci pour vos réponses, je suis arrivé à mes fins.

A d'autres fois surement.