Sujet Précédent Sujet Suivant

Référence 3D, somme en VBA

Fermé
F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 - 1 juin 2018 à 10:39
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 4 juin 2018 à 15:18
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 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
1 juin 2018 à 14:47
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 mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
4 juin 2018 à 13:56
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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 4 juin 2018 à 15:18
Bonjour à tous

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

Cdlmnt
0

Discussions similaires

Code Ascii
christophe -
personnel -

14 réponses
enigme
sillvain -
Kai61 -

1 réponse
Erreur Automation
CCM_lfrt -
Paola -

4 réponses