Rechercher Valeur plusieurs feuilles

Bonjour,

Je n'arrive pas à trouver comment faire

j'ai 3 colonnes A, E et H, je souhaiterai rechercher la valeur 1100 en A et 125X en E et additionner la valeur 2 en H qui se trouve sur plusieurs feuille ( A chaque fois j'ai les memes colonnes dans chaque feuille)

A et E faisant parti de la condition pour pouvoir procéder à la somme en H

Quelle serait la formule s'il vous plait?

Voici ci joint le fichier type avec les feuilles mais j'en ai une 50aine de feuilles avec des noms du meme type

ah oui les valeur en H peuvent différer et je souhaiterai les additionner

Merci d'avance

Bonjour

1) Il n'y a pas de valeur 1100 en colonne A

2) La somme, tu la souhaites sur quelle feuille?

Cordialement

désolé 1110 et ce serait sur une feuille que je nommerai RECAP par exemple

je viens de remettre le fichier à jour

Merci d'avance

Bonjour

Je ne sais pas faire une formule multiconditions sur des feuilles dont le nom n'est pas générique (S1,S2,S3..) Janvier, février...

Avec une seule condition, comme ici la référence, je sais.

Pour l'exemple, j'ai renommé les feuilles 1,2,3,4 et établi la formule.

En C5, incrémentée vers le bas

=SOMMEPROD((ESTNUM(CHERCHE($B5;T(DECALER(INDIRECT(COLONNE(A:D)&"!E4");LIGNE($1:$30)-4;0)))))*(N(DECALER(INDIRECT(COLONNE(A:D)&"!A4");LIGNE($1:$30)-4;0))=$A5)*(N(DECALER(INDIRECT(COLONNE(A:D)&"!H4");LIGNE($1:$30)-4;0))))

La solution est peut être par VBA, mais là, je ne suis pas compétant.

Cordialement

Merci c'est sympa

mais au vue du nombre d'onglets (50) si quelqu'un avait une solution en VBA pour etre sur de ne pas me tromper en oubliant de comptabiliser un onglet, ce serait sympas

Bonjour

Si tu as 50 onglets numérotés de 1 à 50, tu remplaces dans la formule

COLONNE(A:D)

par

COLONNE(A:AX)

car D est la colonne 4 et AX la colonne 50

cordialement

malheureusement j'ai des noms d'onglets tel TG123, ou QV112 etc.

Bonjour

Code dans un Module

Sub Resultats()
'On bloque le rafraichissement de l'écran
    Application.ScreenUpdating = False
'On établit la liste des Feuilles en colonne P
    Range("P1").Value = "Liste des Feuilles"
    For i = 2 To Worksheets.Count
         [P1].Offset(i - 1, 0).Value = Worksheets(i).Name
    Next i
'On numérote en colonne P les Feuilles de 1 à x
    Range("Q1").Value = "Renommer"
    Range("Q2:Q" & [P65000].End(xlUp).Row).Select
    Selection.FormulaR1C1 = "=ROW()-1"
'On renomme les Feuilles, à partir de la Feuille2, 1, 2, 3 jusqu'à X
    For i = 2 To Worksheets.Count
       Worksheets(i).Name = [Q1].Offset(i - 1, 0).Value
    Next i
'On fige les résultats de la Feuille "RECAP" en colonne D pour conserver les formules en colonne C
'On copie le résultat des formules
    Range("a5", Range("a5").End(xlDown)).Offset(0, 2).Select
    Selection.Copy
'On colle le résultat en colonne D
    Selection.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'On renomme les Feuilles avec leur nom d'origine (Liste en colonne P)
    For i = 2 To Worksheets.Count
       Worksheets(i).Name = [P1].Offset(i - 1, 0).Value
    Next i
    Application.CutCopyMode = False
    Range("D5").Select
'On efface les listes en colonnes P et Q
    Range("P1:Q55").Clear
End Sub

et, si on veut effacer les résultats pour un nouveau test

Sub Efface_Result()
    Range("a5", Range("a5").End(xlDown)).Offset(0, 3).Select
    Selection.Clear
    Range("g2").Select
End Sub

Bien sur, ici nous avons 4 feuilles et comme déjà signalé, il faudra pour plus de Feuilles adapter la formule en remplaçant les 3 occurences de COLONNE(A:D) par Ex: COLONNE(A:AX) pour 50 Feuilles

Cordialement