Vendredi Last Call - Symbole monnaie

TGIF!

J'ai besoin d'un dernier coup de main avant le WE sur un fichier Excel ci-joint pour l'actualisation de symbole de monnaie.

Voilà j'ai un macro qui (merci @ quelqu'un de ce forum dont j'ai oublié le nom) permet que lorsque je choisi mon symbole de change exemple EUR il me mets le signe de l'euro devant mon coût.

Petit problème, quand je veux attribuer l'EUR à plusieur colonne ex.: de 3 à 7 le symbole ne se met pas. Il faut que 1 à 1, je choisi EUR et ensuite le signe se place.

- Comment faire pour ne pas avoir ce problème?

Merci beaucoup!

Bonsoir,

Essaie ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.ScreenUpdating = False
'======================================================================================================
'   SYMBOLE
'======================================================================================================
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Set Rng = Selection.Offset(, 1)
    Application.EnableEvents = False
    Selection = Target
    Select Case Target
        Case "CAD"
            Rng.NumberFormat = "[$$-1009]#,##0.00"      ' Canada
        Case "EUR"
            Rng.NumberFormat = "#,##0.00 $"    ' Europe
        Case "USD"
            Rng.NumberFormat = "[$$-409]#,##0.00"    ' USA
        Case Else
            Rng.NumberFormat = " #,##0.00"      ' Vide
    End Select
End If
Set Rng = Nothing
Application.EnableEvents = True
End Sub

Bonne soirée

Merci cousinhub de l'aide.

Pour ce coup je viens de tester le code, malheureusement,

:'( ça ne fonctionne pas.

Re-,

:'( ça ne fonctionne pas.

Bah, si tu le dis....

Tu penses bien que j'avais essayé sur ton fichier exemple....

Maintenant, tant pis...

Comme je ne sais pas ce qui ne fonctionne pas, je ne peux que te souhaiter "Bon courage"

Et bonne soirée

Désolé cousinhub j'ai fait un copier-coller, j'ai écrasé le code et ça ne fonctionnait pas. Le débogueur d'Excel n'est pas très "explicite".

Je me doute que tu as essayé le fichier et sache que je te remercie infiniment de l'aide et ainsi que de ton temps précieux.

J'ai eu une Erreur 13 : Type Mismatch, j'ai fait Debug et on m'a seulement surligné Case "CAD"en jaune...

Si tu as le fichier qui fonctionne chez toi je veux bien l'essayer !

A+

et

Merci+

Bonjour Jack,

Petit rappel!

https://forum.excel-pratique.com/excel/symbole-monnaie-t48866.html?hilit=jacklambert

Le contexte était différent

Maintenant si tu veux appliquer un format nombre particulier à une plage de cellules déterminée, je ne pense pas que l'événement 'Worksheet_Change' soit le plus adapté.

A te relire.

Bonjour,

Bonjour J-E

Ci-joint un fichier qui fonctionne...

Bon W-E

Re,

Le fonctionnement est partiel.

1 - En A2 USD ; copier A2 en A3:A4

2 - En A2 USD ; sélectionner A2:A4 puis Ctrl + B

De plus utiliser 'Application.EnableEvents' sans gestion d'erreur, Aïe

AHAHA J-E, merci pour le lien vers mon post . Je suis parti de ce code que je voulais "pimper".

Merci counsinhub je vais test le code de suite.

Même si c'est partiel si ça améliore un peu l'efficacité du code j'avance!

Bon dimanche à vous!

À demain peut-être,

J