Microsoft 365 Format dates incorrect

R

Ragnarok001

XLDnaute Nouveau
Bonjour le Forum,

j'ai un souci de format de dates, je me suis fait une petite macro pour formater un CSV correctement dans Excel, lorsque je fais la manip via Text to columns tout se passe correctement mais quand j'utilise ensuite le bouton pour le faire automatiquement le format des dates est inversé ! vous pouvez voir les données d'origine dans le premier onglet et le résultat sur les dates dans le 2eme onglet

Si vous voyez ce qui cloche ça m'intéresse car je ne saisis pas !

merci bp!!
 

Pièces jointes

  • Format Dates.xlsm
    18.4 KB · Affichages: 9
Solution
patricktoulon
les quantité doivent s'accumler ou se remplacer
si tu remplace a chaque fois
VB: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            .[c:d].ClearContents
            .[C3:D3].Resize(UBound(tbl)) = tbl
        End With
    End With
End Sub
si tu accumule
Code: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            dl =...
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
hello
dans les options de conversion, il y a l'option JMA à selectionner

par contre;. je ne vois pas comment ca transparait dans le code
et surtout. ca fonctionne pour la première date. mais pas la seconde

VB: 
Sub Macro2()
'
' Macro2 Macro
'

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
End Sub
 
Vote positif 0 Vote négatif
R

Ragnarok001

XLDnaute Nouveau
vgendron à dit:
hello
dans les options de conversion, il y a l'option JMA à selectionner

par contre;. je ne vois pas comment ca transparait dans le code
et surtout. ca fonctionne pour la première date. mais pas la seconde

VB: 
Sub Macro2()
'
' Macro2 Macro
'

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
End Sub
Cliquez pour agrandir...
Hello,

oui en effet j'ai bien essayé de sélectionner Date et de préciser dd/MM/YY mais ça ne change absolument rien bizarremment.. et quand je regarde le format de date dans excel il est indiqué France alors que le format est bien passé en mode US !
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour
juste en passant

VB: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        Sheet1.[A2:B2].Resize(UBound(tbl)) = tbl
    End With
End Sub
 
Vote positif 0 Vote négatif
R

Ragnarok001

XLDnaute Nouveau
patricktoulon à dit:
bonjour
juste en passant

VB: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        Sheet1.[A2:B2].Resize(UBound(tbl)) = tbl
    End With
End Sub
Cliquez pour agrandir...
merci bp Patricktoulon! ça fonctionne bien sûr mais je ne saisis pas très bien le code, je souhaiterais l'adapter à mon tableau et les dates se trouvent dans les colonnes C et D
En fait ma manip initiale et quotidienne est de copier des données provenant d'un CSV directement dans Excel, ensuite je fais tourner une macro qui s'occupe de mettre en page dans les bonnes colonnes et ton code doit me permettre de conserver le bon format de date, ça fonctionne ! mais je voudrais que cela s'applique sur toute la colonne C et D car la quantité de données varient quotidiennement
Je me permets de te demander car je ne comprends où dans ton code je peux faire cette modif
Encore merci!!
 

Pièces jointes

  • Format Dates.xlsm
    18.9 KB · Affichages: 3
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
les quantité doivent s'accumler ou se remplacer
si tu remplace a chaque fois
VB: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            .[c:d].ClearContents
            .[C3:D3].Resize(UBound(tbl)) = tbl
        End With
    End With
End Sub
si tu accumule
Code: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            dl = [d100000].End(xlUp).Offset(1).Row
            .Range("C" & dl).Resize(UBound(tbl), 2) = tbl
        End With
    End With
End Sub
 
Vote positif 0 Vote négatif
Solution
R

Ragnarok001

XLDnaute Nouveau
patricktoulon à dit:
les quantité doivent s'accumler ou se remplacer
si tu remplace a chaque fois
VB: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            .[c:d].ClearContents
            .[C3:D3].Resize(UBound(tbl)) = tbl
        End With
    End With
End Sub
si tu accumule
Code: 
Sub testfcsv()
    With Sheet2
        tbl = .[A1].Resize(.UsedRange.Rows.Count, 2).Value
        For i = 1 To UBound(tbl)
            l = Split(tbl(i, 1), ",")
            tbl(i, 1) = CDate(l(0)): tbl(i, 2) = CDate(l(1))
        Next
        With Sheet1
            dl = [d100000].End(xlUp).Offset(1).Row
            .Range("C" & dl).Resize(UBound(tbl), 2) = tbl
        End With
    End With
End Sub
Cliquez pour agrandir...
merci encore ! y-a t-il une possibilité que le code traite toute la colonne C automatiquement ? j'ai testé la seconde option mais cela ne traite que 12 lignes à la fois
désolé de ne pas comprendre plus..
 
Vote positif 0 Vote négatif

Discussions similaires

T
  • Question
Microsoft 365 Empêcher Excel de formater automatiquement les dates
Réponses
2
Affichages
492
Phil69970
Phil69970
V
  • Question
XL 2016 Convertir un format de date
Réponses
3
Affichages
444
vivi21
V
A
  • Question
XL 2019 format de date dans un résultat de concaténation
Réponses
8
Affichages
337
Akafal
A
B
  • Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
282
Eric KERGRESSE
E
chris6999
  • Question
Microsoft 365 VBA Récupérer le format texte d'une date pour nommer un onglet
Réponses
8
Affichages
223
chris6999
chris6999
L
  • Résolu(e)
Microsoft 365 Problèmes dates et calcul de CA
Réponses
8
Affichages
279
Louloulou4
L
R
  • Question
Power Query Power Query et dates au format 1904
Réponses
5
Affichages
632
Hasco
Hasco
B
  • Résolu(e)
XL 2019 INDEX + EQUIV + DATES
Réponses
2
Affichages
345
bobink
B
oguruma
ODAT :: Outillage sur les dates en PowerQuery
Réponses
0
Affichages
396
oguruma
oguruma
T
  • Question
XL 2016 Difficultés pour extraire des données d'une BDD et autres petits détails !!!
Réponses
13
Affichages
834
ChTi160
ChTi160

Membres actuellement en ligne

8 membres et 83 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 204
Messages
2 086 198
Membres
103 154
dernier inscrit
jefferson6488