Worksheet change et fonction

Efgé

XLDnaute Barbatruc

• 31 Août 2010

• #2

Re : Worksheet change et fonction

Bonjour F2T,
Peut être avec:

Code:

Private Sub Worksheet_Calculate()

Cordialement

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 31 Août 2010

• #3

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 !

 

Vote positif 0 Vote négatif

F

F2T

XLDnaute Occasionnel

• 2 Septembre 2010

• #4

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.

🙂

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Septembre 2010

• #5

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 3 Septembre 2010

• #6

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

 

Pièces jointes

• Essai1.xls

  28.5 KB · Affichages: 111
• Essai1.xls

  28.5 KB · Affichages: 117
• Essai1.xls

  28.5 KB · Affichages: 115

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 3 Septembre 2010

• #7

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

 

Pièces jointes

• Essai2.xls

  28.5 KB · Affichages: 99
• Essai2.xls

  28.5 KB · Affichages: 103
• Essai2.xls

  28.5 KB · Affichages: 108

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Septembre 2010

• #8

Re : Worksheet change et fonction

Bonjour à tous,

peut-être une autre possibilité :

Code:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 3 Septembre 2010

• #9

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

 

Pièces jointes

• Essai3.xls

  33 KB · Affichages: 91
• Essai3.xls

  33 KB · Affichages: 101
• Essai3.xls

  33 KB · Affichages: 99

Vote positif 0 Vote négatif

F

F2T

XLDnaute Occasionnel

• 7 Septembre 2010

• #10

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 ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Septembre 2010

• #11

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 ?

 

Vote positif 0 Vote négatif

F

F2T

XLDnaute Occasionnel

• 8 Septembre 2010

• #12

Re : Worksheet change et fonction

Bonjour tous le monde,

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Septembre 2010

• #13

Re : Worksheet change et fonction

Bonjour,

Peut-être comme ça alors :

Code:

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

Cliquez pour agrandir...

 

Dernière édition: 8 Septembre 2010

Vote positif 0 Vote négatif

F

F2T

XLDnaute Occasionnel

• 14 Septembre 2010

• #14

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.

 

Vote positif 0 Vote négatif