macro sur cellule changeante

Bonjour,

je dispose d'une cellule xls dont le contenu change (connexion avec un système d'info spécialisé). Il s'agit d'une date qui change quotidennement, je désire qu'à chaque fois que la date est actualisée, une macro s'exacute automatiquement.

J'ai essayé l'évenement change et change selection dans la feuille worksheet mais il faut que dans ce cas, la cellule changeante soit pointée pour que la macro s'execute.

Merci de vos éclaircissements

sans certitude, tu peux essayer quand_calculate

c'est quoi quand_calculate et comment faire exactement ?

evenementielle comme quand_change

Code:

---

1 2 3

Private Sub Worksheet_Calculate() End Sub

---

Bonsoir,

L'événement Change devrait convenir parfaitement.

Si tu veux que le traitement soit lancé uniquement quand la cellule qui t’intéresse (A10 par hypothèse) est modifiée :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A10")) Is Nothing Then ' Ici ton traitement End If End Sub

---

Cordialement,

Michel Gaboly

J'ai essayé ce code mais malheureusement ça n'a pas marché :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A10")) Is Nothing Then MsgBox "OK" ' Ici ton traitement End If End Sub

---

Qu’entends-tu par cela n’a pas marché ?

As-tu bien mis le code dans le module de la feuille concernée ?

Dans mon exemple de code, le traitement (ici le MsgBox "OK" que tu as rajouté), ne se déclenche que si la cellule A10 est modifiée. Rien ne se passe dans le cas contraire. J'ai vu que tu n’as pas adapté la référence de mon exemple de code. As-tu modifié la cellule qui t’intéresse (j’ignore de laquelle il s’agit) ou la cellule A10, qui est la seule à provoquer l’affichage du message ?

N’hésite pas à apporter des précisions si tu ne t’en sors pas.

Cordialement,

Michel Gaboly

je pense que mjanbar a raison, ça ne marche pas puisque la cellule a10 est le résultat d'un calcul
supposons a10 la cible
b1 sur la meme feuille et a1 en feuille 2
formule en b10 = =Feuil2!A1
et la formule en feuille2 A1 est =45+Feuil1!B1
donc si je change en b1 de la feuille 1 je change a10 sans que la target soit a10
j'utilise donc

Code:

---

1 2 3 4 5 6 7 8

Public valeur Private Sub Worksheet_Calculate() If Not valeur = Range("a10").Value Then MsgBox "ok" End Sub Private Sub Worksheet_Change(ByVal Target As Range) valeur = Range("a10").Value End Sub

---

maintenant ça c'est pour une liaison, je ne sais pas ce que ça donne pour un "connexion avec un système d'info spécialisé", a toi de nous dire

Bonjour,

Si l’événement Change n’est pas déclenché, parce que la valeur modifiée résulte d’un calcul, j’aurais tendance à stocker la valeur de "A10" avant recalcul, en utilisant un nom caché, pour éviter que l’utilisateur ne le modifie ou ne le détruise.

L’intérêt d’un nom est qu’on peut quitter Excel et réouvrir le classeur, sans que le système ne cesse d’être fonctionnel.

Pour initialiser le système, procédure à placer dans un module standard, à lancer une fois :

Code:

---

1 2 3

Sub ValRef() ActiveSheet.Names.Add "Réf", Range("A10").Value, False End Sub

---

Puis dans le module de la feuille :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Calculate() If Range("A10") <> Evaluate("Réf") Then MsgBox Evaluate("Réf") ' A remplacer par le traitement adéquat Me.Names.Add "Réf", Range("A10").Value, False End If End Sub

---

Cordialement,

Michel Gaboly

Merci alsimbad,

En effet, la procédure s'exécute bien pour une changement de cellule
Pour la liaison avec le système d'info, je testerai demain au taf et je vous tienderai au courant

pour ta proposition Bigalo,

J'ai une incompatibilité de type à la ligne

Code:

---

If Range("j10") <> Evaluate("Réf") Then

---

j'ai pas su la corriger

Voici mon fichier de test, sur lequel cela fonctionne sans problème.

Cela t'aidera peut-être à comprendre d’où vient le problème.

Cordialement,

Michel Gaboly
www.gaboly.com

La macro sonore est testée OK sur le système d'info

merci à vos tous

résolu

Il faut cliquer le bouton 'Résolu' au bas de la page de conversation pour marquer une discussion comme étant résolue.