Suppression fin d'une chaine de caractère

bonjour François

J'espere que l'exemple ci dessous pourra t'aider. Dans la feuille active , toutes les cellules se terminant par "Eur" sont modifiées .

Sub TransformeNombre()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Cells
If Right(Cell, 3) = "Eur" Then Cell = Left(Cell, Len(Cell) - 3)
Next Cell
End Sub

bonne journée
michel

Bonjour,

La même chose en formule : =CNUM(GAUCHE(A1;NBCAR(A1)-4))

Charlie

Merci
ça marche !!