Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Une piste en VBA avec le code suivant à copier dans un module standard.
********************* Sub ConvertText2DateAAA_MM_JJ() Dim R As Range Dim C As Range If TypeName(Selection) <> "Range" Then Exit Sub Set R = Selection Application.ScreenUpdating = False On Error GoTo Erreur For Each C In R If IsDate(C) Then C = CLng(CDate(C)) C.NumberFormat = "yyyy-mm-dd" End If Next C Erreur: Application.ScreenUpdating = True End Sub *********************
Sélectionnez la plage contenant les données à convertir et lancez la macro ConvertText2DateAAA_MM_JJ
Cordialement.
PMO Patrick Morange
Bonjour,
Une piste en VBA avec le code suivant à copier dans
un module standard.
*********************
Sub ConvertText2DateAAA_MM_JJ()
Dim R As Range
Dim C As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set R = Selection
Application.ScreenUpdating = False
On Error GoTo Erreur
For Each C In R
If IsDate(C) Then
C = CLng(CDate(C))
C.NumberFormat = "yyyy-mm-dd"
End If
Next C
Erreur:
Application.ScreenUpdating = True
End Sub
*********************
Sélectionnez la plage contenant les données à convertir
et lancez la macro ConvertText2DateAAA_MM_JJ
Une piste en VBA avec le code suivant à copier dans un module standard.
********************* Sub ConvertText2DateAAA_MM_JJ() Dim R As Range Dim C As Range If TypeName(Selection) <> "Range" Then Exit Sub Set R = Selection Application.ScreenUpdating = False On Error GoTo Erreur For Each C In R If IsDate(C) Then C = CLng(CDate(C)) C.NumberFormat = "yyyy-mm-dd" End If Next C Erreur: Application.ScreenUpdating = True End Sub *********************
Sélectionnez la plage contenant les données à convertir et lancez la macro ConvertText2DateAAA_MM_JJ
Cordialement.
PMO Patrick Morange
Modeste
Bonsour® jo avec ferveur ;o))) vous nous disiez :