Aditionne tous les onglet d'un classeur ... Fermé

Question

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

melanie1324 · Answer

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

Aditionne tous les onglet d'un classeur ...

1 réponse

Discussions similaires