extraction et reconstitution de dates

[xtof76]

Bonjour,

je ne suis pas un maitre en excel et encore moins en VBA (que je ne connais pas du tout).
Ma question est la suivante :

J'ai une colonne dans un tableau qui contient des dates en format US et en format EUR.
J'aimerais remettre toutes ces dates dans un meme format EUR sans avoir à toutes les remettre manuellement.
le formattage des cellules est déjà en format eut (DD-MM-YYYY)

Je tourne en rond depuis des jours sans trouver une solution simple.

Quelqu'un aurait-il une solution ?

Merci pour votre aide précieuse.

Xtof76

 

[R@chid]

Re : extraction et reconstitution de dates

Bonjour et Bienvenue sur XLD,
Il faut que l'on voie un fichier exemple avec quelques lignes (moins de 40 lignes).


@ te relire

 

[CHALET53]

Re : extraction et reconstitution de dates

bonjour et Bienvenue,

....Un tit fichier avec des exemples concrets : ça facilite la compréhension

a+

 

[xtof76]

Re : extraction et reconstitution de dates

Merci pour votre réponse rapide.
Ci joint, vous trouverez un exemple de mon tableau (si cela peut aider).
Les derniere colonne contient les dates.

 

[CHALET53]

Re : extraction et reconstitution de dates

le formattage des cellules est déjà en format eut (DD-MM-YYYY)

11/21/2014 : pas sûr

Comment les reconnaître dans la colonne entre les deux formats
parce qu'un : 03/06/2014 pourrait être en réalité : 06/03/2014

a+

 

[ROGER2327]

Re : extraction et reconstitution de dates

Bonjour à tous.


Voir cette discussion :

https://www.excel-downloads.com/thr...ssi-dans-un-format-en-dur-qui-resiste.219267/​

Bonne soirée.


ℝOGER2327
#7276

Jeudi 5 Palotin 141 (Sainte Poignée, veuve et Sainte Jutte, recluse - fête Suprême Quarte)
5 Floréal An CCXXII, 6,3162h - rossignol
2014-W17-4T15:09:32Z

 

[ROGER2327]

Re : extraction et reconstitution de dates

Suite...

Avec le classeur d'exemples fourni, il me semble que​

Sub Convertir()
Dim DtHr(), i&, n&, s

    With Feuil1.[J1] 'Première cellule de données

        n = .Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row
        If n >= .Row Then
            With .Parent.Range(.Cells, .Parent.Cells(n, .Column))
                DtHr = .Value
                On Error Resume Next
                For i = 1 To UBound(DtHr)
                    If VarType(DtHr(i, 1)) = vbString Then
                        s = Split(DtHr(i, 1), "/")
                        DtHr(i, 1) = CDate(Join(Array(s(1), s(0), s(2)), "/"))
                    End If
                Next
                On Error GoTo 0
                .Value = DtHr
            End With

        End If

    End With

End Sub

fait le boulot.​

Bon courage.


ℝOGER2327
#7277

Jeudi 5 Palotin 141 (Sainte Poignée, veuve et Sainte Jutte, recluse - fête Suprême Quarte)
5 Floréal An CCXXII, 6,6053h - rossignol
2014-W17-4T15:51:10Z

 

[mapomme]

Re : extraction et reconstitution de dates

Bonsoir xtof76, le forum,

Un autre essai en VBA.

Sub ConvDate()
Dim n&
With Sheets("Feuil1")
  n = .Range("J" & Rows.Count).End(xlUp).Row
  .Range(.Cells(1, "J"), .Cells(n, "J")).NumberFormat = "d/mm/yyyy"
  .Range(.Cells(1, "J"), .Cells(n, "J")).Value = _
  .Range(.Cells(1, "J"), .Cells(n, "J")).Value2
End With
End Sub

Il me semble que la question de CHALET53 mérite de s'y attarder. Comme on sait pas comment le fichier a été obtenu, comment savoir si la date écrite 01/04/2014 est bien le 1ier avril ou bien le 4 janvier.

Pour l'interprétation du 1ier avril, la macro de ROGER2327 ou celle de mapomme conviendraient.

Si la date doit être interprétée comme le 4 janvier la macro de mapomme ne donne pas le résultat escompté. On peut dans ce cas utiliser une autre méthode.
.

• Sélectionner les dates de la colonne F
• Choisir le menu "Données / Convertir"
• Dans la boîte de dialogue qui s'affiche, cocher l'option "délimité" puis cliquer sur "Suivant"
• Dans la boîte de dialogue qui s'affiche, cliquer directement sur "Suivant"
• Dans la boîte de dialogue qui s'affiche, cocher l'option "date" et choisir le format "MJA" puis cliquer sur" Terminer"

 

[xtof76]

Re : extraction et reconstitution de dates

le formattage des cellules est déjà en format eut (DD-MM-YYYY)

11/21/2014 : pas sûr

Comment les reconnaître dans la colonne entre les deux formats
parce qu'un : 03/06/2014 pourrait être en réalité : 06/03/2014

a+

dans le fichier, les dates avec / sontdes dates formats US et celles avec des - sont correctes.
Qd je parle de formatage de cellule, j'entends par là que toute la colonne a été formatée avec la catégorie DATE et type DD-MM-YYYY sauf que les dates restant avec des / sont restées telles quelles