Lancement d'une macro seulement a la modif d'une cellule

Bonjour à tous et merci d'avance pour vos réponses.

Je travaille sur excel 2007 et je bloque sur l'utilisation du VBA

Mon Pb:

Je souhaite que mon fichier excel exécute une macro en fonction du changement de la valeur de ma cellule $A$1

Celle-ci peut soit afficher 1 soit 2

dans le cas ou $A$1= 1 je souhaite lancer ma macro 'Examen

dans le cas ou $A$1= 2 je souhaite lancer ma macro 'NonExamen

Voici le code que j'ai entrée dans le code de ma feuille:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

ElseIf Range("A1") = 1 Then

Examen

ElseIf Range("A1") = 2 Then

NonExamen

End Sub

Le pb que je rencontre et que je pensais régler par l'utilisation de " If Target.Address = "$A$1" Then" est que mon fichier fait que de se rafraichir a chaque modification des autres cellules du coup je suis obligée de re selectionner chaque fois la cellule que je souhaite modifier

Si quelqu'un peut m'aider merci d'avance!!

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target = 1 Then
Call Examen
ElseIf Target = 2 Then
Call NonExamen
End If
End If
End Sub

Cordialement

Amadéus a écrit :

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target = 1 Then
Call Examen
ElseIf Target = 2 Then
Call NonExamen
End If
End If
End Sub

Cordialement

Merci Amadeus pour ta réponse aussi rapide et répondant parfaitement à ma demande.

Juste une dernière chose pour ma culture personnelle

Si je souhaite que la cible déclenchant l'utilisation de la macro soit une ligne ou une colonne dois je écrire à la place de :

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

If Not Application.Intersect(Target, Range("A1:A48")) Is Nothing Then 'par exemple pour utiliser toute les cellules de la colonne A??

merci d'avance

Bonjour

La réponse est OUI

Cordialement