référence 3D, somme en VBA

Question

Bonjour,

je souhaite faire une formule qui additionne une cellule spécifique de chaque onglet en VBA, mais je ne connais pas le nom des onglets par avance …

Voici le code que j'ai fait et qui ne fonctionne pas, comment l'améliorer ?
Worksheets(2).Cells(1, 3) = WorksheetFunction.Sum(Sheets(3) &":"& Sheets(4)!Cells(6, 3))

Sinon, comment faire déjà pour afficher la ligne de code en mode "citation" ?

Merci pour votre aide

yg_be · Answer

bonjour, suggestion:
Dim sh As Worksheet
Dim total As Double
total = 0
For Each sh In ThisWorkbook.Sheets
    total = total + sh.Cells(6, 3)
Next sh

ThauTheme · Answer

Bonjour le fil, bonjour le forum,

Puisque tu passes par VBA pourquoi ne pas écrire en dur :
 Worksheets(2).Cells(1, 3).Value =Worksheets(3).Cells(6, 3).Value + Worksheets(4).Cells(6, 3).Value

ccm81 · Answer

Bonjour à tous

Tu peux aussi mettre une formule dans la feuille
Sheets(2).Range("C1").FormulaLocal = "=somme(Feuil3:Feuil4!C6)"

Cdlmnt

Référence 3D, somme en VBA

3 réponses

Discussions similaires

Newsletters