supprimer les espaces dans une cellule

[Mikewebconception]

Bonjour,
J'ai une liste de numéro de tel et de fax contenant des espaces (ex : 84 50 32) et je voudrais savoir comment procéder pour enlever ces espaces pour obtenir 845032

si il existait une macro qui pourrait enlever tous les espaces et les ponstuations (. , ; / -) des numéro de téléphones ce serait parfait

Merci bcp

 

[porcinet82]

Salut Mikewebconception,

Va voir le Lien supprimé tu devrais trouver des idées pour resoudre ton problème.

Si ce n'est pas le cas refais signe.

@+

 

[Mikwebconception]

euh.... c'est gentil, mais ne t'es tu pas trompé de lien car je ne pense pas que c'est en rapport avec ce que je cherche 🙂

 

[pierrejean]

teste cette fonction
Function ote(numero As String)
longueur = Len(numero)
For n = 1 To longueur - 1
If Asc(Mid(numero, n, 1)) > 47 And Asc(Mid(numero, n, 1)) < 57 Then
ote = ote & Mid(numero, n, 1)
End If
Next
End Function

 

[porcinet82]

Salut Mikwebconception, Pierrejean,

Je ne me suis pas tromper de lien, la formule d'andré fonctionne parfaitement dans ton cas de figure, ainsi que la macro que j'avais proposé. Seul modif a faire dans les deux cas, ne pas faire reference a une cellule.

Ainsi la formule d'André ca donne ca :
=SUBSTITUE(A2;' ';'')

Et ma macro ca donne ca :

Sub extraire()
Dim i As Byte

For i = 1 To Range('A65536').End(xlUp).Row
    Cells(i, 2).Value = Replace(Cells(i, 1).Value, ' ', '')
Next i
End Sub

Tiens nous au courant.

@+

 

[Th4n4]

Coucou
je souhaite supprimer tous les espaces d'une feuille uniquement , les cellules contiennent aussi bien du texte que des chiffres

merci

 

[andré]

Salut,

Sélectionner la feuille
Menu Edition / Remplacer
Rechercher : ' '
Remplacer par : rien (laisser vide)
Remplacer tout.

Â+

Message édité par: andré, à: 06/02/2006 08:28