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