enlever du texte dans une colonne

[papat]

bonjour a tous,bonne année.
comment faites vous pour enlever uniquement le texte dans une colonne et laisser les chiffres.?
peut etre n'est ce pas possible !! merci a vous

 

[CBernardT]

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

 

[papat]

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

 

[okolo]

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

 

[Hervé]

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

salut

 

[papat]

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