Formule Function perso non actualisée

youky(BJ) · 30 Janvier 2013

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

MJ13 · 30 Janvier 2013

Re : Formule Function perso non actualisée

Bonjour Bruno

As-tu testé avec:

Code:

application.volatile

kjin · 30 Janvier 2013

Re : Formule Function perso non actualisée

Bonjour,

Code:

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) · 30 Janvier 2013

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

Formule Function perso non actualisée

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

MJ13

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Discussions similaires