Suppression espace en milieu de cellule

Bonjour

Svp je souhaite le code pour’ supprimer les espaces de la valeur d’une cellule pour l’afficher sur une textbox

Trim ne supprime que les espaces à droite et a gauche

Y’a t il une solution

Merci pour votre aide

Bonjour,

à tester,

range("A1").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Bonjour à tous,

si ce n'est pour supprimer que les espaces superflus, utilise la fonction feuille :

ta_chaine = application.trim(ta_chaine)

eric

Top ca marche bien merciiiiii