Aide somme
amande1206
Messages postés
4
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
5 mai 2006
-
5 mai 2006 à 15:43
zavier666 Messages postés 266 Date d'inscription mardi 7 septembre 2004 Statut Membre Dernière intervention 30 avril 2009 - 5 mai 2006 à 16:46
zavier666 Messages postés 266 Date d'inscription mardi 7 septembre 2004 Statut Membre Dernière intervention 30 avril 2009 - 5 mai 2006 à 16:46
1 réponse
zavier666
Messages postés
266
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
30 avril 2009
1
5 mai 2006 à 16:46
5 mai 2006 à 16:46
Tu fais une macro qui active tour à tour chaque workbook
nb_work = application.workbooks.count
Application.Workbooks(i).Activate
Pour chaque workbook, tu balaie chaque sheet
nb_sheet = activeworkbook.sheets.count
activeworkbook.sheets(i).activate
pour chaque sheets, tu prend la valeur et l'additionne à ta variable
dim somme as long
for each cel in activesheet.cells
somme = somme + cells.value
next
attention: le balayage de la feuille est très long
si tes données sont collées:
Activesheet.range("A1").Activate
Activecell.currentregion.select
for each cel in selection
etc....
voilà, je pense que cela fonctionne
slts!
API @ la Loupe
http://xav.prog.power.free.fr
nb_work = application.workbooks.count
Application.Workbooks(i).Activate
Pour chaque workbook, tu balaie chaque sheet
nb_sheet = activeworkbook.sheets.count
activeworkbook.sheets(i).activate
pour chaque sheets, tu prend la valeur et l'additionne à ta variable
dim somme as long
for each cel in activesheet.cells
somme = somme + cells.value
next
attention: le balayage de la feuille est très long
si tes données sont collées:
Activesheet.range("A1").Activate
Activecell.currentregion.select
for each cel in selection
etc....
voilà, je pense que cela fonctionne
slts!
API @ la Loupe
http://xav.prog.power.free.fr
