enlever du texte dans une colonne

Bonsoir Papat,

Je te propose une simple macro avec des lignes de remplacement par rien.

La plage est à adapter...

Sub EffacementLettres()
'Effacement des lettres et autres caractères
Application.ScreenUpdating = False
With Sheets('BASE').Range('A1:A5000')
.Replace What:='a', Replacement:=''
.Replace What:='b', Replacement:=''
.Replace What:='c', Replacement:=''
.Replace What:='d', Replacement:=''
.Replace What:='e', Replacement:=''
.Replace What:='f', Replacement:=''
.Replace What:='g', Replacement:=''
.Replace What:='h', Replacement:=''
.Replace What:='i', Replacement:=''
.Replace What:='j', Replacement:=''
.Replace What:='k', Replacement:=''
.Replace What:='l', Replacement:=''
.Replace What:='m', Replacement:=''
.Replace What:='n', Replacement:=''
.Replace What:='o', Replacement:=''
.Replace What:='p', Replacement:=''
.Replace What:='q', Replacement:=''
.Replace What:='r', Replacement:=''
.Replace What:='s', Replacement:=''
.Replace What:='t', Replacement:=''
.Replace What:='u', Replacement:=''
.Replace What:='v', Replacement:=''
.Replace What:='w', Replacement:=''
.Replace What:='x', Replacement:=''
.Replace What:='y', Replacement:=''
.Replace What:='z', Replacement:=''
.Replace What:='é', Replacement:=''
.Replace What:='è', Replacement:=''
.Replace What:=''', Replacement:=''
.Replace What:=' ', Replacement:=''
'Autant que nécessaire------------
End With
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

merci pour ta reponse si rapide ,je suis totalement debutant en vba ,mais je vais de ce pas me pencher dessus en gardant precieusement ta macro .bye

Bonjour et bonne année à toi aussi,

Tu ne précises pas ce qu'il y a dans tes colonnes, mais je peux te proposer une autre piste: remplace. S'il s'agit de toujours remplacer le même texte du genre '8 allumettes', tu peux ctl-H et l'inscrire dans une macro. Tu peux aussi utiliser la commande 'convertir'. Tu auras alors 8 dans une colonnes et allumettes dans l'autre.

Bien à toi

Bonsoir tout le monde

une autre proposition possible :

Sub Bouton1_QuandClic()
Dim c As Range
Dim i As Byte
Dim nombre As String

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
        For i = 1 To Len(c)
                If IsNumeric(Mid(c, i, 1)) Then
                        nombre = nombre & Mid(c, i, 1)
                End If
        Next i
        c = CDbl(nombre)
        nombre = ''
Next c
                       
End Sub

Cliquez pour agrandir...

salut

merci pour toute vos reponses .je me penche dessus immédiatement.vous etes le sel de la terre.