Discussion :

[Ardiden31]

Bonjour à vous,
J'ai un petit problème sur un code qui doit me calculer la somme d'une plage sauf qu'au lieu de me faire la somme il me fait l'addition de la première et dernière cellule. Par exemple sur les 10 cellules j'ai 1 le résultat obtenu est 2 et non 10

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
    Dim sh As Worksheet
    Dim Sh8 As Worksheet
 
    Set sh = ActiveSheet
    Set Sh8 = ThisWorkbook.Worksheets(Feuil8.Index)
 
sh.Cells(26, 2) = WorksheetFunction.Sum(Sh8.Cells(1, 1), Cells(1, 10))
End Sub

Merci à vous.

[Kimy_Ire]

Bonjour Ardiden31,

Essaye ceci :

Code :

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

sh.Cells(26, 2) = WorksheetFunction.Sum(Sh8.Range(Cells(1, 1), Cells(1, 10)))

Pas testé, mais je pense que tu auras compris le principe.

Cordialement,
Kimy

[Ardiden31]

Merci à toi Kimy_Ire. Mais j'avais aussi testé cela mais j'ai le message d'erreur suivant : "la méthode range de l'objet worksheet à échoué"

[Kimy_Ire]

En effet !
Ta range est définie par les cellules que tu lui passes en paramètre.
Il n'est donc pas possible de définir le classeur d'où cette range provient de manière évidente !
Je suis un peu bête !

Voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
    Dim sh As Worksheet
    Dim Sh8 As Worksheet
 
    Set sh = ActiveSheet
    Set Sh8 = ThisWorkbook.Worksheets(Feuil1.Index)
 
With Sh8
    ActiveSheet.Cells(1, 2) = Application.Sum(Range(.Cells(1, 1), .Cells(10, 1)))
End With
End Sub

Cordialement,
Kimy

EDIT : Au passage, pour moins te compliquer la vie :

Code :

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

Set Sh8 = Feuil1

[Ardiden31]

Merci c'est parfait (en détournant tes petits pièges ). Et merci pour la petite astuce.