Macro de changement de format monétaire...

Question

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.

lermite222 · Answer

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

Macro de changement de format monétaire...

1 réponse

Votre réponse

Discussions similaires

Newsletters