XL 2010 Compter Avec NB.SI.ENS Listobject

[cp4]

Bonjour,

Dans le fichier joint, je voudrais d'abord utiliser nb.si.ens sur un tableau structuré et avoir une fonction personnalisée VBA.
Et ce, pour compter les occurrences des années précédentes à l'année en cours (ne pas compter ceux de l'année en cours).
J'ai écrit une formule mais j'ai message m'indiquant que ma formule est fausse.
Merci.

 

[vgendron]

Hello

fichier joint....hahaha

 

[cp4]

Hello

fichier joint....hahaha

Désolé, tête en l'air

 

[vgendron]

Désolé, tête en l'air

et très fatigué non??
parce que.. toujours pas de fichier.. :-D

 

[TooFatBoy]

Bonjour,

je voudrais d'abord utiliser nb.si.ens sur un tableau structuré et avoir une fonction personnalisée VBA.

Y aura-t-il plus d'explications dans le fichier ?

Parce que là c'est assez mystérieux...
La fonction doit-elle faire le même travail que la formule ?

 

[cp4]

Bonjour,


Y aura-t-il plus d'explications dans le fichier ?

Parce que là c'est assez mystérieux...
La fonction doit-elle faire le même travail que la formule ?

Oui, j'ai essayé d'être le plus clair possible.
Merci

 

[vgendron]

par formule en K5

SOMMEPROD((Tablo[[Critère1]:[Critère1]]=$J5)*(Tablo[[Critère2]:[Critère2]]=K$4))

tu tires à droite et en bas

 

[vgendron]

et une fonction perso

Public Function Compter(Critère1 As Range, critère2 As Range) As Integer
    With ActiveSheet.ListObjects("Tablo")
        For i = 1 To .ListRows.Count
            If .DataBodyRange(i, 2) = Critère1 And .DataBodyRange(i, 3) = critère2 Then
                Compter = Compter + 1
            End If
        Next i
    End With
End Function

 

[vgendron]

ou encore

Public Function compter2(Critère1 As Range, critère2 As Range) As Integer
    compter2 = Evaluate("sumproduct((Tablo[[Critère1]:[Critère1]]=""" & Critère1 & """)*(Tablo[[Critère2]:[Critère2]]=""" & critère2 & """))")
End Function

 

[TooFatBoy]

compter les occurrences des années précédentes à l'année en cours (ne pas compter ceux de l'année en cours).

Une proposition :

=SOMMEPROD((ANNEE(Tablo[Date])<ANNEE(AUJOURDHUI()))*(Tablo[Critère1]=$J5)*(Tablo[Critère2]=K$4))

 

[vgendron]

hello Toofatboy
effectivement, j'ai zappé la partie chronologique

 

[vgendron]

la première fonction deviendrait donc

Public Function Compter(Critère1 As Range, critère2 As Range) As Integer
    With ActiveSheet.ListObjects("Tablo")
        For i = 1 To .ListRows.Count
            If .DataBodyRange(i, 2) = Critère1 And .DataBodyRange(i, 3) = critère2 And Year(.DataBodyRange(i, 1)) < Year(Now) Then
                Compter = Compter + 1
            End If
        Next i
    End With
End Function

et pour la fonction evaluate.. bah.. cp4 va travailler un peu quand meme

 

[TooFatBoy]

cp4 va travailler un peu quand meme

Exactement : allez hop, au travail !

 

[cp4]

Désolé, pour mon retard. J'ai dû sortir chez l'épicier du coin.

@vgendron : Je te remercie mais tu n'as pas tenu compte de la condition sur les années.
Il fallait compter uniquement pour les années antérieures. Tu as raison, il va falloir que je mette la main à la pâte. Même si le résultat escompté n'est pas au RDV, je te remercie.

@TooFatBoy : je te remercie ta formule donne tout bon. Une suggestion pour une fonction?!

Merci beaucoup.

 

[vgendron]

Désolé, pour mon retard. J'ai dû sortir chez l'épicier du coin.

@vgendron : Je te remercie mais tu n'as pas tenu compte de la condition sur les années.
Il fallait compter uniquement pour les années antérieures. Tu as raison, il va falloir que je mette la main à la pâte. Même si le résultat escompté n'est pas au RDV, je te remercie.

@TooFatBoy : je te remercie ta formule donne tout bon. Une suggestion pour une fonction?!

Merci beaucoup.

comme à l'école;.il faut lire tout l'énnoncé avant de répondre à la question..
ici, faut lire toutes les réponses...