Discussion :

[bilou_12]

Bonjour,

J'ai un petit souci qui est le suivant: dans ma colonne G, j'ai des dates! Certaines sont au format us (elles sont écrites à droite de la cellule) et d'autres au format français (écrites à gauche)!

J'ai d'abord utilisé la fonction CDate dans vba, essayé pas mal de trucs "données-conversion-format date" dans une nouvelle colonne, format date sur cette colonne etc... Mais rien n'y fait!

Je n'arrive pas à avoir 01/04/2012 (bonne date en fr) là où excel m'écrit 04/01/2012 au format us!

Quelqu'un sait comment faire?

Merci d'avance!

[kiki29]

Sakut, voir avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim v as Double
        v = CDbl(CDate(Cells(x, y)))
        Cells(x, y) = Format(v, "dd/mm/yyyy")

A lire ici

[ZebreLoup]

Fais très attention avec les dates. D'où viennent les données ? Un copier-coller ? Un import ?
Tu as un Excel US ou FR ?
Car la solution de kiki29 marchera très bien pour des dates qui ne sont pas reconnus comme date (jour supérieur à 12). Mais pour les autres, Excel a cru reconnaître une date et a inversé lui-même le jour et le mois.
C'est vraiment au niveau de l'import des données qu'il faut travailler. Ou alors si c'est trop tard et que c'est un fichier que tu as récupéré, il faudrait travailler différemment selon les 2 cas :
- Pour ce qui est déjà reconnu comme date, inverser jour et mois
- Pour les autres, décomposer manuellement via le séparateur (sans doute "/") et reconstituer toi-même une date

[ZebreLoup]

Tiens en prime les formules pour faire ça (elles sont un peu barbare, ce serait plus lisible en VBA ou en passant par des cellules intermédaires)

En relisant ton premier post, j'ai l'impression que ton format par défaut est US.

Pour les dates reconnues comme date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(ANNEE(G25);JOUR(G25);MOIS(G25))

Ou avec un Excel US (je n'en ai pas sous la main, donc je peux faire une erreur sur la syntaxe des fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(YEAR(G25);DAY(G25);MONTH(G25))

Et pour les dates non reconnues :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(DROITE(G26;NBCAR(G26)-CHERCHE("/";G26;CHERCHE("/";G26)+1));STXT(G26;CHERCHE("/";G26)+1;CHERCHE("/";G26;CHERCHE("/";G26)+1)-CHERCHE("/";G26)-1);GAUCHE(G26;CHERCHE("/";G26)-1))

J'ai la flemme de faire la traduction en anglais, mais on trouve facilement la correspondance.