Macro de changement de format monétaire...

Seb8912 -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'ai créé une feille excel censée représenter des conditions contractuelles...
Une cellule ( g8) donne une indications de devise (€;£;$;PLN;etc...)

Une serie de cellule ensuite donne des montants...

ex: J20 Taxe gouvernementale et J21: 50€
Ces infos sont tirées d'une base de donnée placée sur les feilles suivantes...

J'ai choisis un format monétaire € car quand j'ai commencé tout mes montants étaient en €...

Je voudrais qu'en tappant un code produit, losque ma cellule devise affiche autre chose que € (par exemple USD),
le format de la cellule change également pour afficher 50 qu'il va chercher tout ceul grace à un e fonction RechercheV Mais qu'elle se mette toute seule au format $.

Je pense qu'il faut une macro, mais je n'y connait rien en VBA.

Quelq'un as t-il la solution?

Merci beaucoup.
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Une idée à creuser pour le format de cellules
    A mettre dans le module de la feuille... 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
    If Target.Count > 1 Then Exit Sub
    If AncAdress <> "" And AncCell <> "" Then 'pour 1ère initialisation.
        If AncAdress = "$G$8" And AncCell <> Range("G8") Then
            'La cellule du type de valeur a été modifiée.
            'La cellule à formater. Mettre le format désirer
            Range("J20").NumberFormat = "###.00 \" & Range("G8")
        End If
    End If
    AncAdress = Target.Address
    AncCell = Target.Value2
End Sub

    Ou bien plus simple, mettre un bouton et dans le code du bouton mettre 

        Range("J20").NumberFormat = "###.00 \" & Range("G8")

    Tu dis
    0