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