Faire la somme d'une plage de cellules par macro

[Franck]

Bonjour,

La réponse à ma question doit figurer sur les forums, mais l'outil de recherche étant désactivé, je n'arrive pas à la trouver.

Je souhaite recueillir la somme d'une plage de cellule dans une variable, par macro ?

NB : cette cette fonction sera répètée pour une centaines de classeurs que j'ouvre à la chaîne.
=> cela donne
- ouvrir classeur 1
- faire la somme de a1:1000 <= le pb est là
- stocker la somme dans une feuille
- fermer classeur 1
- ouvrir classeur 2...

merci de votre aide

 

[Zon]

Salut,

Sans plus de précision essaies un truc du style:

with workbooks("Tonclasseurquetuviensd'ouvrir.xls")
with .sheets("Lafeuilleconcernée") 'ou mettre l'index
Tavariable ou ta cellule=application.sum(.range("A1:A1000")
end with
end with

A+++

 

[@Christophe@]

Bonjour Franck

Utilise le code suivant:

Sub NomSub()
Dim Var as integer
....

Var = Application.WorksheetFunction.Sum(Workbooks("classeur2").Worksheets("Feuil1").Range("A1:A1000"))

....

End sub

Cela stockera la sum de la plage A1:A1000 du classeur2 feuil1 dans une Variable nommé Var

bonne chance

@Christophe@

 

[@Christophe@]

Bonjour Zon, je t'avais pas vu

@Christophe@

 

[Zon]

Salut,

Heureux de te croiser @christophe, la nuit je n'ai pas trop l'occasion de te voir. Par contre déclarer Var en integer risque de poser des erreurs de compatibilités moi je le mettrai en double.

A+++

 

[@Christophe@]

Re

Oui, tu as raison, j'aurai du mettre 'double' comme il n'a pas stipuler le type de données qu'il veut additioner.

Merci

Bonne nuit alors

@Christophe@

 

[Franck]

Effectivement, ça ne se devine pas ! Mais ça fonctionne parfaitement.
Merci !