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
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
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 :
Code:
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