Discussion :

[LittleSun]

Bonjour,

voila j'ai des fichier Excel pour ma compta et j'aimerai faire une macro qui puisse supprimer tous les "EUR" dans les cellules

Par ex j'ai une colonne avec des : 56,30EUR et je voudrai enlevé le "EUR" dans toute la colonne pour pouvoir les traiter en nombre et faire des opérations.

Merci de votre aide

[Pierre Fauconnier]

Bonjour

Je suppose que les EUR ne sont pas uniquement dus au format d'affichage, et que tu as donc bien du texte dans ta cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub RemplacerEUR()
  Dim Plage As Range
  Dim Cellule As Range
 
  Set Plage = Range("a2:a100")
  For Each Cellule In Plage
    Cellule.Value = Replace(Cellule.Value, "EUR", "") * 1
  Next Cellule
End Sub

La plage est bien entendu à adapter à tes besoins

[mercatog]

Bonjour,
2autres petites propositions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub test1()
Range("a1:A500").Replace "EURO", ""
End Sub
 
Sub test2()
Dim Cellule As Range
 
For Each Cellule In Range("a2:a100")
  Cellule.Value = Val(Cellule.Value)
Next Cellule
End Sub

[LittleSun]

J'ai essayé vos 2 propositions masi ca ne marche pas, il ne se passe rien

J'ai du oublier de mentionné qq chose

Le format de cellule est "standard"

J'avais trouvé ça comme code sur Internet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub essai()
Dim val1 As String
Dim i As Long
For i = 1 To Len(ActiveCell)
    If Asc(Mid(ActiveCell, i, 1)) > 47 And Asc(Mid(ActiveCell, i, 1)) < 59 Then val1 = val1 & Mid(ActiveCell, i, 1)
Next
ActiveCell = val1
End Sub

Ca enleve tout ce qui n'est pas un chiffre, mais il y a deux problemes

* "5,30 EUR" devient "530"
* et ce ne marche que pour une cellule, pas pour toute la colonne selectionnée

Merci de votre aide

[laetitia]

bonjour LittleSun l'ami mercatog & Pierre le forum en mettant le point a la place virgule colonne a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Option Compare Text
Sub es()
Dim x As Variant, r As Long, c As Long
  Application.ScreenUpdating = False
     x = Range("a1:a" & Range("a65536").End(xlUp).Row).Value
     For r = 1 To UBound(x, 1)
     For c = 1 To UBound(x, 2)
           x(r, c) = Replace(x(r, c), "EUR", "")
           x(r, c) = Replace(x(r, c), ",", ".")
    Next c: Next r
  Range("a1:a" & Range("a65536").End(xlUp).Row).Value = x
End Sub

[Qwazerty]

Salut
Huuu, ça sentirait pas le vieux Troll ici ?
Que personne ne prennent la mouche, je parle juste des "." et des ",", ça dépend il me semble de tes réglages linguistique de ton PC, donc méfiance.
Tu peux aussi passer par une formule, comme celle ci, par contre tu aura le même problème avec les ".,"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(DROITE(K125;3)="EUR";CNUM(GAUCHE(K125;NBCAR(K125)-3)))

Dans K125 ta valeur avec EUR, je me demande s'il y a pas une formule mieux que CNum, faudrait l'avis d'un développer de formule Excel confirmé ^^.
++
Qwaz