XL 2013 (RESOULU)Calcul avec plusieurs Formule NB.SI

24-SOMMEPROD((ABSDA="CP")*1)+SOMMEPROD((ABSDA="M")*1)+SOMMEPROD((ABSDA="CSS")*1)+SOMMEPROD((ABSDA="JF")*1)+SOMMEPROD(('A'!ABSFA="CP")*1)+SOMMEPROD(('A'!ABSFA="M")*1)+SOMMEPROD(('A'!ABSFA="CSS")*1)+SOMMEPROD(('A'!ABSFA="JF")*1)*24/6

=SOMMEPROD(NB.SI($A$7:$A$14;liste))*(24/6)

24-(SOMMEPROD(NB.SI(ZoneA;Liste))+SOMMEPROD(NB.SI(ZoneB;Liste)))

=SOMMEPROD(NB.SI(ZoneA;Liste))+SOMMEPROD(NB.SI(ZoneB;Liste))

    REM  *****  BASIC  *****
    ' Listener
    ' Un grand merci à Pierre-Yves Samyn du forum officiel OOo
    ' pour la partie Listener de cette fonction.
    Option Explicit

    Global PysListener as object

    sub PysListenerAdd

    PysListener = createUnoListener("Pys_", "com.sun.star.util.XModifyListener")
    ThisComponent.AddModifyListener(PysListener)

    end sub

    sub PysListenerRemove
       ThisComponent.RemoveModifyListener(PysListener)
    end sub

    sub Pys_disposing(PysListener)
    end sub

    Sub Pys_Modified(PysListener)
       thiscomponent.calculateAll
    End Sub

    'Fonction NomFeuille Version3
    'Auteurs : Jeff & Larrassac
    'Nos remerciements au forum officiel OOo : http://user.services.openoffice.org/fr/forum/index.php
    'Nos remerciements au Club des développeurs français : http://www.developpez.net/forums/index.php

    Function NomFeuille(Optional position as integer)
       Dim oDoc As Object, oSheets As Object, Feuille As Object, Cellule as Object
       Dim NmbFeuilles As Integer 'Variable qui va stocker le nombre de feuilles
       
        On error goto Erreurs 'Si erreur va à Erreurs
       oDoc = ThisComponent
       oSheets = oDoc.Sheets
       NmbFeuilles = oDoc.Sheets.Count 'stockage nbre de feuille du classeur

             NomFeuille = oDoc.Sheets(position-1).Name'la première feuille est la feuille 0, d'où le -1
             

        Erreurs: 'Gestion des erreurs

             if position < 1 then goto nul'si le critère position est inférieur à 1 va à Nul
                     
             if IsMissing(position) then goto nul'si le critère position est oublié alors va à Nul
              
               if position > NmbFeuilles then goto nul 'si le critère position est supérieur à NmbFeuilles alors va à Nul
              
             goto fin
           
             nul:'si le critère position est inférieur à 1
             
             NomFeuille = ""'n'affiche rien

             Goto fin
                   
        Fin:
           
        End Function

Private Sub Workbook_Open()
For Each ws In Worksheets
    ws.[D2] = ws.Name
Next ws
End Sub

Merci avec le code de la fonction que j'ai mis et ton code la formule marche sans installer MoreFunc

Merci, je ne suis pas actuellement sur mon ordi mais sur un autre et elle marche par contre dès que je rentre chez moi, je vais voir si elle marche

Merci
Private Sub Workbook_Open()
For Each ws In Worksheets
    ws.[D2] = ws.Name
Next ws
End Sub