lancer une macro si la valeur cellule A1 change

pascal21

XLDnaute Barbatruc
bonsoir
je recherche le code qui permet de lancer une macro lorsque la valeur d'une cellule change
je sais faire:
Code:
 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
Code:
 If Application.Intersect(Target, Range("a1")) Is Nothing Then
et ceci
Code:
If  not Application.Intersect(Target, Range("a1")) Is Nothing Then
mais ça ne peux pas fonctionner car la cellule a1 ne sera pas visible
 
Dernière édition:

wilfried_42

XLDnaute Barbatruc
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

Code:
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

XLDnaute Barbatruc
Re : lancer une macro si la valeur cellule A1 change

Bonjour à tous,

Peux-tu essayer :

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

Pas tester...

A+
 

pascal21

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 848
Messages
2 092 783
Membres
105 533
dernier inscrit
TAF