Discussion :

[J H L]

Bonjour à tous,
Je cherche à réaliser une macro qui testerait le nombre de feuilles sélectionnées dans un classeur dès que l'évènement clic droit survient. Puis si il y a plus d'une feuille sélectionnées envoyer un message d'alerte.
Ci dessous le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim msg As String, x As Long
 
    Cancel = True
 
    x = ActiveCell
 
    nbsh = sh.Count
 
    If nbsh > 1 Then
    msg = "Attention plusieurs feuilles sont sélectionnées"
    MsgBox msg
End Sub

Merci de votre aide. JHL

[gFZT82]

Bonjour,

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 Windows(1).SelectedSheets.Count > 1 Then
        Cancel = True
        MsgBox "Attention plusieurs feuilles sont sélectionnées"
    End If
End Sub

Cordialement.

[J H L]

Tout d'abord, merci de votre aide.
J'ai saisis le code dans "thisworkbook" mais je ne parviens pas à le faire fonctionner. Lorsque je séléctionne plusieurs feuille dans mon classeur et que je fais un clic droit dans une de ces feuille, rien ne se passe.
Si vous avez une idée de ce" qui bloque.

Afin que vous puissiez ou mon raisonnement ne fonctionne pas, j'ai ajouter des commentaires au code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Dans un classeur ouvert, lorsqu'un clic droit survient dans une feuille de calcul'
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
'Si le nombre de feuilles selectionnées dans la fenêtre active est supérieur à 1 alors
    If Windows(1).SelectedSheets.Count > 1 Then
 
 'La j'ai du mal à expliquer clairement le code'
        Cancel = True
 
  'Lorsque les conditions précedentes sont remplies afficher une boite de dialogue avec le texte " "'
        MsgBox "Attention plusieurs feuilles sont sélectionnées"
    End If
End Sub

[gFZT82]

De mon coté, ça fonctionne.
Fais le test avec le fichier joint.

Cordialement.

[J H L]

OK cela fonctionne faute de frappe de mon côté merci encore.
Je coche la discussion comme résolu.