youky(BJ)
XLDnaute Barbatruc
Bonjour à tous,
J'ai écris ma function qui avec la formule =PHIL(1;"CA") devait me renvoyer le nbre de "CA" pour le mois 1
Cela fonctionne mais ensuite si je change des données les formules ne sont plus actualisées
je sais pas ce que j'ai loupé (tout est expliqué en fichier)
Bruno
J'ai écris ma function qui avec la formule =PHIL(1;"CA") devait me renvoyer le nbre de "CA" pour le mois 1
Cela fonctionne mais ensuite si je change des données les formules ne sont plus actualisées
je sais pas ce que j'ai loupé (tout est expliqué en fichier)
Bruno
Code:
Function PHIL(mois As Integer, tx As String) As Integer
Dim k, c
For Each c In [D4:J12].SpecialCells(xlCellTypeFormulas)
If IsDate(c) Then
If Month(c) = mois Then
If c.Offset(0, 1) = tx Then k = k + 1
End If
End If
Next
PHIL = k
End Function