cumul sommeprod

[chriss54]

Bonjour toutes et tous
j ai dans le fichier joint préparé ma question:
J aimerais cumuler (J5) dans l userform2 ....j5 = sommeprod
j'ai plusieurs onglets sauf le 1er qui est a écarter , mais dans mon programme finale il y aura peut être 20 ou 50 onglets ...
est il possible de compiler les données de J5 et d en faire le totale..
je joint le fichier voir onglet "feuil3!"
merci
Cdt
Chris

 

[Paf]

Pour balayer les feuilles, il y a l'exemple fourni par JM27 dans une autre discussion, et qui figure dans ce classeur joint.

pour alimenter la listbox,

 Me.ListBox1.AddItem .Range("J5")

suffit puisqu'il n'y a qu'une colonne dans la listbox.

En rajoutant dans la boucle

Cumul = Cumul + .Range("J5")

on obtient le total du contenu de la listbox

Par ailleurs, ça ne présente pas d'intérêt d'afficher ce total dans une listbox, une textbox ou même un label suffisent.

 

[chriss54]

Pour balayer les feuilles, il y a l'exemple fourni par JM27 dans une autre discussion, et qui figure dans ce classeur joint.

pour alimenter la listbox,

 Me.ListBox1.AddItem .Range("J5")

suffit puisqu'il n'y a qu'une colonne dans la listbox.

En rajoutant dans la boucle

Cumul = Cumul + .Range("J5")

on obtient le total du contenu de la listbox

Par ailleurs, ça ne présente pas d'intérêt d'afficher ce total dans une listbox, une textbox ou même un label suffisent.

 

[chriss54]

Bonjour, Merci.. En effet... Je regarde ca ce soir.. Merci.
Cdt
Chris

 

[chriss54]

Bonsoir , désolé mais je trouve pas ...suis débutant...Dsl
Chris

 

[JM27]

Bonjour
A mon avis tu n'es pas bien parti dans ton fichier.
Pourquoi ne pas créer un base de données dans une seule feuille plutôt que d'avoir une feuille par personne.
Une feuille pour la base de données et une feuille pour l'ensemble des personnes avec leurs coordonnées

La gestion de tes pb s'en trouverait simplifié.
Mais comme je ne connais pas la finalité de ton fichier , il est possible que je me trompe.

 

[chriss54]

En effet j aurais 50 onglets donc je conserve ce modèle.....

 

[JM27]

bonjour
50 onglets : ça va rapidement être ingérable
mais c'est toi qui vois

 

[chriss54]

j ai recopié la macro mais je n arrive pas a faire le total (H3)en listbox2..

 

[chriss54]

heu ("J5") pas H3
dsl

 

[JM27]

Bonsoir
A tester ( Avec un label)

 

[chriss54]

Super C Ok!
merci beaucoup
Bonne soirée
Chris