Macro de changement de format monétaire...

Fermé

Seb8912 - 3 mars 2009 à 14:42
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 mars 2009 à 16:15

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.

A voir également:

Macro de changement de format monétaire...
Piratage facebook changer mot de passe - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Macro word - Guide
Changer de dns - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 mars 2009 à 16:15

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

Discussions similaires

Menace "Interpol" après webcam coquine

Formaté mais pas de connexion Internet ?

Chantage internet photo nue

Discussions similaires

Newsletters