Discussion :

[Blaiz58]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[issoram]

Comme ça ça devrait aller mieux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Blaiz58]

Merci beaucoup C'est impeccable !