Bonjour,
Dans mon fichier excel j'ai beaucoup de cases avec des espaces avant, après et entre les mots. Je souhaite donc supprimer les espaces inutiles. Pour cela j'ai écris le code suivant:
For Each Cell In ActiveSheet.UsedRange
Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)
Next
Tout fonctionne bien sauf pour certaines valeurs. Je m'explique, dans ma dernière colonne j'ai des nombres décimaux. Pour certains d'entre eux (ceux supérieurs à 100 je crois) la fonction rajoute des espaces.
ex: dans ma cellule j'ai la valeur 209,5790116 il me le transforme en 2 095 790 116. Je ne comprends pas pourquoi il fait ca. Si dans ma feuille excel je teste la formule équivalente =SUPPRESPACE(A1) ca fonctionne très bien. Pourquoi il fait ca? Comment résoudre ce problème?
Merci,
Dans mon fichier excel j'ai beaucoup de cases avec des espaces avant, après et entre les mots. Je souhaite donc supprimer les espaces inutiles. Pour cela j'ai écris le code suivant:
For Each Cell In ActiveSheet.UsedRange
Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)
Next
Tout fonctionne bien sauf pour certaines valeurs. Je m'explique, dans ma dernière colonne j'ai des nombres décimaux. Pour certains d'entre eux (ceux supérieurs à 100 je crois) la fonction rajoute des espaces.
ex: dans ma cellule j'ai la valeur 209,5790116 il me le transforme en 2 095 790 116. Je ne comprends pas pourquoi il fait ca. Si dans ma feuille excel je teste la formule équivalente =SUPPRESPACE(A1) ca fonctionne très bien. Pourquoi il fait ca? Comment résoudre ce problème?
Merci,