Référence 3D, somme en VBA
F60lebaladinverni
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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
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
3 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 -
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
-
Bonjour à tous
Tu peux aussi mettre une formule dans la feuille
Sheets(2).Range("C1").FormulaLocal = "=somme(Feuil3:Feuil4!C6)"
Cdlmnt
