Rapport de message :*
 

Re: Supprimer les espaces d'une cellule

Titre du sujet : Re: Supprimer les espaces d'une cellule
par myDearFriend! le 26/01/2023 18:04:04

Bonjour Razmo, ,le Forum,

 

Encore une fois, tu y étais presque ! wink

 

Tu as visiblement effectué des recherches et tester certaines solutions par toi-même, et moi j'apprécie tes efforts, ça donne envie de te donner un coup de main.

 

Ta réflexion est tout à fait bonne au final :
 

  • C'est bien la fonction Trim() qu'il faut privilégier car, à elle seule, elle réalise ce que fait LTrim() et RTrim() réunies.
  • Il faut bien utiliser une boucle sur chaque cellule car cette fonction Trim() ne peut pas traiter une plage de cellules entière.

 

Quant à la définition de "MaPlage", je te propose ceci (en tenant compte du code présenté dans tes précédents fils de discussion) :

Set MaPlage = DIFF_WS.UsedRange.Columns(DIFF_DTC_H.Column)

For Each MaCellule In MaPlage.Cells
    'Étape 5: supprimer les espaces
    MaCellule.Value = Trim(MaCellule.Value)
Next MaCellule

Nb: j'ai supprimé ton test sur cellule vide IsEmpty() car il me semble inutile ici : la fonction Trim() tolère les chaines vides sans générer d'erreur.

 

Bien cordialement,