Inconvénient avec Worksheet_calculate

Bonjour,

Je cherche à lancer une macro si une case est modifier.

Donc il faut utiliser Worksheet Change... mais le problème est que la case est modifier par un calcul automatique de deux cellule. Donc celà ne marche pas.

Donc j'utilise Worksheet Calculate. Mais le probleme c'est que j'ai deux cellules qui bougent toutes les secondes automatiquement ("""lié à Reuters""") donc, donc la macro est lancé des que un des trois (les deux cellules) plus la cellule qui m'interesse.

En gros, je cherche une fonction Worksheet Calculate mais qui ne concernerait qu'une cellule ou plage de données et non pas toute la feuille.

Merci beaucoup.

Badouba

Pourquoi tu n'utiliserais pas WorkSheet_Change sur l'une des deux cellules à l'origine du calcul?

A + B = C

A, B, changent automatiquement, donc C aussi.


Je veux quema macro se lance juste quand C bouge. pas A ou B.

Merci d'avance

Justement: en détectant un changement de A ou de B, tu détecte un changement de C. ;)

N'est-ce pas ce que tu voulais?

Salut,
Il est possible que worksheet_change ne détecte pas non plus le changement de A ou B vu que ce n'est pas "manuel", du moins c'est ce que j'ai compris.

Pour les cas simples j'utilise pour ma part une petite astuce :
Imaginons que C soit la somme de A + B, au lieu de mettre "= A1 + B1" comme formule dans C1, je crée une fonction personnalisée dans un module (ici nommée sommeF) :

Code:

---

1 2 3 4 5

Function sommeF(a As Integer, b As Integer) 'modifier les types selon le besoin sommeF = a + b MsgBox "calcul" 'remplacer "MsgBox "calcul"" par le traitement souhaité End Function

---

Alors C1 doit avoir comme formule "=sommeF(A1;B1)"

Ceci permet de faire à la fois la somme et le traitement supplémentaire que tu aurais voulu faire sur l'événement on_change de C1.

Par contre c'est moins souple qu'une formule classique dans la mesure où, par exemple, tu dois avoir un nombre de paramètres bien déterminé.

Ceci dit il existe peut-être d'autres méthodes plus élégantes.

Exactement
il y a A et B, qui changent de valeur continuellement.

C change de valeur lorsque A ou B sont inférieurs à une valeur fixe.

et donc je veux etre averti lorsque C change de valeur.


Worksheet Calculate peut il etre valable que sur une Feuil ?

donc en fait ces solutions ne s'appliquent pas.
Au secours !!! loool

Merci

Citation:

---

Envoyé par neupont

Par contre c'est moins souple qu'une formule classique dans la mesure où, par exemple, tu dois avoir un nombre de paramètres bien déterminé.

---

Que tu crois. ;)
La même chose peut se faire avec un paramArray:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function sommeF(ParamArray listevaleurs() As Variant) As Double 'modifier les types selon le besoin On Error GoTo vide Dim argument As Variant sommeF = 0 For Each argument In listevaleurs sommeF = sommeF + argument Next Exit Function vide: End Function

---

Là tu peux mettre 0,1,2,3... une infinité d'arguments. :D

Dis-moi... ça marche pas aussi bien que la formule classique ça desfois? :mrgreen:

EDIT:
@badouba

Ahh... mais aussi si tu ne dis pas tout, on peut pas deviner.

Dans ce cas, je te propose d'utiliser une variable statique dans ton WorkSheet_Calculate qui mémorise la valeur de ta cellule C. Si par rapport au dernier calcul la valeur de cette variable est différente de celle de ta cellule C, c'est que son contenu a changé, et tu dis "ça a changé de valeur" et tu mémorise la nouvelle valeur dans la variable statique.

J'espère que c'est assez clair...

Citation:

---

Envoyé par decondelite

La même chose peut se faire avec un paramArray
Là tu peux mettre 0,1,2,3... une infinité d'arguments. :D

---

:hola::merci:

Citation:

---

Envoyé par Badouba75

donc en fait ces solutions ne s'appliquent pas.

---

Si en fait je pense que ce que je t'ai proposé marcherait justement ;)
Il y a certainement d'autres possibilités aussi, mais j'en connais point :mouarf:

Edit : la manière de Decondelite a l'air plus simple à mettre en oeuvre, en particulier si c'est toujours la même cellule que tu vérifies.

Comment tu fais pour enregistrer la précédente valeur, car dans mon W_Calculate la valeur est déjà changé.

Ou sinon une autre solution car c'est pas super efficace dans mon cas.

En gros un Worksheet Calculate qui ignore la variation de deux cellules, ou qui est valable que pour une feuille de calcul.

Un worksheet Change qui fonctionne pour les cellules qui change automatiquement et non pas manuellement.

Voila, en espérant que vous pourrez m'aider.

Merci

Bonjour tlm,

Si j'ai bien compris, ci-dessous une possibilité

• dans un module standard
  
  Code:

  ---

  Public Cel As String

  ---

• dans le module ThisWorkbook
  
  Code:

  ---

  1 2 3

  Private Sub Workbook_Open() Cel = Sheets(1).Range("C1") End Sub

  ---

• dans le module de la feuille
  
  Code:

  ---

  1 2 3 4 5 6

  Private Sub Worksheet_Calculate() If Range("C1") <> Cel Then Cel = Range("C1") MsgBox "la valeur de la cellule C1 a changé", vbInformation End If End Sub

  ---

C'est à peu près ce que je proposais, si ce n'est que je proposais d'utiliser une variable statique, comme ceci:

Code:

---

1 2 3 4

Private Sub Worksheet_Calculate() Static Cel As String ' Le reste ne change pas End Sub

---

Bannir les variables publiques autant que possible. :P

un grand merci...!!!

quelle différence entre public et l'autre possibilité ?

Citation:

---

Envoyé par decondelite

Bannir les variables publiques autant que possible. :P

---

Pour quelle raison ?

Avec ta déclaration, le premier changement de la cellule suite à un calcul ne sera pas détecté

La différence, c'est que Static sera propre à la procédure dans laquelle la variable est déclarée.
Si tu veux avoir accès à cette valeur en dehors de cette procédure (et à mon avis c'est inutile il suffit de lire la valeur de la cellule), alors à ce moment Public redevient préférable.