Pbm en vba

Bonjour,j' un problém concernant la création d'une fonction en vba voila le code:
Function soumia(aff As Integer)
Dim i As Integer
Dim t() As Variant
t(1) = 0
For i = 1 To aff
t(i + 1) = t(i) + aff
Nexti
soumia(aff) = t(aff + 1)
End Function

achaque fois je reçoi un msg d'erreur :sub ou function non définie, jé presk tt essayé mé ça marche pa,s'il ya qcq ki peum'aider et merci infiniment
Configuration: Windows XP
Firefox 1.5.0.6

4 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    As-tu essayer de passer le code pas à pas ?

    Function soumia(aff As Integer) As Variant
    Dim i As Integer 
    Dim t() As Variant 
    
       t(1) = 0 
       For i = 1 To aff 
          t(i + 1) = t(i) + aff 
       Next i 
    
    soumia = t(aff + 1) 
    
    End Function 


    ;o)
    1. As-tu testé ton code avec le débeugeur ? en mettant un point d'arrêt dans ton code (sur le cadre à gauche d'une ligne code, faire click gauche).

      Sur quelle ligne le message d'erreur apparait-il ?