Rapport de message :*
 

Supprimer les espaces d'une cellule

Titre du sujet : Supprimer les espaces d'une cellule
par Razmo le 26/01/2023 15:21:50

Bonjour à tous !

 

Mon problème est le suivant lorsque je copie la colonne d'un fichier (ou des espaces à gauche non voulu s'affiche) et que je colle cette colonne dans mon autre fichier je souhaite que ces espaces disparaissent.

Vous allez me dire pourquoi je n'efface tout simplement pas les espaces dans le fichier ou je copie la colonne car je ne peux pas XD (plus serieusement je n'ai pas le droit).

 

Je souhaite effacer les espaces à gauche et à droite aussi (on sait jamais) dans la colonne DTC code :

 

Le souci c'est que j'ai trouvé comment faire mais ça me le fait pas pour toutes les cellules... et je ne sais pas pourquoi comme vous pouvez le voir avec le screen du dessus.

 

J'ai déclaré deux variables : Dim counter As Long et Dim column As Integer.

Ensuite je leur attribut ça : counter = ActiveCell.Row et column = ActiveCell.column

Et j'ai rajouté ce bout de code lorsque je souhaite copier et coller ma colonne en supprimant les espaces : 

MATRIX_DTC_H_Datas.Copy 'Destination:=DIFF_DTC_H.Offset(1, 0)
DIFF_DTC_H.Offset(1, 0).Value = RTrim(Cells(counter, column).Value)
DIFF_DTC_H.Offset(1, 0).Value = LTrim(Cells(counter, column).Value)
DIFF_DTC_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues

 

Si y'a besoin de tout le code hésitez pas à me le dire :)

Merci par avance !