Discussion :

[steve3838]

Salut,

Je souhaite compter(cf pj) le nombre de fois qu'un participant est présent a une activité dans une période donnée. Il faut donc que la date de séance soit comprise entre date de debut et date de fin ET que présence du participant = "OUI"

Les dates de debut et fin de période sont entrés en rouge dans l'onglet activité 1.
Le résultat de la fonction "nbseance" est dans l'onglet "suivi".

N'étant pas habitué du VB, je dois faire de grosses erreurs de syntaxe d'où le message d'erreur.

Merci pour votre aide et de me dire également si c'est possible de régler cela avec des fonctions EXCEL préexistantes.

Merci
Steve

[mercatog]

Fonction testée sur ton fichier à mettre dans un module public (Fonctionne seulement sur ton fichier tel!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function NbSeances(ByVal Dte1 As Range, ByVal Dte2 As Range, ByVal Particip As String) As Integer
Dim i As Byte
Dim S As Integer
 
For i = 1 To 100
    S = S + Evaluate("SUMPRODUCT((OFFSET('ACTIVITE 1'!C6:E6," & 4 * (i - 1) & ",0)>='ACTIVITE 1'!" & Dte1.Address & ")*(OFFSET('ACTIVITE 1'!C6:E6," & 4 * (i - 1) & ",0)<='ACTIVITE 1'!" & Dte2.Address & ")*('ACTIVITE 1'!C4:E4=""" & Particip & """)*(OFFSET('ACTIVITE 1'!C8:E8," & 4 * (i - 1) & ",0)=""OUI""))")
Next i
NbSeances = S
End Function

Dte1: cellule contenant la date min
Dte2: cellule contenant la date max
Particip: Cellule contenant le nom du participant

[steve3838]

Salut Mercatog,

Merci. Intéressante solution. Probleme résolu.
Comme mes participants doivent rester des numéros(anonymat), j'ai fait quelques modifs comme suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function NbSeances(ByVal Dte1 As Range, ByVal Dte2 As Range,      ByVal Particip As Integer) As Integer
Dim i As Byte
Dim S As Integer
 
For i = 1 To 100
    S = S + Evaluate("SUMPRODUCT((OFFSET('ACTIVITE 1'!C6:E6," & 4 * (i - 1) & ",0)>='ACTIVITE 1'!" & Dte1.Address & ")*(OFFSET('ACTIVITE 1'!C6:E6," & 4 * (i - 1) & ",0)<='ACTIVITE 1'!" & Dte2.Address & ")*('ACTIVITE 1'!C4:E4=" & Particip & ")*(OFFSET('ACTIVITE 1'!C8:E8," & 4 * (i - 1) & ",0)=""OUI""))")
Next i
NbSeances = S
End Function