Symbole monnaie

Bonjour à tous,

Existe-t-il un moyen pour lorsque je choisi ma devise mes signe de $ deviennent des CAD (dans le cas de dollard Canadien) ou si je choisi MXN ça devient MXN, et que ces valeurs puissent être additionnées. (possibilité de faire un SUM() ou SOMME())

J'aimerais que le changement de symbole s'effectue sur la même colonne (la colonne 100 CAD à droite des 100 $) est pour montrer le résultat que je voudrais.

Merci beaucoup,

JL

symbol monnaie

Bonsoir,

Peux-tu préciser ta demande?

Cdlt.

Merci Jean-Éric,

Voici mes précisions, ci-jointes.

Merci beaucoup

JL

explications

Re,

16jacklambert-v1.xlsm (17.00 Ko)

Je joins un exemple pour une plage bien précise.

Ton fichier anonymisé serait le bienvenu.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim rng As Range
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        ligne = Target.Row
        Set rng = Range("B" & ligne & ":E" & ligne)
        Select Case Target
            Case "CAD"    ' Canada
                rng.NumberFormat = "[$$-1009]#,##0.00"
            Case "EUR"
                rng.NumberFormat = "#,##0.00 €"    ' Europe
            Case "USD"
                rng.NumberFormat = "[$$-409]#,##0.00"    'USA
            Case Else
                ' à déterminer
        End Select
    End If
    Set rng = Nothing
End Sub

Merci beaucoup, Jean-Éric je voyais ça plus simple. Je ne pensais pas que ça pouvait être aussi intense le backend qu'il faut!

Mon fichier anonyme doit rester anonyme malheureusement, ultra confidentiel (informations clients).

Merci beaucoup pour l'aide très apprécié!

JL


Il se passe un truc étrange.

J'ai une erreur quand je veux ma sortie en JPY par exemple.

erreur

Je vais mettre le code dans ce format.

        Select Case Target
            Case "CAD"    ' Canada
                rng.NumberFormat = "#,##0.00 $"    ' Canada
            Case "EUR"
                rng.NumberFormat = "#,##0.00 €"    ' Europe
            Case "USD"
                rng.NumberFormat = "#,##0.00 $"    ' USA
            Case "GBP"
                rng.NumberFormat = "#,##0.00 £"    ' GBP
            Case Else

Deux petites dernières questions :

Est-ce possible de remplacer le $ par CAD?

Comment ne plus avoir la fenêtre qui affiche le chiffre 3 ou 2?

Re,

C'était un exemple de ce qu'on pouvait faire.

Tu dois ajouter autant de "case" que tu as de monnaies dans la liste déroulante...

Recopie le code ci-dessous dans ton fichhier.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim rng As Range
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        ligne = Target.Row
        Set rng = Range("B" & ligne & ":E" & ligne)
        Select Case Target
            Case "CAD"    ' Canada
                rng.NumberFormat = "#,##0.00 CAD"
            Case "EUR"
                rng.NumberFormat = "#,##0.00 €"    ' Europe
            Case "GBP"
                rng.NumberFormat = "#,##0.00 £" 'UK
            Case "USD"
                rng.NumberFormat = "#,##0.00 $"    'USA
            Case JPY
                rng.NumberFormat = "#,##0.00 ¥"   ' Japan
            Case Else
                ' à déterminer
        End Select
    End If
    Set rng = Nothing
End Sub

Thanks c'est super

Ça fonctionne très bien!

A+ Jean-Éric!

-JL

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim rng As Range
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        ligne = Target.Row
        Set rng = Range("B" & ligne & ":E" & ligne)
    Select Case Target
            Case "CAD"    ' Canada
               rng.NumberFormat = "#,##0.00 $"
            Case "EUR"
                rng.NumberFormat = "#,##0.00 €"    ' Europe
           Case "GBP"
                rng.NumberFormat = "#,##0.00 £" 'UK
           Case "USD"
                rng.NumberFormat = "#,##0.00 $"    'USA
           Case "JPY"
                rng.NumberFormat = "#,##0.00 ¥"   ' Japan
           Case "CNY"
                rng.NumberFormat = "#,##0.00 ¥"   ' Japan
           Case "MXN"
                rng.NumberFormat = "#,##0.00 $"   ' Japan
           Case Else
                ' à déterminer
       End Select
    End If
    Set rng = Nothing
End Sub
Rechercher des sujets similaires à "symbole monnaie"