Mauvaise conversion date en macro

barth66 · 28 Février 2017

Bonjour à tous,

voila je vous avoue que je ne comprends pas trop d'ou provient mon souci.

Dans le fichier joint , quand je selectionne la colonne A puis que je fais CLTR+H pour rechercher . par / , la date reste bien au bon format ( 10.02.2017) pour la cellule A2.

Mais lorsque je passe par une macro ( ci dessous le code) il me l'a converti au format américain !!!

Columns("A:A").Select
Selection.Replace What:=".", Replacement:="/"

C'est un truc ou je m'arracccchhhheee les cheveux ,

Merci par avance pour votre aide,

phlaurent55 · 28 Février 2017

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

laetitia90 · 28 Février 2017

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

mapomme · 28 Février 2017

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

barth66 · 28 Février 2017

Merci a tous !

Cdt,

barth66 · 28 Février 2017

Merci à tous !

Mauvaise conversion date en macro

barth66

XLDnaute Junior

Pièces jointes

phlaurent55

Nous a quittés en 2020

laetitia90

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

barth66

XLDnaute Junior

barth66

XLDnaute Junior

Discussions similaires