Déclanchement de macro

Bonjour,

J'ai écris une macro (nommée EDT) qui fonctionne parfaitement quand je la lance manuellement seulement j'aimerais qu'elle se lance à chaque modification de la cellule C1.

J'ai donc tenté ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("C1"), Range(Target.Address)) Is Nothing Then Call EDT
End Sub

Mais sans succès :/

J'espère que vous pourrez m'aider.

Cordialement,

Bonjour,

Pouvez-vous essayer ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C1"), Target) Is Nothing Then Call EDT
End Sub

Cdlt,

Bonjour,

Plus simple ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then Call EDT
End Sub

Merci pour vos réponse mais j'ai l'impression que la modification d'une cellule n'est même pas détecté puisque quand je remplace le If par une MessageBox rien ne se passe non plus.

Re,

C1 comporte une formule ?

Cdlt.

Il s'agit d'une liste avec en choix A ou B

Mais peut importe la cellule que je prends et en retirant la condition juste avec

Private Sub Worksheet_Change(ByVal Target As Range)
  MessageBox "Test"
End Sub

rien ne se passe

Re,

Un exemple à adapater.

Cdlt.

4chbouli04.xlsm (15.54 Ko)

Bonsoir,

Le code est bien placé dans le module de la feuille en question ?

Ok merci à vous je l'avais mis sur Feuil2 au lieu de Feuil1 ^^'

Rechercher des sujets similaires à "declanchement macro"