XL 2010 Macro conversion date [Résolu]

orgmel

XLDnaute Nouveau
Bonjour le forum,

je recherche le moyen de compléter ma macro suivante

Sub Mef_dates()
'
' Mef_dates Macro
' mise en forme dates
'

'
Dim Mot As Variant
Dim Replace As Variant
Mot = InputBox("Quelle Date recherchez-vous ?", Title:="Recherche Date")
Replace = InputBox("Par quelle Date voulez vous remplacer ?", Title:="Remplacer date trouvée")
If Mot = "" Then Exit Sub
Sheets("Macro").Select
Range("A:J").Select
Selection.Replace What:=Mot, Replacement:=Replace

End Sub

le format de mes dates est le suivant jj-DEC-aaa hh:mm et je voudrais le transformer en
jj/12/aaaa hh:mm.

sur la globalité cela fonctionne malheureusement de façon aléatoire il me met le format suivant :
mm/jj/aaaa hh:mm

je vous joint un fichier exemple 1er onglet le fichier de départ, second onglet le résultat (en jaune les erreurs.

Si une âme charitable pouvait m'aider.

Merci
 

Pièces jointes

  • Exemple.xlsm
    1.2 MB · Affichages: 31

Modeste geedee

XLDnaute Barbatruc
Bonsour®
selectionner une colonne puis :
upload_2017-2-2_8-45-58.png

recommencer Colonne par colonne

il faudra éventuellement peut-être faire la même chose pour :
FEB >>>Fév
APR >>>Avr
MAY >>> Mai
JUN >>> Jui
AUG >>>Aoû
 

orgmel

XLDnaute Nouveau
Bonsour®
selectionner une colonne puis :
Regarde la pièce jointe 982538
recommencer Colonne par colonne

il faudra éventuellement peut-être faire la même chose pour :
FEB >>>Fév
APR >>>Avr
MAY >>> Mai
JUN >>> Jui
AUG >>>Aoû

Bonjour Modeste geedee,

tu m'as mis sur la bonne voie et cela fonctionne même en prenant toute les colonnes :).
il me suffisait de remplacer -DEC- par -déc- (argh ces problème de date US to France)

Merci beaucoup pour ton aide
 

Discussions similaires