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