Pb function en VBA excel

Patosh31 Messages postés 4 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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 Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
  2. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    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