Vérifier si une case est sélectionnée

Bonjour,

Je coince dans mon programme sur une ligne. Voici mon idée de programme mi-français mi-VBA :

If la cellule A2 est sélectionnée Then

Range("A2") = inputbox("question","titre")

End If

Je bloque sur la première ligne. Un grand merci à ceux qui m'aideront.

Bonjour,

Un exemple via Application.Intersect :

Sub SELECTION()
If Not Application.Intersect(ActiveCell, [A2]) Is Nothing Then MsgBox "La cellule A2 est active"
End Sub

Je vous laisse l'adapter selon vos besoins.

Cdlt,

J'ai déjà vu ce type de ligne Application.Intersect

Je viens de comprendre qu'il faut sélectionner la cellule, lancer la macro,...

N'y aurait-t-il pas un moyen de le faire sans macro ?

Cordialement

Bonjour,

Il est possible de l'imbriquer dans un évènement worksheet_selection change d'un classeur comme joint :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [A2]) Is Nothing Then MsgBox "La cellule A2 est active"
End Sub

Mais comme je ne connais pas le besoin final donc difficile de répondre exactement. Par contre sans VBA ce n'est pas possible vu que votre code, c'est du VBA.

Cdlt,

Ok merci beaucoup. je pense que je vais garder la première solution.

Vous m'avez débloqué 2 projets en cours.

Cordialement