OVH Cloud OVH Cloud

macro

1 réponse
Avatar
Eddy Maue
je veux programmer une macro qui a pour objectif ce qui suit

dans un classeur j'ai une vingtainte de feuilles

La premiere feuille est un résumé des 19 autres et je voudrais être
capable de faire une somme de chaque feuille

Ex.

* pour la feuille 1

a1 b1 c1 d1
feuille2
feuille3
feuille4
....
FeuilleN


* Feuille2

a1 b1 c1 d1
trimestre 1 trimestre 2 trimestre 3 trimestre 4



Je voudrais mettre la somme de mes trimestre sur la cellule C2 de la
feuille1

Mais je veux automatisé le tout

Donc ecrire une Macro SumPage( a1,a3,d3)

Voilà a1 = la cellule de la feuille1 et donc le nom de la feuille sur
laquelle je veux pratiquer une somme a3;d3


je sais que je pourrais écrire somme('feuille2'!a3:d3) mais tapper ca
dans une vingtaine de classeur avec tous des noms différent pour une
structure similaire ca va me prendre une semaine.

public Function SommeFeuille( cFeuille as string, r as range )

et là je sais plus

a+ eddy

1 réponse

Avatar
FxM
Bonsoir,

Non testé !
=somme(Feuille2:feuille20!A3:D3)

Tu peux aussi jeter un oeil dans le menu "consolidation".

@+
FxM



je veux programmer une macro qui a pour objectif ce qui suit

dans un classeur j'ai une vingtainte de feuilles

La premiere feuille est un résumé des 19 autres et je voudrais être
capable de faire une somme de chaque feuille

Ex.

* pour la feuille 1

a1 b1 c1 d1
feuille2
feuille3
feuille4
.....
FeuilleN


* Feuille2

a1 b1 c1 d1
trimestre 1 trimestre 2 trimestre 3 trimestre 4



Je voudrais mettre la somme de mes trimestre sur la cellule C2 de la
feuille1

Mais je veux automatisé le tout

Donc ecrire une Macro SumPage( a1,a3,d3)

Voilà a1 = la cellule de la feuille1 et donc le nom de la feuille sur
laquelle je veux pratiquer une somme a3;d3


je sais que je pourrais écrire somme('feuille2'!a3:d3) mais tapper ca
dans une vingtaine de classeur avec tous des noms différent pour une
structure similaire ca va me prendre une semaine.

public Function SommeFeuille( cFeuille as string, r as range )

et là je sais plus

a+ eddy