somme

[a10]

Bonjour,
j'ai un tableau



poisson heure poisson heure poisson heure poisson heure poisson heure poisson heure
a 2 00:00:00 2 00:00:00 2 00:00:00 2 2 2 12
b 4 4 00:00:00 4 00:00:00 4 4 4
c 6 6 00:00:00 6 00:00:00 6 6 6






puis je voudrai récupérer dans un nouvel onglet chaque onglet de 1 à31 le total qui est en fond jaune

24

 

[CISCO]

Re : somme

Bonsoir

Perso, je n'ai rien compris à ta demande. Autrement dit, si personne ne t'aide rapidement, c'est qu'il faudrait détailler davantage ta demande, en mettant peut être quelques réponses attendues.

@ plus

 

[ROGER2327]

Re : somme

Bonsoir a10

Je ne jurerai pas que j'ai compris votre problème. S'il s'agit de sommer les cellules O8 des onglets 1 à 31, essayez l'une des formules suivantes :​

=PRODUITMAT(1;SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=SOMME(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=MIN(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=MAX(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

La première doit être validée normalement par Entrée, les trois autres doivent être validées par Ctrl Maj Entrée.​

ROGER2327
#5952

Samedi 28 Merdre 139 (Saint Raca, cagot - fête Suprême Quarte)
26 Prairial An CCXX, 8,9155h - jasmin
2012-W24-4T21:23:50Z


P.s. : Bonsoir CISCO. Effectivement, ce n'est pas très clair...

 

[a10]

Re : somme

Bonjour,

J'ai joint un fichier pour ma demande
1 classeur avec des onglets de 1 à 31 et 1 onglet cumul

 

[poulie]

Re : somme

Bonjour a10, Bonjour à tous,

A tester si j'ai bien compris...

Bonne réception

 

[ROGER2327]

Re : somme

Re...

Bonjour,

J'ai joint un fichier pour ma demande
1 classeur avec des onglets de 1 à 31 et 1 onglet cumul

Êtes-vous sûr de cela ? Je vois un classeur avec des onglets 1, 2 (masqués pour simplifier le travail, sans doute...), 11, 12 et Feuil2. Pas d'onglet cumul.

Je joins un classeur avec des onglets 1 à 31 et un onglet Cumul complété avec les formules. Il faut vraiment tout faire !​

ROGER2327
#5964

Lundi 2 Gidouille 139 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXX, 3,9453h - thym
2012-W24-6T09:28:08Z

 

[a10]

Re : somme

Bonjour,


J'ai 20 tableau a aditionné par jour

J'ai la formule qui me donne#NA
Début Fin Nombre Pause NB heure Prod Observations
0:00

0:00

09:30 16:20 1:20 5:30 4,4
5

16

3





Début Fin Nombre Pause NB heure Prod Observations
0:00

0:00

09:30 16:20 1:20 5:30 4,4
5

16

3

 

[a10]

Re : somme

Bonjour,

Sur chaque nglet une formule assez simple avec somme prod: est ce une solution. Mais je n'arrive pas.


a+

 

[ROGER2327]

Re : somme

Re...

Bonjour,

Sur chaque nglet une formule assez simple avec somme prod: est ce une solution. Mais je n'arrive pas.


a+

Peut_être, mais je ne sais pas le faire.

Les formules que je propose sont simples, mais ne semblent pas fonctionner sur les versions d'Excel antérieures à Excel2010.
Voir cette discussion :

https://www.excel-downloads.com/threads/formule-sur-somme-selection-de-feuille-classeur.186666/​

Quelle version d'Excel utilisez-vous ?​

ROGER2327
#5968

Lundi 2 Gidouille 139 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXX, 4,6304h - thym
2012-W24-6T11:06:47Z

 

[a10]

Re : somme

Bonjour,

J'utilise excel 2007

J'ai un classeur par mois
et dans chaque classeur j'ai 31 onglets (1 par jour) et 1 onglet recap
je veux additionner le nombre de chaque opérateur


a+

 

[ROGER2327]

Re : somme

Re...

Bonjour,

J'utilise excel 2007

J'ai un classeur par mois
et dans chaque classeur j'ai 31 onglets (1 par jour) et 1 onglet recap
je veux additionner le nombre de chaque opérateur


a+

Avec Excel2007, je crois que ma proposition n'est pas valable. Il va falloir trouver autre chose...
Accepteriez-vous une solution utilisant un peu de code VisualBasic ?
Je m'absente un moment, mais je pourrai éventuellement reprendre le boulot dans la soirée si vous n'avez pas de solution d'ici-là.


Bon après-midi


ROGER2327
#5979

Mardi 3 Gidouille 139 (Sainte Dondon, amazone - fête Suprême Quarte)
29 Prairial An CCXX, 5,0512h - pivoine
2012-W24-7T12:07:23Z

 

[a10]

Re : somme

bonjour
on va essayer

 

[ROGER2327]

Re : somme

bonjour
on va essayer

D'accord !​

Function SSomme(ParamArray Plg() As Variant)
'
'--- 30 Prairial CCXX (chariot) --- ROGER2327 fecit ---'
'
Application.Volatile 'Facultatif
'
Dim i&, j&, k&, Cel As Range, s$(), v As Variant
'
'--- Recherche des feuilles à traiter. ----------------'
    For i = 1 To Worksheets.Count
        If IsNumeric(Worksheets(i).Name) Then
            k = k + 1
            ReDim Preserve s(k)
            s(k) = Worksheets(i).Name
        End If
    Next
'
'--- Sommation. ---------------------------------------'
    For i = 1 To k 's(0)
        For j = 0 To UBound(Plg)
            For Each Cel In Plg(j).Cells
                With Worksheets(s(i)).Range(Cel.Address)
                    If Not IsEmpty(.Cells) Then If IsNumeric(.Cells) Then v = v + .Value
                End With
            Next
        Next
    Next
'
    SSomme = IIf(IsEmpty(v), "", v)
'
End Function

Exemples d'utilisation dans le classeur joint.​

ROGER2327
#5984

Mercredi 4 Gidouille 139 (Sainte Tripe, républicaine - fête Suprême Quarte)
30 Prairial An CCXX, 4,2422h - chariot
2012-W25-1T10:10:52Z

 

[ROGER2327]

Re : somme

Suite...

Erreur dans le message précédent !

Le code a été créé par juxtaposition de morceaux de code utilisé pour un autre problème. Il est fonctionnel (je l'espère du moins...) mais est inutilement compliqué.

Code simplifié :​

Function SSomme(ParamArray Plg() As Variant)
'
'--- 30 Prairial CCXX (chariot) --- ROGER2327 fecit ---'
'
Application.Volatile 'Facultatif
'
Dim i&, j&, Cel As Range, v As Variant
'
    For i = 1 To Worksheets.Count
        If IsNumeric(Worksheets(i).Name) Then
            For j = 0 To UBound(Plg)
                For Each Cel In Plg(j).Cells
                    With Worksheets(i).Range(Cel.Address)
                        If Not IsEmpty(.Cells) Then If IsNumeric(.Cells) Then v = v + .Value
                    End With
                Next
            Next
        End If
    Next
'
    SSomme = IIf(IsEmpty(v), "", v)
'
End Function

Voir des exemples dans le classeur XLD_186587_SommeSpéciale1.2.xlsm


J'ajoute un classeur XLD_186587_SommeSpéciale1.1.xlsm qui fait le même boulot avec un code plus alambiqué (le code est pour partie dans le module standard Module1, pour partie dans l'objet ThisWorkbook).​

ROGER2327
#5985

Mercredi 4 Gidouille 139 (Sainte Tripe, républicaine - fête Suprême Quarte)
30 Prairial An CCXX, 5,6690h - chariot
2012-W25-1T13:36:20Z