Bonjour a tous,

je pietine sur un code que je n'arrive pas a resoudre.

J'ai ce code de départ qui fonctionne en utilisant l'adresse de la cellule:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static cp As Range
If Not cp Is Nothing Then
If cp.Address = "$B$67" Then
MsgBox ("Commander") 
End If
Set cp = Target
End Sub
mais je voudrais le faire fonctionner en utlisant le nom de la cellule, j'ai donc essayer plusieurs chose du genre sans succes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Static cp As Range
Static cp As Range
If Not cp Is Nothing Then
If cp.Name = "Toto" Then 
MsgBox ("Commander")
End If
Set cp = Target
End Sub
Merci d'avance