Microsoft 365 Format dates incorrect

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

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
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
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
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
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

Vote positif 0 Vote négatif
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R1-
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
155
R1-
R1-
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
145
oguruma
oguruma
H
  • Résolu(e)
XL 2016 soucis avec date+T00:00:00Z
Réponses
11
Affichages
604
dysorthographie
dysorthographie
GreMo
  • Résolu(e)
XL 2021 Deux formats de date dans un jeu de donnée volumineux
2
Réponses
15
Affichages
366
JHA
J
B
  • Question Question
Power Query Power Query
2
Réponses
26
Affichages
573
Brissou33
B
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
438
sofmat
S
oguruma
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
268
oguruma
oguruma
V
  • Question Question
XL 2016 Convertir un format de date
Réponses
3
Affichages
728
vivi21
V
B
  • Question 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
624
Eric KERGRESSE
E
oguruma
POWERQUERY :: Importation d'un fichier texte .csv et sélection dynamique entre deux dates
Réponses
1
Affichages
429
oguruma
oguruma
oguruma
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
570
oguruma
oguruma
S
  • Résolu(e)
Microsoft 365 Remplacement poit . par barre / dans date suite extraction (résultat erroné)
Réponses
6
Affichages
904
vgendron
vgendron
A
  • Résolu(e)
Microsoft 365 problème dates et sommeprod
2
Réponses
20
Affichages
2 K
ababi
A
G
  • Question Question
Microsoft 365 Probleme format VBA
Réponses
8
Affichages
975
TooFatBoy
TooFatBoy
Y
  • Résolu(e)
XL 2019 Après un No_Splash Screen et un displayfullscreen ok mais ruban répond pas
Réponses
14
Affichages
892
YAP32
Y
oguruma
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
766
oguruma
oguruma
O
  • Question Question
Microsoft 365 transformation des dates FR en date ENG lors de l'export en .txt avec vba
Réponses
3
Affichages
793
or3ly74
O
E
  • Résolu(e)
XL 2010 dates inversées
Réponses
9
Affichages
1 K
job75
job75
A
  • Question Question
Microsoft 365 Problème de format heure
Réponses
5
Affichages
974
patricktoulon
patricktoulon
oguruma
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
623
oguruma
oguruma
Retour