Discussion :

[jnauche]

Bonjour,

Je teste le bout de code de cette discussion avec office 2007 et malheureusement il ne se passe rien au changement de valeur.
J'ai créé simplement cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub testjna(ByVal Target As Range)
    If Target.Address = "$B$2" Then
    MsgBox "oups"
    End If
End Sub

Il ne se passe rien quand je change la valeur de la cellule B2.
Faut il préciser le nom de l'onglet ou quelque chose d'autre?

Merci

[casefayere]

Il ne se passe rien quand je change la valeur de la cellule B2.
Faut il préciser le nom de l'onglet ou quelque chose d'autre?

Relis les réponses de Pierre, tu commences ton code par cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sub testjna(ByVal Target As Range)
.....

or il faut regarder du coté de l'évènement "Change", Pierre l'écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address="$A$1" Then
    ...
    End If
End Sub

que je traduirais, dans ton cas, :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
    MsgBox "oups"
    End If
End Sub