Discussion :

[Patdeniraud]

Salut les gens,

J'espère que vous allez pouvoir m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub investissement(Recap As Excel.Workbook, ExWb As Excel.Workbook)
 
' Recap est le classeur depuis lequel j'appelle cette macro, ExWb est l'autre classeur (je le choisis dans un autre macro à partir de laquelle j'appelle celle-ci)
 
' Declaration des variables temporaires
Dim i As Integer
Dim essai as Single
 
' La ligne suivante marche sans problème
MsgBox ExWb.Sheets("Chiffrages").Cells(34, 4).Value
 
' Celle-ci ne marche pas
essai = Application.WorksheetFunction.Sum(ExWb.Sheets("Chiffrages").Range(Cells(34, 4), Cells(36, 4)))
 
....

La fameuse ligne me produit une erreur, alors que si j'écris dans le classeur "ExWb" exactement la même chose (en utilisant Set ExWb = ThisWorkbook), cela marche sans problème. (les données sont là et tout).

Je précise qu'ici c'est un exemple précis (j'ai isoler le problème) et que normalement je ne mets pas les lignes (34 et 36) dans le range, mais j'utilise un Array. Donc la solution évidente de faire "cellule 1 + celulle 2 + cellule 3" au lieu d'utiliser WorksheetFunction.Sum ne me convient pas
J'ai supposé que ça devait provenir du fait que j'utilise les fonctions d'une feuille dans un autre classeur.
J'ai donc créer dans mon classeur recap une function Somme (plage as Range) qui faisait la même chose, ça passe pas non plus.

Ça m'agace, je ne trouve pas. Si quelqu'un pouvait me dépanner ça serait super.

Merci

[mercatog]

Code :

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

essai = Application.Sum(ExWb.Sheets("Chiffrages").Range(ExWb.Sheets("Chiffrages").Cells(34, 4), ExWb.Sheets("Chiffrages").Cells(36, 4)))

ou

Code :

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

1
2
3
with ExWb.Sheets("Chiffrages")
essai = Application.Sum(.Range(.Cells(34, 4), .Cells(36, 4)))
end with

ps: j'ai enlevé WorkSheetFunction (par simplification)

[AlainTech]

Bonjour,

Contrairement à ce qu'annonce Microsoft, Range se comporte comme une fonction et non pas comme une propriété d'une feuille.
Il faut donc lui donner la position complète de chaque cellule:

Code :

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

essai = Application.WorksheetFunction.Sum(Range(ExWb.Sheets("Chiffrages").Cells(34, 4), ExWb.Sheets("Chiffrages").Cells(36, 4)))

Pour simplifier l'écriture, tu peux passer par un bloc With:

Code :

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

1
2
3
With ExWb.Sheets("Chiffrages")
  essai = Application.WorksheetFunction.Sum(Range(.Cells(34, 4), .Cells(36, 4)))
End With

Ou mieux, en créant une instance de la feuille:

Code :

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

1
2
3
Dim wksDest As Worksheet
Set wksDest = ExWb.Sheets("Chiffrages")
essai = Application.WorksheetFunction.Sum(Range(wksDest.Cells(34, 4), wksDest.Cells(36, 4)))

Zut, grillé...
Salut mercatog

[Patdeniraud]

Bon bah je vais aller tester ça de ce pas, mais je vois pas pourquoi ça marcherait pas, je vois le soucis maintenant

Merci de votre rapidité les gars

[Patdeniraud]

Bon bah ça ne marche pas en fait :/

Code :

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

1
2
3
4
5
6
7
' J'ai rajouté ça comme expliqué :
' Créer une instance de la feuille
Dim wksDest As Worksheet
Set wksDest = ExWb.Sheets("Chiffrages")
 
Dim essai As Single
essai = Application.WorksheetFunction.Sum(Range(wksDest.Cells(34, 4), wksDest.Cells(36, 4)))

ça me donne toujours l'erreur 1004...

ça me parait extremement redondant mais :

Code :

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

essai = Application.WorksheetFunction.Sum(wksDest.Range(wksDest.Cells(34, 4), wksDest.Cells(36, 4)))

marche nickel. Je comprends pas pourquoi je dois passer deux fois la feuille (à range, et à cells)

[AlainTech]

Où as-tu placé le code de ta fonction?
Dans un module de feuille ou un module standard?

[Patdeniraud]

dans un module (et non dans le code de la feuille) de mon classeur.

Là je chipote, j'essaie de comprendre pourquoi je dois le passer deux fois, mais sinon je pense que je peux passer le sujet en résolu.

Je vous remercie, et si quelqu'un peut m'expliquer le pourquoi du comment, ça sera un plus