Fonction non automatique ???

Bonjour Droopy,
Tu ajoutes cette ligne en début de fonction :

Application.Volatile

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Droopy" <sbdroopy@hotmail.com> a écrit dans le message de
news:04ce01c3d750$493bd7c0$a601280a@phx.gbl...
Hello,

J'ai écrit cette fonction est elle fonctionne bien mais
pas de façon automatique. Si je change des données sur la
feuille excel que j'explore avec ma fonction cela ne
change pas les totaux dans la cellule où est placé ma
fonction ... avez-vous une idée pourquoi ?

***** La fonction en question *****


Function SommeCharge(SCompare As String, DDateDeb As
Date, DDateFin As Date) As Long

Dim ICount As Integer

SommeCharge = 0
ICount = 15

While Worksheets("CCP Commun").Range("C" & ICount).Value
<> ""

If Worksheets("CCP Commun").Range("G" & ICount).Value SCompare Then
If Worksheets("CCP Commun").Range("A" & ICount).Value > DDateDeb Then
If Worksheets("CCP Commun").Range("A" & ICount).Value < DDateFin Then

SommeCharge = SommeCharge + Worksheets("CCP Commun").Range
("F" & ICount).Value

End If
End If
End If

ICount = ICount + 1

Wend

End Function

Dans le cas présent, je comprends pas très bien le but d'une fonction perso au
lieu d'une formule ....

AV