Formule Function perso non actualisée

[youky(BJ)]

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

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

 

[MJ13]

Re : Formule Function perso non actualisée

Bonjour Bruno

As-tu testé avec:

application.volatile

 

[kjin]

Re : Formule Function perso non actualisée

Bonjour,

Function PHIL(mois As Integer, tx As String) As Integer
Dim k, c
Application.Volatile
For Each cel In [D4:J12].SpecialCells(xlCellTypeFormulas)
'.....

A+
kjin

 

[youky(BJ)]

Re : Formule Function perso non actualisée

Merci bien,
J'étais loin de penser à cela, Méthode que j'utilise pas habituellement.
C'est tout bon
Merci MJ13, Merci Kjin
Bruno