[Excel] Transformer"-12,86 Eur" en "-12,86" par une ptite macro ?

Logiciel & apps Logiciel Général
1

Bonjour,
voici mon pb.

j’ai un paquet de donnée dans un tableur excel venant d’une page Web (mes compte), et il y’ a tjs les " Eur" dans chaque cellule ce qui m’empèche de faire mes calculs.

comment peut on enlever le " Eur" a la fin de chaque cellule ?
(4 caractères).

Merci de votre aide :stuck_out_tongue:

2

Salut,
Pas besoin de macro, ça devrait le faire avec une formule.
Exemple ton « -12,86 Eur » en A1, mets dans une autre cellule la formule:
=STXT(A1;1;NBCAR(A1)-4)*1
qui te renverra -12,86
Copie cette formule sur toute les lignes qui t’intéressent.

Bonne chance

3

:stuck_out_tongue: Au cas ou tu tiendrais à une macro je propose
Sub Suppression()
adresse = ActiveWindow.RangeSelection.Address
Dim x As Integer
For Each c In Range(adresse)
If c <> «  » Then
y = c
x = Len(c)
c.Value = Left(y, x - 3)
Else
End If
Next c
End Sub
Apres avoir selectionnè la plage concernèe lancer la macro
Mais je reconnais que la solution de 13 ber est plus èlégante
:slight_smile:

4

Merci beaucoup pour vos réponses.

13ber ta formule effectue bien ce que j’expliquais, mais je voulais pouvoir les utiliser en tant que valeur après. (pour pouvoir faire des opérations ensuite.)

pierrejean : c’est tout a fait ce que je souhaite ca fonctione nickel .

1000 mercis !

5

:stuck_out_tongue:
Heureux d’avoir pu t’aider. Ci-dessous une variante permettant d’inclure des cellules contenant d’autres informations et d’eviter un desastre en cas de doublement accidentel de la macro
Sub Suppression()
adresse = ActiveWindow.RangeSelection.Address
Dim x As Integer
For Each c In Range(adresse)
If Right(c, 4) = " Eur" Then
y = c
x = Len(c)
c.Value = Left(y, x - 4)
End If
Next c
End Sub
Attention toutefois à ne pas selectionner la feuille entière le trop grand nombre de cellules entraine un traitement interminable
:slight_smile: