effacer du texte dans une cellule de données

[dilack]

Bonjour à tous
si qq'un de charitable pouvait m'aider!!!!!!
Je viens de créer mon premier bout de code (donc niveau candide).
Malheuresement il ne marche pas ou il marche trop bien il me supprime aussi les virgule.
Ce code me permet de supprimer du texte dans une cellule qui a cette geulle-ci
100,200,300,500,mesurer
Je voudrais que ce bout de code supprime "mesurer" tout en gardant mes valeur numériques.
100,200,300,500 ce qui correspondant a un numéros,x,y,z
voici ce foutu bout de code

Range('A:A').Select
Dim C As Range
For Each C In Selection
If Not IsNumeric(C.Value) Then
C.Value = ''
End If
Next C

merci d'avance pour vos réponces

 

[Art]

Re : effacer du texte dans une cellule de données

Bonsoir dilack
Je dis peut être une bétise mais si tu selectionnais simplement ta plage et tu faisais Edition/Remplacer ",mesurer" par "(là tu ne met rien)"
Ca n'irait pas?
@+
Art

 

[porcinet82]

Re : effacer du texte dans une cellule de données

Salut Dilack, Art,

En plus de la méthode de Art qui doit fonctionner, une petite macro a tester qui remplace directement dans la cellule sélectionnée.

Sub test()
Dim C As Range
For Each C In Selection
    If Not IsNumeric(C.Value) Then
        C.Value = Left(C.Value, InStr(1, C.Value, ",mesurer") - 1)
    End If
Next C
End Sub

@+

 

[dilack]

Re : effacer du texte dans une cellule de données

merci à tous les deux,
mais il faut que sa soit en macro car c'est pour l'inserer dans une autre macro qui va me permettre de créer un script pour autocad.
En tout cas je n'avais fais même pas attention à "edition /remplacer"