supprimer espace vide

[Xavier]

Bonjour le forum,

Voici un petit problème que je ne sais pas résoudre.
J'espère que l'un d'entre vous aura un bonne idée.

Dans une colonne, j'ai des données alphanumériques du style LLCCCCCCCCCC (10 caractères).
Seulement parfois il existe un espace entre les lettres (L) et les chiffres (C), j'ai donc alors LL CCCCCCCC (11 caractères).

Comment faire pour supprimer cet espace?

Cette colonne me sert de clefs pour pouvoir joindre 2 fichiers. Du fait de cette espace, j'ai 4000 enregistrements sans jointure... que je dois traiter manuellement...

Voilà, si vous avez une bonne idée, je suis preneur.
Merci d'avance à tous

Xavier

 

[Art]

Bonjour Xavier ainsi que le Forum
Cette macro pourrait etre ce que tu cherches.
Elle supprimme "tous" les espaces dans ta sélection.

Sub Substitute()
Dim Cell As Variant
For Each Cell In Selection
Cell.Value = Application.Substitute(Cell.Value, " ", "")
Next Cell
End Sub

Ou alors en utilisant une fonction sur ta feuille.
Si tes données commence en A1.

=SUBSTITUE(A1;" ";"")

Tiens nous au courant
@+
Art

 

[Vériland]

Bonjour Xavier et toi le Forum,

Tiens j'en connais une qui va certainement venir avec une formule...lol

ah ben non y'a déjà Art qui est passé...lol...Bon ben moi je te propose une fonction à placer dans un module...

Function espace(S$)
With Application
espace = .Substitute(S, Chr(160), "")
espace = .Clean(espace)
espace = .Substitute(espace, " ", "")
End With
End Function

ensuite dans une cellule tu inscris la formule suivante :

=espace(ta cellule)

et le résultat fera que tous les espaces présents dans la cellule seront supprimés...Là tu as le choix...lol

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Xavier]

Bonjour Art, Veriland & le forum

Et bien que dire...sinon un grand merci

les trois solutions fonctionnent à merveille

Merci aussi pour votre rapidité.

Me voici comblé...

A+
Xavier