Supprimer tous les chiffres d'une plage de données

Bonjour,

J'ai recolté des données sur un site,

cependant il y a toujours écrit en nom de colonne 1-question 2-reponse 3-interpretation ...

Et en variable 1-satisfait, 2- très satisfait...

J'aimerais savoir s'il existait une macro qui permettrais de supprimer tous les chiffres qu'il existerait dans ma plage de données.

Merci

Ci-joint un exemple.

Salut,

Tu peux extraire facilement le texte après le tiret. Pour cela, entre la formule suivante : =DROITE(A1;NBCAR(A1)-CHERCHE("-";A1;1))

Le tour sera joué.

Salut stagiiaireVannes, Lauange,

une façon de faire, sans plus..., à tester...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim tTab, tSplit
'
Application.EnableEvents = False
tTab = UsedRange
'
For x = 1 To UBound(tTab, 1)
    For y = 1 To UBound(tTab, 2)
        If IsNumeric(Left(tTab(x, y), 1)) Then tTab(x, y) = Split(tTab(x, y), "-")(1)
    Next
Next
'
UsedRange = tTab
Application.EnableEvents = True
'
End Sub

A+

Bonsoir, salut Curulis !

J'en propose une autre !

Sub Dénuméroter()
    Dim plg As Range, c As Range
    Set plg = Selection
    For Each c In plg
        If IsNumeric(Left(c, 1)) Then c = Trim(Split(Replace(c, "-", "@", 1, 1), "@")(1))
    Next c
End Sub

Tu séléectionnes à plage à épurer et tu lances la macro.

Il vaut mieux que le numéro soit suivi d'un tiret (sinon résultat inattendu !)

Par contre,si ça ne commence pas par un chiffre, elle ne touche pas...

Cordialement

Cool, merci a vous !