Référence 3D, somme en VBA

F60lebaladinverni Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
0
Réponse 2 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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

0
Réponse 3 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous

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

Cdlmnt
0