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

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Novembre 2019

• #2

Bonjour Arthour, bonjour le forum,

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2019

• #3

Bonjour Robert,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2019

• #4

Bonjour Lionel, Robert,

arthour973 à dit:

.... et ça marche nickel,

Cliquez pour agrandir...

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

VB:

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Novembre 2019

• #5

Bonsoir le fil, arthour, Robert

Une autre syntaxe

VB:

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Novembre 2019

• #6

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2019

• #7

Bonsoir Gérard, JM,

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2019

• #8

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2019

• #9

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 :

VB:

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Novembre 2019

• #10

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Novembre 2019

• #11

Re

Juste histoire de ...

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Novembre 2019

• #13

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

 

Vote positif 0 Vote négatif