Enlever les espaces dans les DATES

[karim]

Bonjour,

Voici mon problème:

J'ai un fichier où il y a deux colonnes avec des dates sous la forme dd/mm/yy.
Ce fichier étant une extraction d'une base de données, les cellules avec les dates sont au format texte et les dates comportent des espaces avant ou après.
Ce que je veux faire c'est supprimer les espaces pour pouvoir ensuite comparer les deux dates d'une même ligne.

J'ai donc essayé de faire

cellule.NumberFormat = "m/d/yyyy"
cellule = trim(cellule_origine)

mais là, gros problème, pour les dates où le jour est inférieur ou égal à 12, je me retrouve avec le jour et le mois inversé dans la cellule mais avec l'année au bon format.Le texte est à droite de la cellule.

Pour les dates où le jour est >30, le jour et le mois sont bons mais l'année reste au format YY. Le texte est à gauche de la cellule.
MAIS, il suffit que je double clique dans la cellule et que j'appuie sur entrer pour que cela se mette sous le bon format (DD/MM/YYYY)

Je vous met en pièce jointe mon fichier, il vous faudra lancer la macro Espaces pour voir ce que je viens d'expliquer ci dessous.

Je vous remercie par avance pour votre expertise !

 

[gege]

Bonjour mais il est impossible de telecharger la pièce jointe.

 

[andré]

Salut,

Je n'ai aucun problème à ouvrir la pièce jointe, ... mais je n'ai aucune compétance à résoudre le problème (macro !).

Bonne soirée quand même.
Ândré.

 

[jmps]

Bonsoir karim, bonsoir gege,

Remplace
Range("K2").Offset(k) = cel
par
Range("K2").Offset(k) = DateValue(cel)

Remplace aussi "m/d/yyyy" par "dd/mm/yyyy" si tu veux une date à la française.

Idem pour les autres adresses de cellules. Ca devrait marcher.

Bonne soirée.

José

 

[jmps]

Oups. Désolé Ândré, je t'ai pas entendu arriver. La prochaine fois klaxonne ;°)

 

[andré]

Salut jmps,

Pas de problème, on fait équipe.
Moi je dis que que c'est possible, toi tu donnes la solution (lol).

Bonne soirée.
Ândré.

 

[Gérard DEZAMIS]

Bonsoir Karim

en faisant :

=SUBSTITUE(E2;" ";"") et
=SUBSTITUE(I2;" ";"") en ayant créé deux colonnes sup (gros inconvenient)
possible avec une seule sup en joignant les deux formules

cela pourrait-il te convenir ?


@+
GD

 

[Gérard DEZAMIS]

Bonsoir à tous

Comme d'habitude ! j'ai encore 3 métros de retard ! et en plus avec une solution qui ne me parait plus très fameuse (fumeuse) en fonction des réponses de l'alliance André-José !

Sniff ! J'hésite entre la corde et le poison ........


@+
GD

 

[andré]

Gérard,

Petit conseil (mon âge me le permet), prends femme, c'est plus long mais tout aussi efficace, et puis cela ne laisse pas de traces.

Ândré.

 

[jmps]

Pas grave Gérard, on sait ce que c'est la RATP. Si t'hésites, essaye "l'accident grave de voyageur".

Mais non ! Je rigole Gérard. Pas envie d'être en retard au boulot demain... ;°))

Bonne soirée à tous.

José

 

[Gérard DEZAMIS]

Merci Merci Ândré

de ce bon conseil mais cela va faire 40 ans déjà que je suis sous ce type de traitement ....

Ce qui explique peut-être (qui a dit c'est sûr !) mon état actuel

A la tienne ! Gling ! ("bruit de deux verres de Duvel qui se rencontrent")

Bonne soirée

@+GD

 

[karim]

Bonjour tout le monde!

Et merci JMPS!
Avec ta méthode, ça marche impeccable!

Merci encore!
@+
Karim