Format monétaire conditionnel par macro

[Jiheme]

Bonjour à tous

Une fois de plus pas moyen d'adapter ce que j'ai trouver dans la recherche à mon problème.

Je voudrais que suivant le choix de la colonne I (EUR ou USD) le format des colonnes J à M soit automatiquement eu Euros ou en Dolars. Le tout étant valable jusqu'en bas de la feuille le cas échéant.

Merci d'avance
A+

 

[Pierrot93]

Re : Format monétaire conditionnel par macro

Bonjour Jiheme

testes peut être le code ci dessous, chez moi il a l'air de fonctionner, mais vraisemblablement dépendant des paramètres régionaus.

Macro événementielle à placer dans le module de feuille concernée, mais tu l'auras deviné... lol

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Count = 1 Then
    Range(Cells(Target.Row, 10), Cells(Target.Row, 13)).NumberFormat = IIf(Target.Value = "EUR", "#,##0.00 $", "#,##0.00 [$$-409]")
End If
End Sub

te souhaitant un bon week end.
@+

 

[Jiheme]

Re : Format monétaire conditionnel par macro

Bonjour Pierrot, re à tous

Super Pierrot c'est nickel, comme d'habitude, je reviendrais sûrement pour ce classeur, mais je voudrais bien arrivé à faire un truc par moi même...

Encore Merci et Bon WE

A+