Discussion :

[pbfby]

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 :

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

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

[wilfried_42]

bonjour pbfby

essaye cela

Code :

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

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

[cavo789]

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


Je te propose ceci

Code :

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

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

[ouskel'n'or]

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

Code :

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

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 :

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

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+

[random]

Code :

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

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

[ouskel'n'or]

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

Code :

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

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+

[pbfby]

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

Merci à tous pour votre aide.