XL 2010 Slash automatique pour une date

[alexpoupp]

Bonjour à tous,

Lorsque je rentre 20122019 dans la case A2 que à l'aide d'une macro cela transforme la date avec des slahs (20/12/2019).

Merci d'avance pour votre aide.

Option Explicit

Sub European_US_Dates()
Dim rCell As Range, rRange As Range
    Set rRange = Columns(1).SpecialCells(xlCellTypeConstants, xlNumbers)
    For Each rCell In rRange
        If IsDate(rCell) Then rCell(1, 2) = _
            DateSerial(Year(rCell), Month(rCell), Day(rCell))
    Next rCell
End Sub

 

[Modeste geedee]

Bonsour®
le plus grand nombre pouvant être transformé en date selon votre façon est : 2 958 465
en conséquence l'instruction Isdate(Rcell) ne peut être vraie

essayer plutot

Sub European_US_Dates()
Dim rCell As Range, rRange As Range
    Set rRange = Columns(1).SpecialCells(xlCellTypeConstants, xlNumbers)
    For Each rCell In rRange
    '******************* If Isdate(rcell)  then 
    rCell.Offset(0, 1) = DateValue(Format(rCell, "00\/00\/0000"))
    Next rCell
End Sub