Discussion :

[gwen.s]

Bonjour,

J'essaye de détecter si une cellule a changé de valeur ou non.
J'ai trouvé pas mal d'exemple de worksheetchange mais cela ne convient pas car
1/ je ne connais pas la valeur initiale de la cellule
2/ je ne connais pas la nouvelle valeur.

Tout ce que je veux faire c'est être capable de détecter dans une plage de cellules donnée si une cellule a changé de valeur et si c'est le cas exécuter la macro qui va bien....

Dans tous les exemples que j'ai pu trouver, la cellule en question est comparée à une autre cellule et jamais avec elle_même.

Peut être que je peux inclure cette comparaison directement dans la macro sans passer par un fonction supplémentaire ?

Si l'un de vous a une idée ce serait avec grand plaisir !!!

Merci

[sabzzz]

bonjour gwen.s,

pour connaitre la valeur d'une cellule, déclare une variable Public dans un module standard et utilise l'événement "Workbook_Open" pour stoker la valeur de cette variable, ensuite avec l'événement "Worksheet_Change"
tu pourra comparer Target avec la variable, executer une action et modifier la variable avec la nouvelle valeur.

[laetitia]

bonjour gwen.s isabelle pas si simple!!

un premier exemple qui peut être suffisant mais si tu re ecris la meme valeur pas bon pour plage a1:b10

Code :

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

1
2
3
4
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then 'MsgBox var 'ta macro
End Sub

autrement code different a tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public var As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
If var <> Target Then MsgBox "changement" 'ta macro
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
var = Target.Value
End If
End Sub

[gwen.s]

Bonjour,

Merci pour votre aide.

Ca marche très bien et voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal target As Range)
 
Set Plage = Range("a6:a20")
Rg = 0
If Not Intersect(target, Plage) Is Nothing And target.Count = 1 Then
new_value = target.Value
nb_row = target.Row
SelectionColonnesLignes 'la macro à exécuter
End If
End Sub