Enlever les espaces en VB

Bonjour,

Je copie des valeurs dans un tableau, est des fois, lors du collage, excel2010 me rajoute un espace devant ma valeur. exemple
valeur d'origine: "1-1"
Valeur copier: " 1-1"

Ce qui provoque des erreur dans l’exécution de mes macros, car en vb "1-1" n'est pas égale a " 1-1"

La fonction Trim ne corrige pas le probléme.
Et le code:

Code:

---

1 2 3

mavaleur = Cells(i,j).value mavaleur = replace(mavaleur, " ","") Cells(i,j).value = mavaleur

---

ne marche pas non plus.
Si vous avez une solution, ou une astuce ????

Merci d'avance.

Bonsoir.

Chez moi Replace et Trim$ marchent très bien. Mais comme tu as écrit

Code:

---

Cells(...)

---

, si la bonne feuille n'est pas active, tu te trompes peut-être de cellules.

Ceci dit, je pense que le pb est ailleurs : tu remarqueras qu'on ne peut pas écrire la valeur "1-1" dans une cellule sans que ce soit interprété comme une date. Je ne vois que 2 façons de l'éviter :

• Ecrire "'1-1". La valeur est différente mais la propriété .Text renvoie bien "1-1"
• Passer les cellules en question au format Text avant d'y inscrire des valeurs.

Cordialement,

PGZ

Merci pour ta réponse, mais j'ai bien tout mit en forme texte, sur toutes les cellules de mon tableau.
Et ma macro fonctionne correctement si je supprime les espaces a la main,
donc je suis bien dans la bonne cellule du bon tableau.

Mais dans un souci d'optimisation, je souhaité automatiser sa.

Merci encore pour ta réponse.

cordialement.