Fonction Sum VBA

Version imprimable

Fonction Sum VBA

Bonjour à tous,

Lorsque j'utilise la fonction sum dans mon programme, j'ai un bug. Cela m'affiche la méthode "Range de l'objet Worksheet a échoué"

Je ne comprend pas très bien d'où viens le problème
Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    For b = 71 To 700 Step 70
        For i = 1 To 12
If Feuil4.Cells(b, 6).Value Like Cible Then
            If Feuil4.Cells(b + 8, i + 1) = "1/13" Then
 
             points14= points14+ Application.WorksheetFunction.Sum(Feuil4.Range(Cells(b + 10, i + 13), Cells(b + 10, 25)))
             points13= points13+ Application.WorksheetFunction.Sum(Feuil4.Range(Cells(b + 10, i + 1), Cells(b + 10, 13)))
         End If
End If
        Next i
    Next b

16/09/2014, 14h57
Blaiz58

J'ai trouvé d'où provenais l'erreur mais je ne sais comment la résoudre. Je pense que c'est un truc tout bête mais je ne le vois pas.

L'erreur vient du WorksheetFunction car en fait, je lance cette macro sur une autre feuille que la Feuil4 donc c'est pour ça que j'ai un problème :/

Voila si vous savez la solution :) Je vous remercie :)

Comme ça ça devrait aller mieux:

Code:

1
2
3
4
5
6
7
8
With Feuil4
    If .Cells(b, 6).Value Like Cible Then
        If .Cells(b + 8, i + 1).Value = "1/13" Then
            points14 = points14 + Application.WorksheetFunction.Sum(.Range(.Cells(b + 10, i + 13), .Cells(b + 10, 25)))
            points13 = points13 + Application.WorksheetFunction.Sum(.Range(.Cells(b + 10, i + 1), .Cells(b + 10, 13)))
        End If
    End If
End With

16/09/2014, 16h43
Blaiz58

Merci beaucoup :) C'est impeccable !