Discussion :

[tikam75007]

Hello, hello,


j'ai une question, je voudrais lancer une macro lorsque que la valeur de cellule change au delà d'un certain seuil.

J'ai commencé par écrire ce bout de code qui ne marche pas

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
19
20
21
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim seuil As Double
 
 
   If Target.Previous = 0 Then
      MsgBox ("pas de valeur précédente")
      Exit Sub
   End If
 
   seuil = Target / Target.Previous
 
   If seuil > 0.01 Then
       MsgBox ("big move")
   Else
       MsgBox ("no big change")
   End If
 
End Sub

la variable target.previous est toujours vide
Je pensais que target.previous renvoyait la valeur avant le changement.

Une idée quelqu'un?

Merci.

[mercatog]

Si la cellule est sélectionnée avant d'être changée, je propose ceci:

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
Public preced As Double
Private Sub Worksheet_Change(ByVal Target As Range)
Dim seuil As Double
   If preced = 0 Then
      MsgBox ("pas de valeur précédente")
      Exit Sub
   End If 
   seuil = (Target - preced) / preced   'REGARDE ICI
   If seuil > 0.01 Then
       MsgBox ("big move")
   Else
       MsgBox ("no big change")
   End If  
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   preced = Target.Value
End Sub

[tikam75007]

hey mercatog once again,

merci pour ta réponse

j'ai testé ça marche bien,

En revanche, je ne sais si les cellules seront sélectionnées avant d'être modifiées.

Une autre question comment faire si les changement portent sur toute une plage à la fois?

Encore merci de ton aide.

[mercatog]

La proposition précédente concerne uniquement la sélection et le changement d'une seule cellule. je n'ai pas mis le test sur Target.


PS (sans liaison)

Code :

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

seuil = Abs(Target - preced) / preced

[Krovax]

Pour la deuxième question

Code :

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

1
2
3
4
5
6
dim c as range
 
for each c in target
'ton code avec c a la place de target
 
next c

Mais je ne sais pas comment tu pourra adapter ca avec le preced. mais ca doit être jouable en rusant bien

[laetitia]

bonjour le fil le forum.. peut être partir sur un truc comme cela!!

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
On Error Resume Next
'ton code
End If
End Sub

[/CODE]

[tikam75007]

merci à vous pour vos réponses,

@Laetitia:

si je comprends bien, le code que tu proposes va faire se déclencher la macro dès qu'une cellule de la plage A1:A10 va changer? Mais, je cherchais quelque chose qui déclenche la macro seulement si le changement est supérieur à un certain seuil.

Je pense que je vais partir sur la piste proposée par Krovax.


Bonne soirée à tous

[mercatog]

Une autre question comment faire si les changement portent sur toute une plage à la fois?

si tu peux expliciter le comment des choses?
le changement sur la plge survient suite à une copier/coller de données, userform, formules...etc

[tikam75007]

Hello gang,


en fait, je continue, j'ai du modifier un peu pour prendre en compte l'éventualité d'un changement portant sur toute une plage.

En gros deux routines:

la première chronologiquement place dans une collection les valeurs sélectionnées et une seconde routine compare les valeurs de la collection avec les nouvelles valeurs.

ça ne plante pas, mais ça ne marche pas non plus.
(après d'autres test si ça plante parfois).

Code :

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

1
2
3
 
Option Explicit
Public preced As New Collection

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
19
20
21
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim seuil As Double
Dim i As Integer
Dim c As Range
i = 1
 
  For Each c In Target
 
   seuil = (c.Value / preced.Item(i)) - 1 'REGARDE ICI
   i = i + 1
         If seuil > 0.01 Or seuil < -0.01 Then
            MsgBox ("big move")
         Else
            MsgBox ("shitty move")
         End If
 
  Next c
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim c As Range
Dim i, j As Integer
 
'vide la collection preced au cas où
On Error Resume Next
If Not i = preced.Count = 0 Then
   For j = 1 To i
   preced.Remove (j)
   Next j
End If

hé bien, les résultats sont erratiques, parfois conformes à mes attentes parfois non.


Par ailleurs, je pense que la solution consistant à passer pour l'événement selection n'est pas la bonne solution pour ce que j'avais en tête.
Je pensais à des données provenant en temps réel depuis une base de données (je n'ai pas à me soucier de l'appel). Tout ce que je sais, c'est que les données pourront changer toutes les secondes.

D'ailleurs, je vois que Mercatog vient de poser une question en ce sens pendant que je rédigeais mon message.

@Mercatog: ça répond à ta question? Où tu as besoin de plus de détails?

[mercatog]

J'ai besoins de détails
à propos du changement des données dans ta feuille

[laetitia]

re,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
On Error Resume Next
Dim C As Range
For Each C In Range("A1:a10")
If C.Value > 100 Then MsgBox "action.."
 Next C: End If
End Sub

[mercatog]

Bonsoir Laetitia,
en fait, il désire comparer la nouvelle valeur d'une cellule avec l'ancienne valeur contenu dans la même cellule (avant changement)

[laetitia]

re, le fil ok l' ami mercatog je l'avais pas interprete comme cela!!!!
en partant sur cette base des fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value > i Then MsgBox "valeur >..." & Target.Value - i
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
On Error Resume Next
i = Target.Value
End If
End Sub

dans un module standard

Code :

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

1
2
Option Explicit
Public i As Variant

autrement une autre piste a etudier??

Code :

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

1
2
3
Static cp As Range
If Not cp Is Nothing Then MsgBox cp.Value
Set cp = Target

[mercatog]

Re bonjour,

Je pensais à des données provenant en temps réel depuis une base de données (je n'ai pas à me soucier de l'appel). Tout ce que je sais, c'est que les données pourront changer toutes les secondes.

C'est plus logique de voir là (mon avis personnel qui n'engage que moi).
le test doit être exécuté juste avant import (tu as simultanément les anciennes données et les nouvelles). en temps réel ou en différé c'est pas là pour l'instant le problème.

PS. les anciennes données il faut les avoir quelque part, à l'évènement Change, elles sont déjà écrasées

[tikam75007]

Bonjour à vous,

je n'avais pas vu vos réponses (j'ai dû oublier de cocher la case suivre la discussion, j'en suis désolé...)

Merci en tout cas pour votre aide


Suite à la remarque de Mercatog, i.e:

PS. les anciennes données il faut les avoir quelque part, à l'évènement Change, elles sont déjà écrasées

Pourtant excel garde bien certaine infos en mémoire pour les retour arrière.
Existe-t-il un moyen de les interroger?


Seconde remarque de Mercalog:

le test doit être exécuté juste avant import

c'est une bonne idée qui mérite d'être creusée.
2 possibilités:

-la première: importer les données sur une feuille différente et comparer avec la première feuille. Finalement, il n'y aura peut-être même pas besoin de VBA, juste un format conditionnel fera l'affaire.

-la seconde: on peut importer les données en interrogeant directement l'API de Bloomberg pour pouvoir les tester avant qu'elles ne soient écrasées. Je ne l'ai jamais fait (et je n'ai pas de bloomberg à la maison), mais je sais que certains ont eu de mauvaises surprises car Bloom facture ce genre de requêtes alors que les imports sur excel en utilisant leurs fonctions ad hoc sont gratos.

-pour les changements "à la main" je vais rester sur votre solution (worksheet_change/worksheet_select).


Encore merci