1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub ChangerFormat()
Dim NoLigneDébut, NoCol, Dernièreligne
Dim LaPlage As Range
NoLigneDébut = 2
NoCol = 1 'Colonne des dates
Dernièreligne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol)).Replace _
What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows
Set LaPlage = Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol))
For Each LaCell In LaPlage
LaCell.Value = Format(LaCell.Value, "dd/mm/yyyy")
Next
End Sub |
Partager