[RÉSOLU] Bug sur conversion format de dates

[aubelix]

Bonsoir à tous les Amis du Forum.

Ce soir, je vous soumet un problème que je ne m'explique pas
à savoir que seules les dates du mois de Juin ne sont pas converties.
Je ne trouve pas de raison particulière.
Je vous joint le fichier.

Sub Modifier_Format_Dates()

Columns("A:B").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    For Each cell In Selection
        If IsDate(cell) Then cell.Value = CDate(cell.Text)
    Next

End Sub

Par avance, Merci pour votre aide.
Cordialement.

 

[Modeste geedee]

Re : Bug sur conversion format de dates

Bonsour®

Sub Modifier_Format_Dates()
Dim cell As Range
Range("A2:B100").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    For Each cell In Selection
        cell = CLng(Application.Clean(cell))
       cell = Format(cell, "dd/mm/yyyy")
       Next
End Sub

constations :
les dates en rouges sont déjà au format date
alors que les autres sont au format standard
cela sous-entend que certaines données sont issues de captures depuis un autre logiciel ou application

correction :
selectionner la colonne de dates(une seule colonne à la fois !!)
menu Données ==> convertir
à l'étape 3 sur 3
choisir date JMA
Terminé

 

[aubelix]

Re : Bug sur conversion format de dates

Bonjour Modeste et tous les Amis du Forum.
Merci pour ta réponse.
En effet, certaines données proviennent d'une umportation.
J'ai appliqué tes consignes et tout est rentré dans l'ordre.
Mille Mercis.
Cordialement.