VBA -Détection de modification de cellule

Version imprimable

29/04/2010, 16h43
gwen.s

VBA -Détection de modification de cellule

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
29/04/2010, 17h04
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.

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:

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:

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

Bonjour,

Merci pour votre aide.

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

Code:

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