Mauvaise conversion date en macro

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Février 2017

• #2

Bonjour Barth,

essaie ceci:

Code:

For Each cellule In Range("A2:A22") '(à adapter)
cellule.Value = Format(DateSerial(Right(cellule, 4), Mid(cellule, 4, 2), Left(cellule, 2)), "dd/mm/yyyy")
Next cellule

à+
Philippe

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 28 Février 2017

• #3

bonjour tous 🙂🙂
avec convertir ??

VB:

[a1:a50000].TextToColumns Destination:=[a1], DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=0, Tab:=1, _
        Semicolon:=0, Comma:=0, Space:=0, Other:=0, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=1

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2017

• #4

Bonjour barth66, phlaurent55,

Essayer :

VB:

Sub ConvDate()
  Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
End Sub

edit : Bonjour laetitia90 😉. Pas rafraichi, pas vu ta réponse 🙁

 

Vote positif 0 Vote négatif

B

barth66

XLDnaute Junior

• 28 Février 2017

• #5

Merci a tous !

Cdt,

 

Vote positif 0 Vote négatif

B

barth66

XLDnaute Junior

• 28 Février 2017

• #6

Merci à tous !

 

Vote positif 0 Vote négatif