Discussion :

[Toops]

Bonjour,

J'ai un problème que je n'arrive pas résoudre malgré mes nombreuses recherches.

J'utilise dans ma macro une procédure du type Worksheet_Change, le but étant d'uploader une base Access a chaque fois que la cellule "target" change de valeur, et de mettre à jour un classement de ces données dans cette même feuille Excel.

Le problème est le suivant: la cellule "target" change de valeur automatiquement car j'ai une formule dedans (reliée à un autre programme qui me donne des données en temps réel). Je ne change donc pas la valeur de la case manuellelemt et appuie sur Enter ensuite. La proédure Worksheet_Change ne s'exécute donc pas, mais la cellule "target" change bien de valeur.

La question est donc: comment faire pour que Worksheet_Change n'attende pas que j'appuie sur Enter pour s'exécuter?


Merci beaucoup pour aide,

[alsimbad]

de la même façon que tu as l'evenement "quand change", tu as l'evenement "quand calculate"

[Gorfael]

Salut Toops et le forum
Comment tu changes ta valeur ?
Tu donnes des généralités et on doit de rtépondre précisement ?
le cellule mère de ta formule change et donc, c'est sur celle-ci que doit se caler la macro sur changement.
A+

[Toops]

Salut,

Merci pour vos réponses.

Je vais essayer d'être plus clair: pour l'instant ma macro utilise la procédure Worksheet_Change sur une cellule qui contient une fonction qui va chercher un prix en temps réel sur les marchés financiers. Du coup, le prix change environ toutes les 10 secondes, mais comme je ne rentre pas la valeur manuellement, Worksheet_Change ne comprend pas qu'il y a eu un changement.

Je vais tenter d'utiliser Worksheet_Calculate, mais je pense que j'aurais d'autres problèmes parce que j'ai des cellules dont la valeur change toutes les secondes.
D'ailleurs, est-il possible d'utiliser Worksheet_Calculate en lui indiquant de regarder une cellule en particulier? (un peu comme le "target" avec Worksheet_Change)?

Merci beaucoup pour vos efforts

[Gorfael]

Salut Toops et le forum

pour l'instant ma macro utilise la procédure Worksheet_Change sur une cellule qui contient une fonction qui va chercher un prix en temps réel sur les marchés financiers

quelle fonction ? Quelle cellule ?
Ta macro Worksheet_Change agit quelque soit la cellule modifiée ?

Plus tu es moins précis, moins l'aide est plus efficace!

A+

[neupont]

Je ne voudrais pas paraître pessimiste mais je ne crois pas qu'on puisse détecter un changement d'une valeur sur formule (ou fonction), même avec Worksheet_Calculate.
En tout cas j'avais essayé il y a longtemps et ça ne fonctionnait pas.

Mais si tu utilises une fonction, pourquoi ne pas la modifier pour qu'elle déclenche ensuite ce que tu veux ?

[fring]

Je ne voudrais pas paraître pessimiste mais je ne crois pas qu'on puisse détecter un changement d'une valeur sur formule (ou fonction), même avec Worksheet_Calculate.

Bonjour tlm,

Si c'est possible, supposons que l'on veut surveiller la modification, suite à un calcul, de la valeur de la cellule C1 de la feuille "Feuil1" :

• dans un module
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  Dim Verif As Variant
   
  Sub initialisation_verif()
      Verif = Sheets("feuil1").Range("C1")
  End Sub
   
  Sub test_verif()
      If Sheets("feuil1").Range("C1") <> Verif Then
          Verif = Sheets("feuil1").Range("C1")
          MsgBox "coucou"
      End If
  End Sub

• dans l'événement Calculate de la feuille
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  Private Sub Worksheet_Calculate()
      test_verif
  End Sub

• dans l'événement Open de Thisworkbook
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  Private Sub Workbook_Open()
      initialisation_verif
  End Sub

[neupont]

Ah c'est donc comme ça que ça marche ?
Eh ben je serai pas venu pour rien

[fring]

Vu que l'on ne peut pas utiliser de Target, c'est le seul moyen que je vois pour vérifier la modification d'une cellule dont la valeur change via une formule.

Maintenant si on a 150 cellules à vérifier...là je ne vois pas comment faire hormis d'utiliser l'événement calculate pour la feuille entière.

[neupont]

Peut-être "encapsuler" la formule dans une fonction maison qui déclencherait aussi la 2ème phase, et utiliser dans la feuille cette fonction maison plutôt que la formule ?
Jamais essayé.
Mais ta solution doit déjà pouvoir dépanner pas mal.

[alsimbad]

mais on peut mémoriser la valeur de cette cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
quand change : cel = cette valeur
quand calculate : cel1 = cette valeur
si cel1<> cel executer macro

[fring]

Tu n'as pas forcément l'événement Change, la formule peut faire référence à d'autres feuilles voir même d'un autre classeur.

[alsimbad]

et sur calculate ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
public cel
 
quand calculate :
 cel1 = cette valeur
si cel = cel1 : exit sub
sinon cel = cel1
executer macro

[fring]

Bin oui...c'est ce que j'ai fait

[Toops]

Merci à tous pour votre aide, et merci en particulier à fring.

Ton idée marche nickel !

T'es le meilleur

[fring]

Si ton problème est résolu, merci de cliquer sur le tag

[alsimbad]

Bin oui...c'est ce que j'ai fait

yes, je commence a etre a niveau