Ligne de code pour $ €

Le 12/03/2014 à 14:26

Bonjour,

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim rng As Range
    If Not Application.Intersect(Target, Range("M:M")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        ligne = Target.Row
        Set rng = Range("N" & ligne & ":AD" & ligne)
    Select Case Target
            Case "CAD"
               rng.NumberFormat = "#,##0.00 $" ' Canada
            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 ¥"   ' Chine
           Case "MXN"
                rng.NumberFormat = "#,##0.00 $"   ' Mexique
           Case Else
                rng.NumberFormat = "#,##0.00 "   ' Vide
       End Select
    End If
    Set rng = Nothing
End Sub

Je sais pas comment faire mais je voudrais ajouter cette condition :

Pour la "Currency" affichée en B6 affecter en plus les cellules N2 à N4, O2, R2, AA1, AB2, AC2, AD2.

Merci!