Nombre personnalisé en fonction de l'indice monétaire d'une cellule.

  • Initiateur de la discussion Initiateur de la discussion dalt0n
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dalt0n

XLDnaute Nouveau
Bonjour à tous,

Je cherche à réaliser un nombre personnalisé en fonction de l'indice monétaire d'une cellule, je m'explique.

Imaginons que selon la monnaie choisie (liste déroulante : euros, dollars...ect.), je doivent adapter les nombres du tableau qui sont juste à coté. ex : 120€ ou 120$ si on choisir le dollars ou l'euro.

Le format serai grossièrement #0,00 [symbole de la monnaie choisie]

Je ne vois pas trop comment faire... es-ce possible ?

Merci
 
Re : Nombre personnalisé en fonction de l'indice monétaire d'une cellule.

Bonjour à tous,

Je cherche à réaliser un nombre personnalisé en fonction de l'indice monétaire d'une cellule, je m'explique.

Imaginons que selon la monnaie choisie (liste déroulante : euros, dollars...ect.), je doivent adapter les nombres du tableau qui sont juste à coté. ex : 120€ ou 120$ si on choisir le dollars ou l'euro.

Le format serai grossièrement #0,00 [symbole de la monnaie choisie]

Je ne vois pas trop comment faire... es-ce possible ?

Merci

Bonjour

si votre liste déroulante est en G1

et que les données sont en colonne C

voilà ce qui peut-être fait

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If [G1] = "€uro" Then
        Target.Select
        Selection.NumberFormat = "#,##0.00 $"
    End If
    If [G1] = "Dollars" Then
        Target.Select
        Selection.NumberFormat = "#,##0.00[$$-409]"
    End If

End Sub

Salutations

RGI
 
Re : Nombre personnalisé en fonction de l'indice monétaire d'une cellule.

Merci à vous deux, la réponse de gilbert RGI me parait adapté à mon problème. Je vous donnerai du feed back sur ce que j'aurai concocté.
Merci

Bonjour

ou encore
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    Select Case [G1]
    Case "€uro"
        Target.Select
        Selection.NumberFormat = "#,##0.00 $"
    Case "Dollars"
        Target.Select
        Selection.NumberFormat = "#,##0.00[$$-409]"
   Case Else
        Target.Select
        Selection.NumberFormat = "#,##0.00"
End Select
End Sub

Salutations

RGI
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour