Executer une macro sur evenement seulement si "A1" change

[stef]

Bonjour,

je voudrais executer une macro dans un cas bien precis : seulement lorsque je change la valeur d'une cellule specifique

ca serait simple si je pouvais comparer l'ancienne valeur de la cellule à la nouvelle (comme pour un control d'Access) mais ce n'est pas possible, ou j'ai pas vu !!! ;-)

j'ai pensé a detecter la position de la cellule active apres modif mais c'est pas bon: en fonction des reglages utilisateur, apres un 'enter' la cellule active peut être à droite, à gauche , dessous ou dessous ....ou n'importe où ailleur en cliquant avec le souris... :-((

qqu'un a une astuce ????

merci

stef

 

[pyrof]

Bonjour,
Sur l'onglet de ta feuille clique avec le bouton droit et fait visualiser le code

colle ce code

Public valeur1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
If Target.Value <> valeur1 Then
MsgBox "Action"
End If

End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
valeur1 = Target
End If
End Sub


et regarde si cela te convient

 

[Kodranha]

Merci infiniment

Hein ? Oui je sais, ce n'est pas moi l'auteur de ce sujet à la base, mais l'astuce que tu viens de donner est exactement la solution à un de mes problèmes.
Donc merci