Faire la somme d'une plage de cellules par macro

Z

Zon

Guest

• 3 Décembre 2003

• #2

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+++

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 3 Décembre 2003

• #3

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@

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 3 Décembre 2003

• #4

Bonjour Zon, je t'avais pas vu

@Christophe@

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 3 Décembre 2003

• #5

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+++

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 3 Décembre 2003

• #6

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@

 

Vote positif 0 Vote négatif

F

Franck

Guest

• 3 Décembre 2003

• #7

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

 

Vote positif 0 Vote négatif