Formule Function perso non actualisée

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
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
 

Pièces jointes

  • Phil.xls
    42.5 KB · Affichages: 27
  • Phil.xls
    42.5 KB · Affichages: 31
  • Phil.xls
    42.5 KB · Affichages: 27

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG