{VBA Excel} Changement de format des dates lors de la suppression de blanc

Bonjour,

Je souhaite de l’aide pour le problème suivant sous excel.
J’ai dans une feuille cinq colonnes importées d’une copie sur un site web.
La colonne A contient des dates sous la forme jj/mm/aaaa
Les colonnes B à E continent des chiffres sous la forme 123,45
Dans la configuration de Windows XP, le format de la date est jj/MM/aaaa et j’utilise Excel 2002 sp3.

Chaque valeur est précédée et suivie d’un espace insécable (Char(160) dans ascii) que je matérialise ici sous la forme d’une *.
Exemple : *01/07/2007*, *15/08/2006* ou *452,89*

Mon problème est le suivant : lors de l’exécution du code vba pour remplacer cet espace insécable, certaines dates sont transformées en format anglo-saxon : 01/07/2007 (1er juillet 2007) devient 07/01/2007 (7 janvier 2007) alors que le 15/08/2006 reste le 15/08/2006.

Avant le passage du code la colonne A a pour format Standard, le changement de ce format en jj/mm/aaaa ne résout pas le problème.

Pour les colonnes B à E la restitution est correcte.

Voici le code que j’utilise :

Code:

---

1 2 3 4 5

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule. Replace Chr(160), "" Next

---

Merci pour votre aide

bonjour pbfby

essaye cela

Code:

---

1 2 3 4 5

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule = cdate(mid(cellule.value,2,10)) Next

---

bonne journée

Citation:

---

alors que le 15/08/2006 reste le 15/08/2006.

---

Excel a pourtant essayé de convertir mais le 15ème mois de l'année n'est pas encore connu et donc, il laisse tel que :mouarf:


Je te propose ceci

Code:

---

1 2 3 4 5

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule. Replace Chr(160), "'" Next

---

càd de remplacer l'espace par un guillement (single quote).

Christophe

Bonjour pbfby, bienvenue sur le forum.
Pense aux balises code pour faciliter la lecture ;)
Tu peux essayer ça

Code:

---

1 2 3 4 5 6

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule. Replace Chr(160), "" Cellule.value = Format(cdbl(Cellule), "dd/mm/yyyy") Next

---

Pas testé mais si ce n'est pas ok, alors teste

Code:

---

1 2 3 4 5 6

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule. Replace Chr(160), "" Cellule.value = Format(cdbl(cdate(Cellule)), "dd/mm/yyyy") Next

---

Pas testé non plus. Si pas ok, je regarderai de plus près ;)
A+

Code:

---

1 2	=DATEVALUE(mid(macellule.value,2,10))

---

Je reprends mon code pour l'appliquer sur la première colonne

Code:

---

1 2 3 4 5 6

Range("a1").Select ActiveSheet.UsedRange.Select For Each Cellule In ActiveSheet.UsedRange Cellule. Replace Chr(160), "" if Cellule.column = 1 then Cellule.value = Format(cdbl(cdate(Cellule)), "dd/mm/yyyy") Next

---

Tu dis
A+

La solution préconisée par ouskel'n'or dans son dernier message résout mon problème.

Merci à tous pour votre aide.