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.
Les résultats sont dans l'onglet "suivi"

Ma fonction Nbseances fonctionne(cf. suivi).

Comme en réalité j'ai 15 onglets "ACTIVITE x" , je souhaite que ma fonction Nbseances puisse fonctionner avec tous les onglets "ACTIVITE x". J'ai donc crée une autre fonction "NbSeancesall" et j'ai rajouté un paramètre Act. Celle- ci me renvoie une erreur.

Cela provient tres certainement d'un probleme de syntaxe a cet endroit du code

Code :

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

'ACTIVITE & Act'

Merci de votre aide

[mercatog]

Si tes dates repères sont dans chaque feuille ACTIVITEx et à la même adresse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function NbSeancesAll(ByVal Dte1 As Range, ByVal Dte2 As Range, ByVal Particip As Integer) As Integer
Dim i As Byte
Dim S As Integer
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name Like "ACTIVITE*" Then
        For i = 1 To 100
            S = S + Evaluate("SUMPRODUCT((OFFSET('" & Ws.Name & "'!C6:E6," & 4 * (i - 1) & ",0)>='" & Ws.Name & "'!" & Dte1.Address & ")*(OFFSET('" & Ws.Name & "'!C6:E6," & 4 * (i - 1) & ",0)<='" & Ws.Name & "'!" & Dte2.Address & ")*('" & Ws.Name & "'!C4:E4=" & Particip & ")*(OFFSET('" & Ws.Name & "'!C8:E8," & 4 * (i - 1) & ",0)=""OUI""))")
        Next i
    End If
Next Ws
NbSeancesAll = S
End Function

Si tes dates repères sont dans la feuille ACTIVITE1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function NbSeancesAll(ByVal Dte1 As Range, ByVal Dte2 As Range, ByVal Particip As Integer) As Integer
Dim i As Byte
Dim S As Integer
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name Like "ACTIVITE*" Then
        For i = 1 To 100
            S = S + Evaluate("SUMPRODUCT((OFFSET('" & Ws.Name & "'!C6:E6," & 4 * (i - 1) & ",0)>='ACTIVITE1'!" & Dte1.Address & ")*(OFFSET('" & Ws.Name & "'!C6:E6," & 4 * (i - 1) & ",0)<='ACTIVITE1'!" & Dte2.Address & ")*('" & Ws.Name & "'!C4:E4=" & Particip & ")*(OFFSET('" & Ws.Name & "'!C8:E8," & 4 * (i - 1) & ",0)=""OUI""))")
        Next i
    End If
Next Ws
NbSeancesAll = S
End Function

[steve3838]

Salut Mercatog,

Mea culpa, j'ai du me faire mal comprendre.

Cette fonction n'a pas pour but de cumuler le nombre de presences totales a toutes les activités mais bien de calculer le nombre de présences en fonction de l'activité.

J'ai résolu mon probleme differemment mais j'ai toujours le même probleme de concatenation lorsque j'appelle mon onglet en faisant varié le nom avec ma variable Act...

Merci pour ta solution. Permis de me faire connaitre l'objet Worksheet.

A+

[mercatog]

Code :

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

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

Si en C16 le n° du participant et en C1 et C2 de la feuille ACTIVITEx les dates repères:

Code :

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

=NbSeancesAll(ACTIVITE2!$C$1;ACTIVITE2!$C$2;C16)

donne la somme pour ACTIVITE2
et pour ACTIVITE67

Code :

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

=NbSeancesAll(ACTIVITE67!$C$1;ACTIVITE67!$C$2;C16)