Affecter Function.Sum à une feuille

[herve62]

Bonjour
Le dilemme SOMME en Vba !!!
J'ai utilisé Function.Sum car je trouve cela simple
Le code ci-dessous fonctionne bien si l'on se trouve dans la feuille

With Worksheets(x)
 Sheets(x).Range("AH" & lf).Value = WorksheetFunction.Sum(Range("c" & lf, "AG" & lf))
 End With

Par contre lorsqu'il se trouve dans un module la fonction ne prend plus en compte les valeurs de la feuille(x)
La macro est dans une feuille "RECAP" elle appelle une SUB dans un Module avec le code ci-dessus
Je viens de faire des tests et je m'apperçois que le résultat en AH de la feuille(x) est la somme des valeurs que j'ai mises dans la feuille RECAP

MA question : Est-il possible d'affecter la feuille(x) à l'instruction WorksheetFunction.Sum
je pense que le Pb est là
re méthode mais je me suis déjà emmêlé les pinceaux avec FORMULA R C !!!!!!!!!!
Merci

 

[tototiti2008]

Re : Affecter Function.Sum à une feuille

Bonjour Hervé,

Quand tu es dans un With, pour faire référence à l'objet du With il faut commencer les instructions par un point

With Worksheets(x)
  .Range("AH" & lf).Value = WorksheetFunction.Sum(.Range("c" & lf, "AG" & lf))
 End With

 

[herve62]

Re : Affecter Function.Sum à une feuille

Re
Oui ca je sais , j'ai voulu "renforcer" en ajoutant la feuille , mais c'est Function.Sum qui ne va pas dans la feuille(x) mais reste dans RECAP , j'avais mis pour essayer : sheets(x).worksheetFunction ..... mais ça c'est Erreur !!
Je n'ai toujours pas le bon résultat

 

[tototiti2008]

Re : Affecter Function.Sum à une feuille

Re,

Je n'ai toujours pas le bon résultat

même comme ça ?

With Worksheets(x)
.Range("AH" & lf).Value = WorksheetFunction.Sum(.Range("c" & lf, "AG" & lf))
End With

 

[herve62]

Re : Affecter Function.Sum à une feuille

Si , au temps pour moi , c'était une extrême coïncidence , j'avais le même total avec RECAP et la feuille(x)
Je m'en suis apperçu ensuite en changeant les valeurs que c'était en fait la bonne SOMME !!!
Merci Toto...