Discussion :

[jnauche]

Bonjour,

Je teste ce bout de code 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
Private Sub Worksheet_Change(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

[Philippe Tulliez]

Bonjour,
La procédure événementielle que tu utilises doit être placée dans le module de la feuille où tu souhaites intercepter l'événement.
Imaginons que ce sit la feuille nommé Feuil1
Dans l'explorateur de projets (Ctrl+R), sélectionne la feuille en question et sélectionne WorkSheet dans la liste se trouvant à gauche de la fenêtre de code.
et place ton code. La liste se trouvant à droite donne la liste de toutes les procédures événementielles de cet objet.
Si tu souhaites que le code réagisse sur toutes feuilles de ton classeur, tu dois placer ton code dans l'objet ThisWorkbook

Code :

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

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

Autre possibilité. Tu souhaites que la procédure réagisse sur toutes les feuilles à l'exception de la feuille nommée Feuil3

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name <> "Feuil3" Then
    If Target.Address = "$B$2" Then
     MsgBox "oups"
    End If
  End If
End Sub

Ou encore

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name <> "Feuil3" And Target.Address = "$B$2" Then
     MsgBox "oups"
  End If
End Sub