Discussion :

[damijoo]

Bonjour,

Je désire réaliser une macro qui doit : dés qu'il y a un changement dans la colonne A, me reporter l'heure de ce dernier changement. Mon problème est que j'ai besoin que la macro soit capable de lire le retour d'une formule. En effet, dans ma colonne A, sur toutes les lignes est présent une formule RTD liée à Bloomberg. Cette formule renvoi soit : ON, OFF, 0, 1, , ce qui correspond à un changement de statut d'un produit en continue, mais je ne trouve pas le moyen de faire lire ce renvoi en vba.


Voici mon code pour le moment ci dessous :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 1 Then 
 
     Target.Offset(0, 1) = Now 
    End If 
 
End Sud

Merci d'avance

[78chris]

Bonjour

Le retour est dans la cellule qui contient la formule...

[Menhir]

A ma connaissance, Worksheet_Change ne prend en compte que les saisies manuelles, pas les valeurs résultant de fonctions.

Je ne vois pas de solution simple pour faire ce que tu souhaites.

On pourrait éventuellement imaginé une fonction qui se lance toutes les X minutes et qui comparent toutes les données scrutées à leurs valeurs précédentes (préalablement stockées), et, si elle trouve une différence, mets à jour la donnée stockée et signale l'heure que tu souhaites.
Mais ce serait lourd et peu fiable.

[Patrice740]

Bonjour,

La valeur résultant d'une formule ne peut changer que lors du calcul,
Tu pourrais utiliser l'évènement Calculate de la feuille.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Calculate()
Static m As Variant
Dim t As Variant
Dim i As Integer
Dim d As Date
  t = Application.Transpose(Me.Range("A1:A10").Value)
  If IsEmpty(m) Then
    m = t
  Else
    For i = LBound(t) To UBound(t)
      If t(i) <> m(i) Then
        d = Now
        MsgBox d
        Exit For
      End If
    Next i
  End If
End Sub