Creation fonction de transformation de devise

Résolu
micky -  
 Micky -
Bonjour,

A B
Dollars Euro
100
250

Je souhaiterai créer une fonction DollarsEuro(montant, Code) qui permet de renvoyer le montant dans la devise souhaite en fonction d'un code saisie par l'utilisateur (exemple 1 pour la transformation des euro en dollars, et 2 pour la transformation des dollars en euro). Avec un message d'erreur quand l utilisateur ne saisie pas le bon code

Merci d'avance

5 réponses

  1. micky
     
    re,

    j'ai trouve le code suivant
    Function FrancEuro(code, montant)
        If code = 1 Then
            FrancEuro = montant * 6.5
        ElseIf code = 2 Then
            FrancEuro = montant / 6.5
        Else: FranceEuro = "Erreur de code"
        End If
        
    End Function


    cepandant quand je me trompe de code ca ne me renvoie pas de message d erreur, j'aimerai aussi savoir si il est possible d utiliser une inputbox et un message box merci.
    0
  2. Utilisateur anonyme
     
    dans l'article, il est question de la coloration syntaxique, ça aurait été bien de faire l'effort.

    Quelle VB utilises tu?
    • VBS
    • VBA -> précisez:
      • Word
      • Excel
      • Access
      • Powerpoint
      • Autre
    • VB6 (ou antérieur, précisez)
    • VB.Net - précisez la Framework et ->
      • Winform
      • WPF

    0
  3. Micky
     
    Bonjour ç est vba excel. Je suis ultra débutant je sais avais même pas une ç etait c etait sur les autres programmes. Et la coloration syntaxique je connais même ppas s dsl.
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. Utilisateur anonyme
     
    Pour la coloration, il y a un lien dans l’article, donc il suffit de lire et d’appliquer.

    Pour ta fonction, un truc comme ça
    Function FrancEuro(code, montant) 
    If code = 1 Then 
        FrancEuro = montant * 6.5 
    ElseIf code = 2 Then 
        FrancEuro = montant / 6.5 
    Else
        FranceEuro = "Erreur de code" 
        MsgBox  "Erreur de code"
    End If 
    
    End Function 

    0
    1. Micky
       
      Ok chef, merci
      0