Discussion :

[tic59]

Bonjour,

J'ai le problème suivant sur Excel:

J'ai à la base 3 colonnes, une correspondant au jour, une deuxième au mois et une troisième à l'année.
Je souhaite regrouper ces 3 colonnes dans une quatrième afin qu'elle contienne la date complete du type JJ/MM/AAAA.

J'utilise la ligne de macro suivante:

Code :

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

Range("J" & i).Value = Range("B" & i) & "/" & Range("H" & i) & "/" & Range("I" & i)

Problème: Pour certaines cellules, le jour et le mois sont inversés... Au lieu d'avoir JJ/MM/AAAA je vois MM/JJ/AAAA.

Pourtant toutes les cellules de la colonnes finale sont au même format de date: *14/03/2001, et en français...

Pour faire un test, j'ai inclus le résultat de la concatenation des 3 cellules dans une variable, puis je l'affiche via Msgbox, il n'y a pas d'erreur d'inversion à ce niveau.
Donc le problème apparaitrait au moment de l'insertion des données dans les cellules finales...

Pouvez vous m'aider? J'ai tourné le problème dans tous les sens et je ne vois plus trop d'ou ça peut venir... Ca me semble plus très logique... Quelqu'un a une idée?

(J'utilise Office 2007)

[AcRy07]

Bonjour,

As tu possibilité de faire un fichier "exemple" que tu nous upload et qu'on puisse regarder ?

Car de visu comme ça avec ton poste j'ai pas d'idée.. surtout si ton format de cellule est bon et que ton résultat en sortie (mgbox) est ok..

Cdt
Benoit

[JPierreM]

Bonjour,

Essayez

Code :

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

Range("J" & i).Value = CDate(Range("B" & i) & "/" & Range("H" & i) & "/" & Range("I" & i))

[tic59]

Bonjour,

ça marche très bien avec la fonction CDate(Range...

Merci!

[JPierreM]

Bonjour,

Quand c'est résolu merci de le signaler, ça évite de revenir sur les mêmes messages

[Docmarti]

Il faut être prudent avec CDate car il peut inverser le jour et le mois parce qu'il accepte autant jj/mm/aaaa que mm/jj/aaaa
Exemple :

Code :

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

cdate("1/5/2010")

donne 01/05/2010

Code :

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

cdate("5/13/2010")

donne 13/05/2010

Tu peux détecter l'erreur ainsi:

Code :

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

1
2
3
4
5
d = CDate(Range("B" & i) & "/" & Range("H" & i) & "/" & Range("I" & i))
 
 If Month(d) <> CLng(Range("H" & i)) Then
  MsgBox d & " Erreur de mois en " & Range("H" & i).Address
 End If

[AlainTech]

Il faut être prudent avec CDate car il peut inverser le jour et le mois parce qu'il accepte autant jj/mm/aaaa que mm/jj/aaaa

Petite nuance:
CDate va utiliser les Options régionales.
Donc, sur les ordinateurs configurés en francophonie européenne, CDate prendra toujours l'ordre jj/mm/aaaa.

[Docmarti]

Petite nuance:
CDate va utiliser les Options régionales.
Donc, sur les ordinateurs configurés en francophonie européenne, CDate prendra toujours l'ordre jj/mm/aaaa.

On devrait plutôt dire que CDate prendra toujours en priorité l'ordre du Format de date courte tel que défini dans les options régionales, mais qu'il acceptera, hélas, un ordre différent s'il rencontre une valeur supérieure à 12 attribuée à MM (le mois).

Ainsi, avec un format de date Courte jj/MM/aaaa ,
05/13/2010 sera interprété comme étant le 13 mai
alors que 05/12/2010 donnera le 5 décembre.

[AlainTech]

Ok, j'aurais dû présiser: "si on lui donne une date conforme aux options régionales".

[Didier Gonard]

Bonjour,

tic59, regardes aussi dans les tutoriels :


Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier