Sujet Précédent Sujet Suivant

Référence 3D, somme en VBA

Fermé
F60lebaladinverni Messages postés 128 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 16 juin 2024 - 1 juin 2018 à 10:39
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 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 23508 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 1 avril 2025 Ambassadeur 1 573
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 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
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

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
RECHERCHEV additionne les plusieurs lignes du meme nom
pfl.bourde -
pfl.bourde -

Bonjour,

J'ai un fichier excel avec des numéros de dossiers en colonne A, les numéros de factures en colonne B et les montants des factures en colonne C.
Il peut y avoir plusieurs factures pour un même numéro de dossier, donc plusieurs lignes pour un même dossier. Exemple:

Dossier Facture Montant
121212 011065 500,00
121212 021065 500,00
121212 031065 500,00

Sur un autre fichier ou son répertoriés les numéros de dossiers, je souhaite effectuer une RECHERCHE V pour récupérer le montant total des factures par dossier.

PROBLÈME : lorsque je fais une RECHERCHEV par dossier, l...

2 réponses
Blocage sur tableau Excel par la mention "La référence n'est pas valide
OBP-P75 -
DjiDji59430 -

Bonjour,
comme votre internaute de 2010, je suis aujourd'hui bloqué sur Excel car j'ai dû appuyer sur une touche involontairement - sans savoir laquelle bien entendu - je ne peux plus depuis ni modifier, ni fermer mon tableau me retrouvant donc complètement bloqué sans savoir quoi faire et ce tableau ne peut être détruit.
Quelqu'un peut-il m'aider s'il vous plaît avec pédagogie et le plus clairement possible en m'indiquant toutes les étapes précises pour me sortir de cette impasse sachant que je n'ai aucune connaissance informatique?
D'avance, je vous remercie // OBP P75

1 réponse