Pb function en VBA excel

Patosh31 -  
Bonjour,

Je souhaite utiliser une fonction dans excel en vba, sauf que je n'arrive pas à appeler cette fonction.

est ce que je peux la mettre dans un programme en sub puis exit sub?

je cale.

Merci de votre aide.

Cordialement

Function MaSomme(un As Integer, deux As Integer, trois As Integer, quatre As Integer, cinq As Integer) As Integer

' déclaration des variables
Dim un As Integer
Dim deux As Integer
Dim trois As Integer
Dim quatre As Integer
Dim cinq As Integer
Dim somme As Integer
' découpage lettre à lettre
nom1 = Mid(Range("b1"), 1, 1)
nom2 = Mid(Range("b1"), 2, 1)
nom3 = Mid(Range("b1"), 3, 1)
nom4 = Mid(Range("b1"), 4, 1)
nom5 = Mid(Range("b1"), 5, 1)
'définition d'un score s'il y a correspondance ou pas
If nom1 = "T" Then un = 0.5 Else un = -0.25
If nom2 = "G" Then deux = 0.5 Else deux = -0.25
If nom3 = "T" Then trois = 0.5 Else trois = -0.25
If nom4 = "A" Then quatre = 0.5 Else quatre = -0.25
If nom5 = "A" Then cinq = 0.5 Else cinq = -0.25

MaSomme = un + deux + trois + quatre + cinq

Range("a15") = MaSomme

End Function

2 réponses

  1. JvDo
    Bonsoir à tous,

    Sauf si tu dois absolument utiliser ta fonction avec les Mid et les If, tu peux envisager de faire des économies de caractères : 
    Function MaSomme_bis(nom As Range) As Double
    MaSomme_bis = -1.25 - 0.75 * ((nom Like "T*") + (nom Like "?G*") + (nom Like "??T*") + (nom Like "???A*") + (nom Like "????A"))
End Function

    Pour le reste, tu suis les indications de eriiic.

    Cordialement
    0
    1. eriiic Contributeur
      Bonjour,

      Ben oui, si tu écris n'importe quoi ça ne risque pas de fonctionner.
      Il faut te renseigner et apprendre au minimum les bases.
      Il y a tellement d'erreurs et d'incongruités qu'il faudrait 3 page pour t'expliquer.
      Voilà à quoi elle pourrait ressembler : 
      Function MaSomme(nom As Range) As Double
      ' déclaration des variables
          Dim un As Double
          Dim deux As Double
          Dim trois As Double
          Dim quatre As Double
          Dim cinq As Double
          Dim somme As Double
          ' découpage lettre à lettre
          nom1 = Mid(Range("b1"), 1, 1)
          nom2 = Mid(Range("b1"), 2, 1)
          nom3 = Mid(Range("b1"), 3, 1)
          nom4 = Mid(Range("b1"), 4, 1)
          nom5 = Mid(Range("b1"), 5, 1)
          'définition d'un score s'il y a correspondance ou pas
          If nom1 = "T" Then un = 0.5 Else un = -0.25
          If nom2 = "G" Then deux = 0.5 Else deux = -0.25
          If nom3 = "T" Then trois = 0.5 Else trois = -0.25
          If nom4 = "A" Then quatre = 0.5 Else quatre = -0.25
          If nom5 = "A" Then cinq = 0.5 Else cinq = -0.25
          MaSomme = un + deux + trois + quatre + cinq
      End Function

      A mettre dans un module Standard
      Et dans une cellule : 
      =masomme(B1)

      eric
      0
      1. eriiic Contributeur
        edit oubli :
        remplacer :
        nom1 = Mid(Range("b1"), 1, 1)
        nom2 = Mid(Range("b1"), 2, 1)
        nom3 = Mid(Range("b1"), 3, 1)
        nom4 = Mid(Range("b1"), 4, 1)
        nom5 = Mid(Range("b1"), 5, 1)
        par :
        nom1 = Mid(nom, 1, 1)
        nom2 = Mid(nom, 2, 1)
        nom3 = Mid(nom, 3, 1)
        nom4 = Mid(nom, 4, 1)
        nom5 = Mid(nom, 5, 1)
        Heureusement que JvDo a l'oeil ;-)
        0