Suppression fin d'une chaine de caractère

[François]

Bonjour,

J'ai récupéré un fichier avec des montants en euros rentrés visiblement en format texte "1 234 Eur".
Comment transformer ces cellules en format nombre sans tout retaper ?

Merci pour votre aide

FF

 

[michel]

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

 

[Charlie]

Bonjour,

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

Charlie

 

[François]

Merci
ça marche !!