COmpter le nombre de feuilles sélectionnées

Bonjour à tous,

Certains de mes collègues ne vérifie pas si leurs documents sont en mode "Groupe de travail".

Je cherche à leur indiquer avec un message lors de l'ouverture du fichier ou durant leur travail.

dans le style (je sais que ce n'est pas la bonne formulation, ce n'est que l'idée

S'il y a plus d'une feuilles sélectionnées

Then

MsgBox "Vous êtes en mode groupe de travail, Est-ce vraiment ce que vous souhaitez"

ou

Si le fichier est en mode groupe de travail

Then

MsgBox "Vous êtes en mode groupe de travail, Est-ce vraiment ce que vous souhaitez"

J'ai trouvé des macros que me permettraient de compter les onglets masqués, les onglets affichés, les onglets débutant par "2", les onglets se terminant par "patate" mais rien sur les onglets sélectionnés.

Merci bien.

Bonsoir,

If Windows(1).SelectedSheets.Count > 1 Then
        ...
End If

Merci beaucoup,

C'est exactement cela.

voici le résultat final.

Sub Vérifier_groupe_Travail()

'Vérifie qu'une seule feuille est sélectionnée

If ActiveWindow.SelectedSheets.count > 1 Then

MsgBox "Vous êtes en mode groupe de travail, Est-ce vraiment ce que vous souhaitez"

End If

End Sub

Private Sub Workbook_Open()
    If ActiveWindow.SelectedSheets.Count > 1 Then
        If MsgBox("Vous êtes en mode groupe de travail, Est-ce vraiment ce que vous souhaitez ?", vbYesNo, "Avertissement") = vbNo Then
            ActiveSheet.Select
        End If
    End If
End Sub