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]