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