Suppresion espace dans cellule

Bonjour,

Je suis a la recherche d'une formule ou macro pour supprimé des espaces que j'ai dans des cellules.

J'ai essayé la formule "SUPPRESPACE" cela ne fonctionne pas.

En PJ mon fichier.

Merci pour votre aide.

Bonjour,

Teste avec cette formule, il y a un espace normal et un espace "insécable"

=SUPPRESPACE(SUBSTITUE(B5;CAR(160);""))

Après on peut le faire sur la même colonne par le menu RECHERCHER / REMPLACER en deux fois

1 fois avec l'espace normal et une autre avec pour l'insécable la touche ATL enfoncée et 0160

Bonjour Benetop, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim O As Worksheet 'déclare la varaible O (Onglet)
Dim DL As Integer 'déclare la varaible DL (Dernière Ligne)
Dim I As Integer 'déclare la varaible I (Incrément)

Set O = Worksheets("X83") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
For I = 5 To DL 'boucle des lignes 5 à DL
    O.Cells(I, "B").Value = Trim(O.Cells(I, "B").Value) 'redéfinit la valeur de la cellule en enlevant les espaces
Next I 'prochaine ligne de la boucle
End Sub

[Édition]
Bonjour M12, nos posts se sont croisés...

Merci a tous les deux solutions valider