Fonctions personnalisées

[Yan L]

Bonjour à tous,

Une petite question rapide:
Je viens de coder en VBA une fonction personnalisée :

Public Function SOMMECC(ligne As Integer, colonne As Integer) As Double
Dim resultat As Double
Dim f As Worksheet
resultat = 0
For Each f In Application.Workbooks(1).Sheets
If (IsNumeric(f.Range('H1').Value)) Then
If (IsNumeric(Trim(f.Cells(ligne, colonne).Value))) Then
resultat = resultat + Trim(f.Cells(ligne, colonne).Value)
End If
End If
Next f
SOMMECC = resultat
End Function

Son utilité est la suivante : faire la somme du contenu des cellules en (ligne,colonne) de tous les onglets répondant à un critère donné (ici,la cellule H1 doit contenir en nombre).
Elle fonctionne à merveille. Le seul hic est qu'elle n'est pas recalculée lorsqu'une des valeurs des cellules (ligne, colonne) des onglets de mon classeur change. Précision: je suis en Excel5, donc pas d'événements sur les feuille 😱)
D'une manière générale, si une fonction personnalisée manipule des onglets autre que celui où elle est appellée, elle ne se recalcule pas automatiquement si ses arguments changent.
Si quelqu'un sait pourquoi et comment lever ce problème, je suis preneur! Merci par avance.
Cordialement.

Yan L

 

[PascalXLD]

Bonjour

as-tu essayé en ajoutant

Application.Volatile True

en début de ta fonction ??

Bonne journée

 

[Yan L]

Bonjour et surtout merci!
Je ne connaissais pas cette astuce... Comme quoi on en apprend tous les jours!
A charge de revanche, Pascal!

Yan