XL 2016 [Résolu] Convertir date au format texte mm.dd.yyyy en date au format JJ/MM/AAAA

WTF

XLDnaute Impliqué

• 2 Février 2021

• #2

Tu peux ajouter une nouvelle colonne.
Si par exemple ta date 15.01.2021 est en A1, tu peux mettre à coté :

VB:

=DATE(DROITE(A1;4);STXT(A1;4;2);GAUCHE(A1;2))

Tu étends ta formule sur toute ta colonne de date

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 2 Février 2021

• #3

Bonjour WTF,
La formule fonctionne parfaitement, merci.
Reste à la convertir en VBA

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 2 Février 2021

• #4

Fredox à dit:

Bonjour WTF,
La formule fonctionne parfaitement, merci.
Reste à la convertir en VBA

Cliquez pour agrandir...

Le VBA n'est pas mon fort, je passe la main à plus expert !!

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 2 Février 2021

• #5

Merci en tout cas !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Février 2021

• #6

bonjour
si tes dates sont conformes a l'original importé te reste plus qu'a faire en vba
exemple
feuil1.[A1]=datevalue([A1].text
sa sera converti en date
il est possible que tu te retrouve avec un nombre du genre 486521
pas d'inquiétude c'est le long de la date
formate ta colonne au format date

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 2 Février 2021

• #7

WTF,

Je pars sur ceci:

VB:

Dim DADATE As Variant
DADATE = Worksheets(1).Range("C3")
Worksheets(1).Range("R3") = DateSerial(Right(DADATE, 4), Mid(DADATE, 4, 2), Left(DADATE, 2))

Merci encore

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Février 2021

• #8

re
ok elle étai donc conforme; juste en format texte
essaie simplement ceci

VB:

With Worksheets(1): .Range("C3") = DateValue(.Range("C3").text): End With

l'avantage de datevalue par rapport a date serial c'est que datevalue reconnais 3 formats de date et te la restitue au format utilisé par ton system
si ta date arrive en "dd/mm/yyyy" mais en texte
si ta date arrive en "yyyy/mm/jj"
si tadate arrive en 'mm/jj/yyyy"

elle te sera toujours restituée en dd/mm/yyyy et en date pas en texte

 

Dernière édition: 2 Février 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Février 2021

• #9

re
ben c'est normal
deja tes dates n'ont pas le bon séparateur
bon enfin bref
voici ta macro

VB:

Sub Test3()    ' en boucle
    Dim DL&, i&
    With Worksheets(1)
        DL = .Range("C" & Rows.Count).End(xlUp).Row
        If DL < 2 Then DL = 2
        For i = 2 To DL
            .Range("R" & i) = DateValue(Replace(.Range("C" & i), ".", "/"))
        Next
    End With
End Sub

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 2 Février 2021

• #10

Merci,
Tout fonctionne !

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 2 Février 2021

• #11

Bonsour®

Fredox à dit:

Bonjour à tous,
J'importe une feuille depuis un fichier externe, et je rencontre une problématique de format de date.

Cliquez pour agrandir...

depuis EXCEL
fichier> ouvrir : fichier externe
Utiliser l'assistant d'importation
à l'étape 3 : sélectionner la colonne des dates
Préciser le format lu
répeter pour d'autres colonnes

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 6 Février 2021

• #12

Modeste geedee à dit:

Bonsour®

depuis EXCEL
fichier> ouvrir : fichier externe
Utiliser l'assistant d'importation
à l'étape 3 : sélectionner la colonne des dates
Préciser le format lu
répeter pour d'autres colonnes

Cliquez pour agrandir...

Bonjour Modeste geedee
Juste pour info, l'importation se fait par une macro suite à sélection d'un fichier.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 6 Février 2021

• #13

Fredox à dit:

Bonjour Modeste geedee
Juste pour info, l'importation se fait par une macro suite à sélection d'un fichier.

Cliquez pour agrandir...

C'est donc dans la macro qu'il faut préciser le format lu...
Ne pas oublier l'argument
Local:=true

 

Vote positif 0 Vote négatif