Declenchement macro au changement de la valeur d'une cellule

Bonjour,

Je demande encore et toujours votre aide et je vous en remercie.

Comment faire pour déclencher une macro au changement de la valeur d'une cellule?

ci joint mon fichier exemple

Un grand merci par avance

Bien cordialement

Bonjour,

latef1991 a écrit :

Comment faire pour déclencher une macro au changement de la valeur d'une cellule?

Tout simplement, en utilisant la procédure de la feuille concernée suivante, sachant que Target c'est la cellule qui est modifiée :

Private Sub Worksheet_Change(ByVal Target As Range)
    'Plage = une colonne ou une ligne sur laquelle on effetue le changement
    If Not Intersect(Range(Plage, Target)) Is Nothing Then
        'code du traitement
    End If
End Sub

Pense à fournir des précisions quant à ta demande.

bonjour,

pas besoin de macro pour ça !

voir pièce jointe.

A+

Bonjour Raja, bonjour Galopin,

je vous remercie pour vos reponses.

Je suis désolé mais je n'ai rien compris à la réponse de Galopin.

La réponse de Raja ne fonctionnait pas dans mon cas.

Après recherche la meilleure solution est la suivante et passe par calculate (donnée par Myta en 2008 dans un autre forum):

Dans le module objet de Feuil1 :

Public ValPrec

Private Sub Worksheet_Calculate()
  Vérif
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  Vérif
End Sub

Private Sub Vérif()
  If VarType(Range("A1")) = VarType(ValPrec) Then _
    If ValPrec = Range("A1") Then Exit Sub
  MsgBox "Cellule A1 passe de " & CStr(ValPrec) & _
    " vers " & CStr(Range("A1"))
  ValPrec = Range("A1")
End Sub

Dans le module de code ThisWorkbook :

Private Sub Workbook_Open()
  Feuil1.ValPrec = Feuil1.Range("A1")
End Sub

Bien cordialement à tous celles et ceux qui nous aident et encore un grand merci