Supprimer tous les chiffres dans une cellule

Bonjour Julien,

En VBA, la solution ci-dessous fonctionne:

Sub VireChiffre()

Dim Cell, DetectCar, CellSansChiffre As String, _
LongCell, i As Byte

Cell = Range("A2").Value 'Ta plage de cellule est a adapter
LongCell = Len(Cell)

For i = 1 To LongCell
DetectCar = Mid(Cell, i, 1)
If IsNumeric(DetectCar) Then
CellSansChiffre = CellSansChiffre
Else
CellSansChiffre = CellSansChiffre + DetectCar
End If
Next
Range("A3").Value = CellSansChiffre
End Sub

Cordialement,

GVentre

Bonjour

Je cherche à supprimer tous les chiffres présents dans un cellule qui
contient lettres et chiffres.

Comment faire ?

Merci bcp

Je cherche à supprimer tous les chiffres présents dans un cellule qui
contient lettres et chiffres.

Sub zz()
x = ActiveCell.Value
For i = 1 To 9
x = Application.Substitute(x, i, "")
Next
ActiveCell.Value = Application.Substitute(x, 0, "")
End Sub

AV