[RÉSOLU] Bug sur conversion format de dates

aubelix

XLDnaute Impliqué
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.

Code:
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.
 

Pièces jointes

  • Modifier_Format_Dates.xlsm
    18.2 KB · Affichages: 48
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Re : Bug sur conversion format de dates

Bonsour®
VB:
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

XLDnaute Impliqué
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.
 

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal