VBA Tester la sélection d'une cellule

Bonsoir, ça fait une éternité que je recherche comment impliquer un code qui permet de tester si une cellule est sélectionnée ou non, si vous pouvez m'aider, je vous en serais reconnaissant.

Merci d'avance

Bonjour

Essaie celui-ci :

Sub esai()
    If Not Intersect(Selection, Range("A1")) Is Nothing Then
       MsgBox "La cellule A1 est sélectionnée", 16
    Else
        MsgBox "La cellule A1 n'est pas sélectionnée"
    End If
End Sub

Te convient-il ?

Bye !

Merci bien gmb, ceci marche parfaitement,

Aussi suis-je parvenu à trouver une autre façon

    If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
        MsgBox "La cellule A1 est sélectionnée"
    Else
        MsgBox "La cellule A1 n'est pas sélectionnée"
    End If

lamradnane a écrit :

Aussi suis-je parvenu à trouver une autre façon

Mais ta formule ne correspond pas à ta demande qui concernait une cellule sélectionnée et non pas une cellule active.

Si tu sélectionnes une plage de cellules, en commençant par A3 et en allant sur A1, la macro te dira que A1 n'est pas sélectionné.

Et pourtant si !

OK ?

Ah, je ne connaissais pas la différence entre cellule active et cellule sélectionnée, je suis assez novice dans ce domaine, je viens de commencer il y a 2 jours.

Merci d'avoir éclairé ma lanterne.