Worksheet change et fonction

[F2T]

Bonjour,

est il possible de lancer la detection d'un evenement tel que le changement
de valeur d'une cellule (suite a une fonction)?

Explication :
Je voudrais qu'un evenement soit detecter lorsqu' une valeur de la colonne BR passe en true.
Cet evenement lancerais un macro effectuant un traitement sur la ligne correspondante.

Probleme :
A l'heure actuelle, le changement de false a true, n'est pas detecter par le worksheet_change focaliser sur la colonne BR.

Quelqu'un serait il si cela est possible ?
De generer un evenement suite aux changement de valeur d'une fonction?

Merci d'avance

ps: je precise que la fonction se change automatiquement sans intervention manuel de ma part.
😕😕

 

[Efgé]

Re : Worksheet change et fonction

Bonjour F2T,
Peut être avec:

Private Sub Worksheet_Calculate()

Cordialement

 

[Papou-net]

Re : Worksheet change et fonction

Bonjour F2T, efgé,

Ou bien en appelant une macro dédiée à la suite de l'appel de la fonction dans le code principal et du test du résultat de cette fonction ?

Espérant avoir contribué.

Cordialement.

Oups, je n'avais pas lu la ligne en post-scriptum !

 

[F2T]

Re : Worksheet change et fonction

Bonjour Efgé et Papounet,

merci pour vos indications 🙂🙂

Sauriez vous, si il est possible de cadrer le worksheet_calculate sur une zone specifique ?

L'idée est ci dessous, mais ne fonctionne pas. 🙁

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 70 Then Exit Sub

If Worksheets("sheet1").Columns("BR").Calculate Then
Call STAT
End If
End Sub

je precise que dans la colonne BR (N°70) . Il y a une fonction qui se modifie.
Je voudrais que lorsque la valeur de cette fonction change, un evenement soit detecter. Ceci afin de lancer une macro. :🙂

Donc voila, merci encore pour les idées, qui peuvent passer.

🙂

 

[Efgé]

Re : Worksheet change et fonction

Bonjour F2T, Bonjour Papou-net,
F2T, sans exemple difficile d(aller plus loin, mais, l'utiliosation d'un Worksheet_Calculate ne prend pas en compte une "target" (donc on ne peut définir de plage). Si la macro doit se lancer au résultat d'une formule il n'y a pas, à ma connaissance, d'autre moyen, sauf si il s'agit d'une fonction personalisée au quel cas le lancement de l'autre macro pourrait se faire depuis la sus-dites macro personalisée...
Bon courage
Cordialement

 

[mécano41]

Re : Worksheet change et fonction

Bonjour,

Peut-être ainsi, ... si j'ai compris ...

Il y a du code :

- dans ThisWorbook pour lancer l'Init à l'ouverture
- dans Module1 pour initialiser (mise en mémoire de ce qui est dans la colonne A)
- dans Feuil1 pour vérifier si ce qui est dans la colonne A est identique à ce qui y était avant et lancer Stat si c'est différent

C'est fait pour la colonne A ; à adapter pour une autre colonne ...

NOTA : Le 0 ou le 1 dans la cellule jaune, c'est juste pour vérifier que si rien n'est modifié dans la colonne, il ne se passe rien

Cordialement

 

[mécano41]

Re : Worksheet change et fonction

La même chose mais sans besoin d'adaptation du code à la colonne à tester ; il suffit, dans la feuille (feuil1) de nommer PremCell la première cellule de la colonne à tester.

Cordialement

 

[tototiti2008]

Re : Worksheet change et fonction

Bonjour à tous,

peut-être une autre possibilité :

Function VerifCalc() As Long
    Application.Volatile
    Call Stat
    VerifCalc = 0
End Function

Dans les formules dont le calcul doit être surveillé, ajouter un "+VerifCalc()"
qui entrainera le lancement de Stat

Mais cette possibilité a des limites, comme la Sub est appelée par une Function, certaines actions risquent de ne pas passer

Edit : autre remarque : chez moi Stat est appelée avant la fin du recalcul

 

[mécano41]

Re : Worksheet change et fonction

..et une variante qui tolère des trous dans les valeurs de la colonne contenant les cellules avec fonction...

Cordialement

 

[F2T]

Re : Worksheet change et fonction

Bonjour a tous et merci pour vos reponses 🙂🙂

Je n'ai pas eu le temps d'approfondir a 100% la reponse de mecano a mon cas.
Mais je vais m'y atteler.

Tototiti-> ta reponse me seduit bien Cependant apres essais d'ajout dans la formule, l'erreur #value! me ressort.

Dois je modifier quelque chose dans les options d'excel ?

 

[tototiti2008]

Re : Worksheet change et fonction

Bonjour à tous,

après refléxion, je pense que la solution de mécano est sans doute meilleure, mais bon...

Quelle formule as-tu avant de faire un "+VerifCalc()" ?
Ces formules renvoient des nombres ou du texte ?

 

[F2T]

Re : Worksheet change et fonction

Bonjour tous le monde,

c'est des formules créées qui renvoient du texte.

 

[tototiti2008]

Re : Worksheet change et fonction

Bonjour,

Peut-être comme ça alors :

Function VerifCalc() As String
    Application.Volatile
    Call Stat
    VerifCalc = ""
End Function

et à la place de "+VerifCalc()" il faudra faire un "&Verifcalc()"

mais je ne suis pas sûr que ce soit la solution adaptée

comme je l'avais dit :

après refléxion, je pense que la solution de mécano est sans doute meilleure

 

[F2T]

Re : Worksheet change et fonction

Merci a vous, j'ai opté, pour lancé une macro toute les mn dans une feuille moins chargé en calcul. Car autrement avec le worksheet_calculate, le processeur ne suivait pas.

Merci qd meme pour les idées.