Aditionne tous les onglet d'un classeur ...

saxo9 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour tous le monde !

Dans mon code j'aditionne certaines cellules de 9 onglets, mais parfois je peux en avoir 31 onglets:


Range("B3").Select
ActiveCell.FormulaR1C1 = _
"='Bon de commande repas (9)'!R[111]C[4]+'Bon de commande repas (8)'!R[111]C[4]+'Bon de commande repas (7)'!R[111]C[4]+'Bon de commande repas (6)'!R[111]C[4]+'Bon de commande repas (5)'!R[111]C[4]+'Bon de commande repas (4)'!R[111]C[4]+'Bon de commande repas (3)'!R[111]C[4]+'Bon de commande repas (2)'!R[111]C[4]+'Bon de commande repas'!R[111]C[4]" Range("B3").Select

J'ai pas trouver si il y avait une focntion pour dire "aditionne tant qu'il y en a"

Je pense qu'il faut faire une boucle ... mais j'ai pas tout compris ;o(

Si quelqu'un peut me guider, merci par avance
isa

1 réponse

Réponse 1 / 1
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   155
 
Bonjour,

Pourquoi n'essaies-tu pas ca :

ref = activesheet.name
bon = 0

for feuille =1 to sheets.count
if sheets(feuille).name <> ref then
bon = bon+sheets(feuille).cells(111,4)
end if
next
sheets(ref).select
cells(3,2) = bon
0

Discussions similaires

Onglet disposition Excel ne s'affiche pas
dsqalli -
Raymond PENTIER -

5 réponses
fichier excel pour étiquettes
cathy2505 -
Raymond PENTIER -

8 réponses
Disparition de l'onglet "événements" sur les Groupes FB
WisseWam -
WisseWam -

2 réponses
L'onglet Disposition pour les tableaux dans Word 2019
sucharbo -
sucharbo -

2 réponses
Excel : l'onglet Création (Outils de tableau) n'apparaît pas !
elise -
GrosseTruie -

3 réponses