Somme de x onglet selon critères donnes

Bonjour,

J'ai un fichier excel qui est tres long est lourd a l'execution (lien ci joint)

je voudrais savoir si il y a une possibilité pour l'alléger ou faire une formule ou commande par exemple qui irait additionner selon les critères donner la cellule exemple a2 de l'onglet 6 a l'onglet xxx ?

comme une somme.si mais sur x onglet ...

dans les fait je voudrais supprimer les feuilles 1-50 ; 50-100 ; 100-150 ... qui ne sont que des calcule intermédiaire car sinon formules trop longues

Merci d'avance

Bonjour,

où je suis je n'ai pas les droits pour télécharger votre fichier...

maintenant une question : somme onglet 1 à l'onglet xxx

y a t il des trous dans cette série d'onglet ?

Est-ce toujours la même cellule qui est pointée ?

Si une fois non et une fois oui (et dans cet ordre), alors vous pouvez faire :

=SOMME(Onglet1:Onglet10!$A23)

@ bientôt

LouReeD

c'est bien la somme d'une meme cellule qui me faut de l'onglet 5 à 300 par exemple il n'y a pas de trou n'y de changement de cellule

cordialement

Bonjour,

Une solution utilisant une macro :

Sub SomOnglets()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim OngletDeb As Byte, OngletFin As Byte, Plage As Range, Somme As Single, Nonglet As Byte

    On Error GoTo Fin

    OngletDeb = Application.InputBox("N° de l'onglet de départ", Type:=1)
    Do
        OngletFin = Application.InputBox("N° de l'onglet de fin", Type:=1)
    Loop While OngletFin < OngletDeb
    Application.ScreenUpdating = True
    Set Plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    Application.ScreenUpdating = False

    For Each Cell In Plage
        Somme = 0
        For Nonglet = OngletDeb To OngletFin
            Somme = Somme + Sheets(Nonglet).Cells(Cell.Row, Cell.Column)
        Next Nonglet
        Cell.Value = Somme
    Next

Fin:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

voila le fichier, il faudrait que dans totaux il me fasse la somme de tout les feuille après matrice des cellules donner

As-tu testé les 2 solutions déjà proposées ?

RE,

Oui j'étais entrain de les testés c'est exactement cela,

il me faudrait maintenant une condition, de la la somme seulement si dans la cellule B7 des onglet il est noté la meme chose que dans la cellule B7 de ma feuille Totaux mensuels, c'est possible ?

Merci d'avance

If Sheets("Totaux mensuels").Range("B7") = Sheets(Nonglet).Range("B7") Then 
    Somme = Somme + Sheets(Nonglet).Cells(Cell.Row, Cell.Column)
End If

Elle n à pas l air de bien s intégré avec la première est ce que je pourrais l avoir au complet stp ?

Il faudrait qu il me fasse la somme de l onglet seulement si la cellule b7 de l onglet est identique à celle de ma feuille en b7 est qu il vérifie cet te occurrence à chaque onglet ....

Si c est identique il me fait la somme sinon il le prend pas en compte.

Merci d avance

Tu l'as mis où ce nouveau code que j'ai donné ? Il suffit juste de remplacer l'ancienne ligne existante par ce 3 lignes et ça fera exactement ce que tu demandes.

laquel de ligne je doit remplacé stp ?

celle ci Somme = Somme + Sheets(Nonglet).Cells(Cell.Row, Cell.Column) ?

donc cela donne :

Sub SomOnglets()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim OngletDeb As Byte, OngletFin As Byte, Plage As Range, Somme As Single, Nonglet As Byte

    On Error GoTo Fin

    OngletDeb = Application.InputBox("N° de l'onglet de départ", Type:=1)
    Do
        OngletFin = Application.InputBox("N° de l'onglet de fin", Type:=1)
    Loop While OngletFin < OngletDeb
    Application.ScreenUpdating = True
    Set Plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    Application.ScreenUpdating = False

    For Each Cell In Plage
        Somme = 0
        For Nonglet = OngletDeb To OngletFin
          If Sheets("Totaux mensuels").Range("B7") = Sheets(Nonglet).Range("B7") Then
    Somme = Somme + Sheets(Nonglet).Cells(Cell.Row, Cell.Column)
End If
        Next Nonglet
        Cell.Value = Somme
    Next

Fin:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

impeccable cela fonctionne thank you !!!!!!!!!!!!

Est ce que tu pense qu'on peut ramener automatiquement le nombre d'onglet total ? ( la deuxieme question de la macro ? N° d'onglet de fin)

Merci d'avance

MsgBox("Nombre de feuilles : " & ThisWorkbook.Worksheets.Count)

SUPER MERCI

Rechercher des sujets similaires à "somme onglet criteres donnes"