inversion des chiffres dans une cellule

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2008

• #2

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

Code:

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

Code:

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

 

Dernière édition: 16 Janvier 2008

Vote positif 0 Vote négatif

W

will3012

Guest

• 16 Janvier 2008

• #3

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à ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2008

• #4

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.

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 16 Janvier 2008

• #5

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))

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

W

will3012

Guest

• 17 Janvier 2008

• #6

Re : inversion des chiffres dans une cellule

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

A d'autres fois surement.

 

Vote positif 0 Vote négatif