Discussion :

[zoumzoum59]

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

[unparia]

Bonjour

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = Range("toto").Address Then MsgBox "coucou"
End Sub

[Marc-L]

Bonjour,

autre voie possible via la méthode   Intersect   …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[zoumzoum59]

Merci unparia pour ta reponse,

Mais ce n'est pas en cliquant dans la cellule que je veux que mon message s'affiche mais en quittant la cellule.

Quand a intersect, merci Marc-L, je vais faire des recherchespour voir si ça peut convenir.

[unparia]

Mais ce n'est pas en cliquant dans la cellule que je veux que mon message s'affiche mais en quittant la cellule.

Et tu as pourtant montré un code utilisant l'évènement selectionchange ... (qui correspond au clic sur la cellule) et dont tu disais que tu savais le faire en donnant l'adresse de la cellule, mais que tu ne savais pas le faire en donnant le nom d'une cellule nommée !
J'ai donc corrigé ton code.
Qu'en est-il donc finalement ? en cliquant ou en quittant ?
Et dans quel but exact ?

[zoumzoum59]

Bonjour,

Oui en quittant, c'est ce que le premier code faisait mais avec l'adresse de la cellule.
Le but est d'afficher le message qui va reprendre les données de la cellule modifié.

J'ai changé de type d'événement et gardé ton code unparia, du coup ça a l'air de mieux correspondre a ce que je recherche, voici le code:

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address = Range("toto").Address Then MsgBox "coucou"
 
 
End Sub

Merci