Discussion :

[AN2020]

Bonjour, J’ai besoin d’aide.

J’ai un classeur excell ave 32 onglet. Il y en aura près de 200 à la fin. Ils ont tous la même structure.

J’ai une feuille résumé dans laquelle je veux additionner la cellule C2 entre les onglets nommés DEBUT/FIN sous deux conditions : la première, que dans ces onglets, la cellule H492=100 ; la deuxième, que dans ces onglets, la somme des cellules H493:H498=0.

Comment faire avec ces deux conditions ?

Avec une seule condition (A,) j’utilise la formule suivante :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD(SOMME.SI.ENS(INDIRECT(onglets("DEBUT","FIN")&"!C2"),INDIRECT(onglets("DEBUT","FIN")&"!"&A$4),100))

Mais avec deux conditions (C 6) je n’y arrive pas…Un grand merci à ceux qui peuvent m’orienter.
Belle journée.

[BENNASR]

Bonjour et bienvenue
personnellement je n'ai pas compris la demande
si tu joindre un capture écran ou petit fichier test sans macro ni données confidentielles et avec un petit exemple concret

[AN2020]

Je joint le fichier pour illustrer.
Il s'agit de t faire la somme d’une même cellule dans plusieurs feuilles d'un classeur excel, si dans ces même feuilles, deux conditions sont remplies…
J'espère que ça éclaire un peu ma question...
Belle après-midi

[BENNASR]

re
peut être c'est du bricolage:
mais si tu fais la somme de H493:H498 en I498
puis tu fais la formule suivante :

SOMMEPROD(SOMME.SI.ENS(INDIRECT(onglets("DEBUT";"FIN")&"!C2");INDIRECT(onglets("DEBUT";"FIN")&"!"&A$4);100);SOMME.SI.ENS(INDIRECT(onglets("DEBUT";"FIN")&"!C2");INDIRECT(onglets("DEBUT";"FIN")&"!"&B$4);0))

[PrinceCorwin]

Bonjour,

un petit VBA pour faire la somme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Cpttt()
comptage_1 = 0
comptage_2 = 0
comptage_3 = 0
 
For x = 1 To Sheets.Count
    n = Sheets(x).Name
    t = InStr(n, "_")
    If t > 0 Then
        p = Left(n, InStr(n, "_") - 1)
        If IsNumeric(p) Then
            If Sheets(x).Range("H492").Value = 100 Then
                comptage_1 = comptage_1 + Sheets(x).Range("C2").Value
            End If
 
            If Application.WorksheetFunction.Sum(Sheets(x).Range("H493:H498")) = 0 Then
                comptage_2 = comptage_2 + Sheets(x).Range("C2").Value
            End If
 
            If Sheets(x).Range("H492").Value = 100 And Application.WorksheetFunction.Sum(Sheets(x).Range("H493:H498")) = 0 Then
                comptage_3 = comptage_3 + Sheets(x).Range("C2").Value
            End If
        End If
    End If
Next
 
Range("A6") = comptage_1
Range("B6") = comptage_2
Range("C6") = comptage_3
End Sub

en se plaçant dans l'onglet de résumé.
Pour toutes les autres feuilles, si le début du nom de la feuille est un numérique, on contrôle la valeur en H492, si la somme de la page H493:H498 est égale à 0
on incrément les compteurs de la valeur trouvée en C2
On inscrit à la fin dans les cellule de la fiche résumé les totaux.

Pas besoin d'avoir une feuille vide DEBUT, ni FIN. Seul le nom de la feuille est contrôlé. Donc on peut insérer autant de feuilles n'importe où dans le classeur.

[AN2020]

BENNASR, ça marche comme ça. C'est top.
PrinceCorwin. Merci pour ta suggestion. Mais mon niveau excel est plutôt modeste. J'ai du mal à mettre en pratique tes indications...
Quoi qu'il en soit, un grand merci à tous les deux.