Occurence d'un mot dans une cellule précise entre deux feuilles précise

Bonjour à toutes et à tous,

Je vous demande votre aide sur excel :

Je souhaiterai comptabiliser en cellule H3 de ma feuille TOTAL le nombre de fois où le mot sélectionner en cellule G3 (menu déroulant) de ma feuille TOTAL, apparait dans les cellules G3 de toutes les feuilles comprises entre ma feuille DÉBUT et ma feuille FIN.

=SI.MULTIPLE(G3;"Équilibré";NB.SI(DÉBUT:FIN!G3;"Équilibré");"Dévaforable";NB.SI(DÉBUT:FIN!G3;"Défavorable");"Forable";NB.SI(DÉBUT:FIN!G3;"Favorable")) 

Merci pour le temps que vous accorderez à cette requête !

Bonsoir lucigio, le forum,

Ceci pourrait t’intéresser....

https://forum.excel-pratique.com/viewtopic.php?p=324535#p324535

Cordialement,

Bonsoir,

Merci d'avoir pris le temps de répondre.

Cela m'affiche #VALEUR ! :

=SOMMEPROD(NB.SI(DÉBUT:FIN!G3;INDIRECT(G3)))

Bonjour et bienvenue,

Merci de joindre un fichier pour une aide adaptée du forum.

Cdlt.

Bonsoir,

Voici mon fichier.

Merci pour votre réponse.

Bonjour lucigio, Jean-Eric, le forum,

Un essai....en H3 de la feuille TOTAL...

=SOMMEPROD(NB.SI(INDIRECT("'SITUATION "&LIGNE(1:3)&"'!G3");$G$3))

Cordialement,

Bonjour,

Merci beaucoup pour la solution cela fonctionne bien sur la feuille total !

Seul bémol si j'ajoute une nouvelle feuille SITUATION 4, il me faut obligatoirement modifier la partie LIGNE(1:3) en LIGNE(1:4) : =SOMMEPROD(NB.SI(INDIRECT("'SITUATION "&LIGNE(1:3)&"'!G3");$G$3))...d'où le pourquoi je voudrai que cette formule prenne en compte les feuilles comprise entre les feuilles DÉBUT et FIN (comme des feuilles curseurs), afin que si j'ajoute une ou plusieurs nouvelle(s) situation(s), les résultats de la feuille TOTAL soient automatiquement adaptés.

Re,

Je ne suis pas assez calé en formule.....comme ton fichier est enregistré en.xlsm, un essai par macro....

Si tu change une valeur dans la plage(G3:G16) de la feuille TOTAL, la colonne H s'actualise.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim  j As Integer
 Dim ws As Worksheet, compteur As Integer

 Application.ScreenUpdating = False

 If Not Application.Intersect(Target, Range("G3:G16")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
  Cancel = True

          j = 3
   compteur = 0

   While j <= 16
    For Each ws In ThisWorkbook.Worksheets
     If Left(ws.Name, 9) = "SITUATION" Then
      If ws.Range("G" & j) = Range("G" & j) Then compteur = compteur + 1
     End If
    Next ws
       Range("H" & j) = compteur: compteur = 0
       j = j + 1
   Wend
 End If

Application.ScreenUpdating = True
End Sub

En attendant une réponse de Jean-Eric qui devrait te proposer un code plus optimisé,

Cordialement,

Bonjour à vous,

Merci pour cette option, en espérant un retour de Jean-Éric.

Bien à vous.

Bonjour,

Bonjour et bienvenue,

Merci de joindre un fichier pour une aide adaptée du forum.

Cdlt.

Ce message ne signifie pas que je vais intervenir !...

Cdlt.