Discussion :

[NEC14]

Bonjour à tous,

J'ai donc un fichier avec 28 feuilles de calcul nommées Fich1, Fich2, etc.. jusqu'à Fich28.

Dans la cellule L13 de la feuille "Recap" j'ai cette formule de calcul :

Code :

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

1
2
 
=SOMME.SI(Fich1!$I$8:$I$36;"<2";Fich1!$E$8:$E$36)

Là, elle ne s'applique qu'à la fich1, mais je dois faire la somme de toutes les colonnes identiques des 28 feuilles et faire une addition de Somme.si me paraît fastidieux.

Difficultés supplémentaires, en L14 de la feuille "Recap" la même formule s'applique mais le "<2" est remplacé par "<3", en L15 "<4", ainsi de suite jusqu'à la cellule L24 "<13".

Existe t-il un moyen de passer par une macro et comment faire ?

Merci par avance pour votre aide.

[Marc-L]

Bonjour, oui ce serait possible.

Mais avant d'attaquer du code, vaut mieux envisager une solution interne aux feuilles de calcul bien plus rapide que le VBA …

Regarde dans ta version l'aide pour la référence 3D,
et voir si la fonction SOMME.SI est incluse dans les fonctions pouvant être utilisées dans une référence 3D.

SI elle n'est pas incluse comme celle - ancienne - depuis le poste actuel où je me trouve,
il suffit de faire tes SOMME.SI dans chaque feuille à la même adresse de cellule
puis dans ta feuille de récap effectuer une SOMME en référence 3D.

[keygen08]

Bonjour

Ceci devrait faire cela

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
Private Sub somme_si()
Dim condition As Byte, c As Byte
Dim x As Double
condition = 2
For c = 13 To 24
    For i = 2 To ActiveWorkbook.Sheets.Count 'si recap est la premiere feuille, sinon à adapté
        With Sheets(i)
        x = Application.SumIf(.Range("i:i"), "<" & condition, .Range("e:e"))
        End With
    Sheets("recap").Cells(c, 12) = Sheets("recap").Cells(c, 12) + x
    Next i
condition = condition + 1
Next c
 
End Sub

[NEC14]

Bonjour Keygen38 et merci pour ton aide.

Dois-je mettre cette macro dans un module ou directement dans la feuille ?

J'ai mis le code dans un module. Ensuite je l'appelle. Mais les sommes restent à 0

Dans la feuille

Code :

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

1
2
3
4
 
Private Sub Worksheet_Activate()
somme_si
End Sub

Dans le module

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
Sub somme_si()
Dim condition As Byte, c As Byte
Dim x As Double
condition = 2
For c = 13 To 24
    For i = 29 To ActiveWorkbook.Sheets.Count 'Recap est la 29ème feuille        
With Sheets(i)
        x = Application.SumIf(.Range("i:i"), "<" & condition, .Range("e:e"))
        End With
    Sheets("recap").Cells(c, 12) = Sheets("recap").Cells(c, 12) + x
    Next i
condition = condition + 1
Next c
 End Sub

[keygen08]

A modifier comme suit :

Code :

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

For i = 1  To ActiveWorkbook.Sheets.Count -1 ' si Recap est la derniere feuille

Ou comme ceci

Code :

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

for i = 1 to 28

Avec for, on initie une boucle qui va faire le calcul sur toutes les feuilles. Donc les feuilles 1 à 28.

Dois-je mettre cette macro dans un module ou directement dans la feuille ?

L'un ou l'autre, dans un module, c'est bien le temps de verifier qu'elle fonctionne, puis la deplacer dans le worksheet_activate.

[NEC14]

Merci, ça marche. Cependant j'ai un soucis, J'ai mis le code dans la feuille "Recap" comme ceci :

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
 
Private Sub Worksheet_Activate()
Dim condition As Byte, c As Byte
Dim x As Double
condition = 2
For c = 13 To 24
    For i = 1 To ActiveWorkbook.Sheets.Count 'Recap est la 29ème feuille
        With Sheets(i)
        x = Application.SumIf(.Range("i:i"), "<" & condition, .Range("e:e"))
        End With
    Sheets("Recap").Cells(c, 12) = Sheets("Recap").Cells(c, 12) + x
    Next i
condition = condition + 1
Next c
End Sub

Mais à chaque fois que j'active la feuille, il y a un cumul des sommes. Si par exemple il y a 100, alors à la prochaine activation il y 200, puis 300.

Où est le problème ?

[keygen08]

Oui bien sur.

Il faut evidemment vider la plage avant d'effectuer le calcul
donc mettre ceci en ligne 5

Code :

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

sheets("recap").range("l13:l24").clearcontents

ou ceci

Code :

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

sheets("recap").range("l13:l24")=0

[NEC14]

Ok merci, c'est beaucoup mieux. J'ai cherché alors que cela était évident.
Certainement la fin de semaine, le cerveau est au ralentit en préparation du weekend.

Tu m'as enlevé une épine du pied.

Encore merci et bon weekend
René

[sophieceuzin]

Bonjour,

Il n'y a pas besoin de VBA pour une chose aussi simple

=SOMMEPROD(SOMME.SI(INDIRECT("Fich"&LIGNE(1:28)&"!I8:I36");"<2";INDIRECT("Fich"&LIGNE(1:28)&"!E8:E36")))

Ceuzin

[NEC14]

Bonjour,

J"avais essayé cette formule, mais elle ne fonctionnait pas, pourquoi ? je ne sais pas. C'est pour cette raison que je suis passé par du VBA.

De plus, cela a l'avantage de ne pas être effacé par erreur lors d'un passage sur la cellule, car je ne peux pas, pour des raisons pratiques mettre une protection sur la feuille (ordre du chef).

Merci toutefois pour la réponse, je la garde sous le coude pour une prochaine fois.
Cordialement
René

[sophieceuzin]

>J"avais essayé cette formule, mais elle ne fonctionnait pas, pourquoi ? je ne sais pas.

Ce n'était pas cette formule qui fonctionne (cf PJ)

>De plus, cela a l'avantage de ne pas être effacé par erreur lors d'un passage sur la cellule, car je ne peux pas, pour des raisons pratiques mettre une protection sur la feuille (ordre du chef).

??!!!

Ceuzin

[NEC14]

J'ai bien vu que dans ton fichier cela fonctionnait. Mais dans mon cas, j'ai du oublié quelque chose car elle ne fonctionnait pas.

Malheureusement, certain ne font pas attention aux formules et les effacent par erreur. Il est évident qu'ensuite cela marche beaucoup moins bien.

Mais bon, mon fichier fonctionne et c'est cela le plus important, non ?

Merci encore pour ton intervention.