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

XL 2010 Slash automatique pour une date

alexpoupp

XLDnaute Junior

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency