Discussion :

[ippo_master]

Bonjour,

Malgré quelques recherches, je n'ai pas su trouver comment, via l'évènement SheetBeforeRightClick, connaître simplement la "nature" de Target, à savoir :

> identifier qu'une ligne est sélectionnée lorsque l'évènement se déclenche
> identifier qu'une colonne est sélectionnée lorsque l'évènement se déclenche

Je dis simplement parce que je commençais à me pencher sur le décryptage de Target.Address mais ça me paraît bien compliqué

Merci d'avance

[Jean-Philippe André]

Salut,

en partant sur un code comme ceci :

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Debug.Print Target.Columns.Count
Debug.Print Target.Rows.Count
Debug.Print Target.Count
End Sub

Tu peux determiner si tu as :
- une ligne entiere (16384,1,16384)
- une colonne entiere (1,1048576,1048576)

le reste etant une plage de cellules aleatoire => Target.Address =]

[ippo_master]

Merci

Voici ma solution retenue (on évite l'éventuelle limite de nombre de colonnes/lignes qui varie selon les versions d'Excel)

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
If Target.Address = Target.EntireRow.Address And Target.Rows.Count = 1 Then MsgBox "La ligne " & Target.Row & " est sélectionnée"
If Target.Address = Target.EntireColumn.Address And Target.Columns.Count = 1 Then MsgBox "La colonne " & Target.Column & " est sélectionnée"
 
End sub

[mercatog]

ou bien avec un seul test (pour la ligne)

Code :

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

If Target.Address = Target(1).EntireRow.Address Then MsgBox "La ligne " & Target.Row & " est sélectionnée"