XL 2013 NB.SI 3D Plage

[Chris401]

Bonjour à tous

Je n'arrive pas à adapter la formule de BOISGONTIER sur ce fichier.
La plage des OUI n'est pas sur une colonne mais sur plusieurs.
Comme dans le fichier, le nom peut se situer sur différentes lignes dans la colonne A.

Macro acceptée bien évidemment.

Bonne journée
Chris

Edit : Nouveau fichier plus représentatif de mon fichier réel

 

[Modeste]

Re : NB.SI 3D Plage

Bonjour Chris,

Un essai avec une fonction personnalisée. Dans un module standard:

Function compteOccurences(leNom As String, leCode As String)
tabloF = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
For i = 0 To 11
With Sheets(tabloF(i))
    lig = Application.Match(leNom, .[A:A], 0)
    If Not IsError(lig) Then
        cpt = cpt + Application.CountIf(.Cells(lig, 2).Resize(1, 12), leCode)
    End If
End With
Next i
compteOccurences = cpt
End Function

En B2, tu écris =compteOccurences($A2;B$1) que tu copies à droite.

... à tester ...

 

[Chris401]

Re : NB.SI 3D Plage

Bonjour Modeste

Merci de ton aide.
J'ai le même retour de valeur dans chaque colonne (11)
Peux-tu voir STP ?

Cordialement
Chris

 

[JCGL]

Re : NB.SI 3D Plage

Bonjour à tous,
Salut mon Luc,

Pour un seul Nom....

Option Explicit

Sub Test()
    Dim CP&, MA&, R&, F&, A&, Sh As Object, Cel As Range, O As Object
    Set O = Feuil2
    CP = 0: MA = 0: R = 0: F = 0: A = 0: O.Range("B2:F10") = vbNullString
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Recap" Then
            For Each Cel In Sh.Range("A2:M6")
                If Cel = "CP" Then CP = CP + 1
                If Cel = "MA" Then MA = MA + 1
                If Cel = "R" Then R = R + 1
                If Cel = "F" Then F = F + 1
                If Cel = "A" Then A = A + 1
            Next Cel
            O.Range("B2") = CP: O.Range("C2") = MA: O.Range("D2") = R: O.Range("E2") = F: O.Range("F2") = A
        End If
    Next Sh
End Sub

A+ à tous

 

[Modeste]

Re : NB.SI 3D Plage

Re,

J'ai collé le code un peu vite (sans utiliser les 2 arguments de la fonction personnalisée) j'ai modifié le code dans mon premier message.

Edit: Salut aussi, mon JC

Attention: j'ai considéré (un peu hâtivement peut-être?) qu'un même nom n'apparaîtrait qu'une seule fois en colonne A de chaque feuille! Me serais-je honteusement fourvoyé?

 

[Chris401]

Re : NB.SI 3D Plage

Grand merci à tous les 2.
Le code et la fonction retournent les bonnes valeurs dans le fichier exemple.

Je teste sur mon fichier réel et vous fais un retour.

Cordialement
Chris

 

[Chris401]

Re : NB.SI 3D Plage

Re

J'ai réussi à adapter sur mon fichier réel.
Question pour Modeste : quand j'ajoute des données dans les feuilles MOIS le calcul ne se fait pas seul. Je dois revalider les formules.
Une solution pour cela ?

Chris

 

[JCGL]

Re : NB.SI 3D Plage

Bonjour à tous,

Ajoute : Application.Volatile en ligne 2

Function CompteOccurences(leNom As String, leCode As String)
    Application.Volatile

A+ à tous

 

[Chris401]

Re : NB.SI 3D Plage

Ben y'avait qu'à demander !!!

Merci Jean-Claude et Modeste ; vous me simplifiez la tache.

Bon dimanche
Chris