lancer une macro si la valeur cellule A1 change

[pascal21]

bonsoir
je recherche le code qui permet de lancer une macro lorsque la valeur d'une cellule change
je sais faire:

 if range ("a1"). value  ............ then

que mettre à la place des points pour indiquer que si la valeur change alors ......
je pensais à if range("a1").value <> mais après je sèche

merci
edit:
je viens de trouver ceci

 If Application.Intersect(Target, Range("a1")) Is Nothing Then

et ceci

If  not Application.Intersect(Target, Range("a1")) Is Nothing Then

mais ça ne peux pas fonctionner car la cellule a1 ne sera pas visible

 

[wilfried_42]

Re : lancer une macro si la valeur cellule A1 change

Bonjour

je ne connais pas ton fichier et commnt change ta cellule A1

Tu as une interruption sur les changement des cellules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    if target.address = "$A$1" then
         msgbox "La cellule A1 a été modifiée"
    end if
End Sub

 

[JCGL]

Re : lancer une macro si la valeur cellule A1 change

Bonjour à tous,

Peux-tu essayer :

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address(0, 0) = "A1" Then Call TaMacro
End Sub

Pas tester...

A+

 

[pascal21]

Re : lancer une macro si la valeur cellule A1 change

bonsoir
merci à vous deux
mais je n'avais pas préciser que cette cellule n'était pas visible
dans le code donné la macro se lance lorsque a1 est selectionnée
ce qu'il faudrait en fait c'est que la macro se lance si la valeur de a1 change
dans mon classeur d'essai la valeur de a1 est donnée par b1 qui elle est accessible