XL 2010 Slash automatique pour une date

alexpoupp · 20 Décembre 2019

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.

VB:

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 · 20 Décembre 2019

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

VB:

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

XL 2010 Slash automatique pour une date

alexpoupp

XLDnaute Junior

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Discussions similaires