Microsoft 365 exécution code si sélection d'une ligne entière

[Usine à gaz]

Bonjour à toutes et à tous,

Me voilà devant un nouveau be"soin que je ne parviens pas à résoudre.
Pourtant, je pense que ce n'est pas bien compliqué mais je n'y arrive pas malgré mes recherches et essais.

Si solution, ça m'arrangerait bien 🙂

Je voudrais, si clic sur le n° d'une ligne (n'importe laquelle) - donc sélection d'une ligne entière,
que dans la cellule colonne A de cette ligne apparaisse la mention "OK"

Mais uniquement si sélection d'une ligne entière
Pas si clic dans une cellule ou sélection plusieurs cellules

Je joins un petit fichier test.
Avec mes remerciements
Je vous souhaite à toutes et à tous une belle fin de journée,
Amicalement,
Lionel

 

[Robert]

Bonjour Arthour, bonjour le forum,

Essaie comme ça (à placer dans l'onglet concerné) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = Application.Columns.Count Then Cells(Target.Row, "A").Value = "OK"
End Sub

 

[Usine à gaz]

Bonjour Robert,

Merci pour m'avoir répondu .... et ça marche nickel,
Un grand merci à toi 🙂
Bonne fin de journée,
lionel,

 

[job75]

Bonjour Lionel, Robert,

.... et ça marche nickel,

Ah oui ? Alors sélectionne la plage A1:A16384 pour voir ! Il vaut mieux :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = Columns.Count Then Target(1) = "OK"
End Sub

A+

 

[Staple1600]

Bonsoir le fil, arthour, Robert

Une autre syntaxe

Private Sub Worksheet_SelectionChange(ByVal T As Range)
T(1) = IIf(T.EntireRow.Address = Selection.Address, "OK", vbNullString)
End Sub

EDITION: Bonsoir job75 (je n'avais pas rafraîchi la page)

 

[Staple1600]

Re

Du coup, en prenant en compte la réponse de Job75

Private Sub Worksheet_SelectionChange(ByVal T As Range)
T(1) = IIf((T.EntireRow.Address = Selection.Address) And T.Rows.Count = 1, "OK", vbNullString)
End Sub

 

[Usine à gaz]

Bonsoir Gérard, JM,

Un grand MERCI à vous pour vos observations et codes.
Amicalement,
lionel,

 

[Usine à gaz]

LOL, effectivement ça beug si je sélectionne toute la feuille.
Mais je n'ai à sélectionner qu'une seule ligne à la fois 🙂
Mais je garde tous les codes c'est génial car un jour ....... quand je serai encore plus vieux et que j'aurai plus de temps,
j'essaierai de faire un fichier recueil de codes.
Un jour LOL ......
lionel,

 

[job75]

Bonsoir JM,

L'effacement que tu proposes sur T(1) ne va pas : la sélection d'une cellule l'efface...

Si l'on veut effacer le "OK" précédent :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = Columns.Count Then [A:A].Replace "OK", "", xlWhole: Target(1) = "OK"
End Sub

A+

 

[Staple1600]

Re

job75
C'était volontaire 😉
Je voulais voir la réaction d'arthour
(Si pas de réaction, c'est qu'il n'a pas testé mon bout de code)

PS: Personnellement, j'ai du mal à voir l’intérêt de la chose (au niveau ergonomie d'utilisation du classeur)

 

[Staple1600]

Re

Juste histoire de ...

Private Sub Worksheet_SelectionChange(ByVal T As Range)
T(1) = Application.Rept("OK", (T.EntireRow.Address = Selection.Address) And T.Rows.Count = 1)
End Sub

 

[Usine à gaz]

Re Gérard, JM,

J'avais testé vos codes cependant, pôur celui de JM, dans mon fichier test, pas besoin d'effacer le Ok
🙂

 

[Robert]

Pauvre drosophile ! c'est de la sodomie de groupe...