XL 2010 Fonction VBA de somme qui ne refresh pas

F22Raptor · 24 Août 2018

Hello
Ci-joint, une tentative de codage d'une fonction perso :
J'ai un tableau avec des dates, et des montants pos ou nég pour chaque date.

Je veux une fonction VBA (pas de fonction matricielle, ou d'ajout de colonne dans le tableau) qui me donne pour une année donnée, la somme des montants de cette année.

Ca marche, mais lorsque j'ajoute un montant à la liste, ça ne rafraîchit pas.
Je pourrais ajouter un événement CHANGE à ma feuille qui force un Calculate quand on ajoute une entrée, mais peut-être que c'est juste une erreur dans le code de ma fonction.

Merci pour votre expertise !

Dranreb · 24 Août 2018

Bonjour.
Le fond du problème c'est que Excel ne peut pas deviner que les colonnes A:B sont des antécédents de la formule si elles ne sont pas transmises en paramètre à la fonction. Aussi ne voit-il aucune raison directe de la réévaluer si elles changent.

Jacky67 · 24 Août 2018

F22Raptor à dit:
Hello
Ci-joint, une tentative de codage d'une fonction perso :
J'ai un tableau avec des dates, et des montants pos ou nég pour chaque date.

Je veux une fonction VBA (pas de fonction matricielle, ou d'ajout de colonne dans le tableau) qui me donne pour une année donnée, la somme des montants de cette année.

Ca marche, mais lorsque j'ajoute un montant à la liste, ça ne rafraîchit pas.
Je pourrais ajouter un événement CHANGE à ma feuille qui force un Calculate quand on ajoute une entrée, mais peut-être que c'est juste une erreur dans le code de ma fonction.

Merci pour votre expertise !

Bonsoir,
Essaye avec l'instruction:
Application.Volatile
en début de fonction

Mais pourquoi ré-inventer la poudre ???
=SOMMEPROD((ANNEE(A2:A500)=E2)*B2:B500)
Le fait nativement

Dranreb · 24 Août 2018

Mais supposons que ça n'a été fait qu’à titre d'exercice.
Je l'écrirais comme ça :

VB:

Option Explicit
Function SommeAnnee(ByVal Annee As Integer, ByVal RngDon As Range) As Currency
   Dim TDon(), L As Long
   TDon = Intersect(RngDon, RngDon.Worksheet.UsedRange).Value
   For L = 2 To UBound(TDon, 1)
      If Year(TDon(L, 1)) = Annee Then SommeAnnee = SommeAnnee + TDon(L, 2)
      Next L
End Function

En F2, à propager sur 4 lignes :

Code:

=SommeAnnee(E2;A:B)

Modeste geedee · 24 Août 2018

F22Raptor à dit:
Hello
Ci-joint, une tentative de codage d'une fonction perso :
J'ai un tableau avec des dates, et des montants pos ou nég pour chaque date.

Je veux une fonction VBA (pas de fonction matricielle, ou d'ajout de colonne dans le tableau) qui me donne pour une année donnée, la somme des montants de cette année.

Ca marche, mais lorsque j'ajoute un montant à la liste, ça ne rafraîchit pas.
Je pourrais ajouter un événement CHANGE à ma feuille qui force un Calculate quand on ajoute une entrée, mais peut-être que c'est juste une erreur dans le code de ma fonction.

Merci pour votre expertise !

sans formule, sans macro
un simple actualiser le TCD

F22Raptor · 24 Août 2018

Merci messieurs pour vos suggestions : je vais tester tout ça

F22Raptor · 24 Août 2018

@Dran : je bosse sur ta fonction
Tu n'as pas défini le type de ta variable tableau TDon()
Instinctivement, je l'ai mise en Range, mais ça ne marche pas !
Quel serait son type (autre que Variant, bien sûr !) ? Pour moi c'est une zone, au même titre que RngDon

@jacky : j'ai testé Volatile. Ca fonctionne, mais ça fait horriblement ramer la saisie !

Dranreb · 24 Août 2018

Non, ce n'est pas la même chose: RngDon est un objet Range. Et la propriété Value d'un objet Range représentant une plage de cellules est un Variant contenant un tableau VBA basé 1 d'éléments de type Variant. Il n'y a pas à en sortir, c'est comme ça. Si vous tenez à typer TDon ça doit forcément être TDon() As Variant.

F22Raptor · 24 Août 2018

Merci !
Bien des choses il me reste à apprendre sur Excel !

F22Raptor · 24 Août 2018

Question complémentaire : d'un point de vue des perfos (imaginons sur un très grand tableau), qu'est ce qui sera le plus efficace ?
Une formule matricielle comme le SommeProd proposé plus haut (qui marche très bien ! ), ou une fonction perso de ce type ?

Modeste geedee · 24 Août 2018

F22Raptor à dit:
Question complémentaire : d'un point de vue des perfos (imaginons sur un très grand tableau), qu'est ce qui sera le plus efficace ?
Une formule matricielle comme le SommeProd proposé plus haut (qui marche très bien ! ), ou une fonction perso de ce type ?

TCD...

F22Raptor · 25 Août 2018

J'aime pô les solutions toutes prêtes !

XL 2010 Fonction VBA de somme qui ne refresh pas

F22Raptor

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

F22Raptor

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

F22Raptor

XLDnaute Impliqué

Modeste geedee

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

Discussions similaires