code VBA pour remplacer des espaces ne marche pas

[MickDos]

Bonjour,

je fais un export de données a partir d'une application Windev vers Excel et ces données son aprés utilisées pour faire un controle d'autres données sorties de SAP aussi par export excel.
Le probleme c'est que dans l'export de Windev les données comportent tourjours espaces du coté droit et je n'arrive pas a éléminer ces espaces.

J'ai écrit un code pour automatiser cette partie de la tache mais rien ne marche ni trim ni clean ni CTRL + H que ce soit en excel ou en VBA.

Dans cet export il y aussi un champ qui est le nom de la session de Windev.(p.ex SEPTEMBER1, etc.) quand je fais le code en vba (trim, clean , remplacer) a chaque fois le format est changé et ca devient 01 sept. J'ai essayé dans CTRL H de définir le format de sortie mais ca ne marche pas.

Quelqu'un pourrait m'aider?

 

[TempusFugit]

Re : code VBA pour remplacer des espaces ne marche pas

Bonjour


Ce doit être non pas un Chr(32) mais un Chr(160)

Essaie de faire : ALT+0160 au lieur de la barre d'espace quand tu fais ton Edition/Remplacer.

 

[MickDos]

Re : code VBA pour remplacer des espaces ne marche pas

Je viens de rouvrir le fichier et le probleme 1 semble etre résolu et donc je pourrais me débrouiller.

Toutefois je suis toujours curieux de savoir comment je pourrais résoudre mon 2em probleme:

J'ai donc une cellule avec des noms de sessions qui s'appellent SEPTEMBER1, SEPTEMBER2 et ainsi de suite.
Dans excel avec CTRL H , trim , clean ca enleve les espaces mais avec le code il change le format en plus. Donc le résultat n'est plus SEPTEMBER1 sans espaces mais sept 01 en format custom mm-dd.

Quelqu'un sait comment faire pour que le format reste en Generral? Meme en disant avant de prendre format Gnereral il le change et le changer apres change le contenu de la cellule dans le nombre correspondant a la date.

 

[TempusFugit]

Re : code VBA pour remplacer des espaces ne marche pas

Il serait utile de voir et ton code VBA et un fichier exemple dans ta discussion.

Sinon comment faire pour tester ?

 

[MickDos]

Re : code VBA pour remplacer des espaces ne marche pas

La macro s'appelle WinDevCreate et la sheet A est le download que je fais de l'application Windwev.

Je copie ce tableau et je vais dans mon fichier et je lance le code

tout le code se fait dans l'autre fichier

 

[TempusFugit]

Re : code VBA pour remplacer des espaces ne marche pas

Il nous faudrait un bout de fichier dans lequel se produit le phénomène que tu décris.

Sinon on ne peut rien voir et donc rien tester sur nos pcs.

 

[MickDos]

Re : code VBA pour remplacer des espaces ne marche pas

Je suis pas sur si le fichier est parti dans mon dernier message.

C'était un fichier xlsm.

 

[TempusFugit]

Re : code VBA pour remplacer des espaces ne marche pas

En ajoutant un ' cela évite le problème

Sélectionne ta colonne H
et lance la macro ci-dessous
(ou adapte ton code VBA d'origine en conséquence)

Sub supprESPACE()
For Each cell In Selection
cell.Value = "'" & Trim(cell.Value)
Next cell
End Sub

 

[MickDos]

Re : code VBA pour remplacer des espaces ne marche pas

Merci

logique je n'avais pas pensé a ca.