MACRO pour changer les € en $

[pedimoul]

Bonjour à tous,

Je recherche une macro me permettant, de remplacer, dans toutes les cellules en format monétaire de mon fichier excel 2007, les € par les $.

Merci d'avance pour votre aide et bonne fin de journée

P

 

[tototiti2008]

Re : MACRO pour changer les € en $

Bonjour pedimoul,

Bienvenue sur XLD,

Mais comme 1€ n'est pas égal à 1$, ça ne risque pas de poser des problèmes ?
Ou alors c'est affiché en € chez toi mais ça devrait l'être en $ ?

 

[Pierrot93]

Re : MACRO pour changer les € en $

Bonsoir p, toto

peut être modifier le format des cellules, pour les colonnes H à J par exemple :

    Columns("H:J").NumberFormat = "[$$-409]#,##0.00"

bonne soirée
@+

 

[pedimoul]

Re : MACRO pour changer les € en $

Hello,

merci pour ton accueil 🙂

non aucun problème, c juste un changement de "symbol" de la catégorie "Currency" dans la section "Numbers" du format de la cellule.
Quand je fais l'opération à la mano en "recordant" une macro, j'ai la ligne de code suivante:

Selection.NumberFormat = "[$$-409]#,##0.00"

Donc ce dont j'ai besoin (à mon avis, mais je suis vraiment un amateur, il faut le dire) c'est :

- checker l'ensemble eds cellules de mon fichier (plusieurs onglet)
- trouver lorsque mon format est monétaire avec la devis €
- et le cas échéant changer en $

dis moi si je ne suis pas claire.

meric d'avance

 

[david84]

Re : MACRO pour changer les € en $

Bonjour,
à tester dans un module :

Sub Remplacer()
For Each cell In Selection
       Cells.Replace What:="€", Replacement:="$", LookAt:=xlPart
        Next
End Sub

Sélectionner la zone et lancer la macro.
A+
Edit : bonsoir Tototiti🙂 et Pierrot🙂

 

[pedimoul]

Re : MACRO pour changer les € en $

Merci david, mais la cellule ne contient pas le caractère €, c'est juste un format. Ca ne marche donc pas pour mon cas.

 

[Pierrot93]

Re : MACRO pour changer les € en $

Re, bonsoir David🙂

essaye peut être ainsi :

Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.NumberFormat = "#,##0.00 $" Then c.NumberFormat = "[$$-409]#,##0.00"
Next c

 

[Pierrot93]

Re : MACRO pour changer les € en $

Re,

pour toutes les feuilles du classeur actif :

Dim c As Range, ws As Worksheet
For Each ws In Worksheets
    For Each c In ws.UsedRange
        If c.NumberFormat = "#,##0.00 $" Then c.NumberFormat = "[$$-409]#,##0.00"
    Next c
Next ws

 

[pedimoul]

Re : MACRO pour changer les € en $

Hello,

Merci beaucoup Pierrot, cela marche au poil! et c'est exactement ce que je voulais.
En changeant de format via des macro manuelles, et en adaptant dans ton code, je peux dorénavant faire tout ce que je souhaite comme modif de format 🙂🙂

Merci a tous pour votre réactivité et votre aide.

A bientôt sur ce super forum

P

 

[Pierrot93]

Re : MACRO pour changer les € en $

Bonjour,

oui effectivement les formats varient en fonction de ceux utilisés et de ceux souhaités...

bonne journée
@+