COmpter le nombre de feuilles sélectionnées Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
spage
Membre habitué
Membre habitué
Messages : 89
Appréciations reçues : 2
Inscrit le : 3 février 2014
Version d'Excel : 2010

Message par spage » 19 avril 2019, 21:15

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.
Avatar du membre
oyobrans
Membre impliqué
Membre impliqué
Messages : 1'042
Appréciations reçues : 17
Inscrit le : 27 septembre 2013
Version d'Excel : 2016

Message par oyobrans » 19 avril 2019, 21:37

Bonsoir,
If Windows(1).SelectedSheets.Count > 1 Then
        ...
End If
Cordialement.

Aide-toi et le ciel t'aidera.
[ GIF animé de Dave Whyte ]
Avatar du membre
spage
Membre habitué
Membre habitué
Messages : 89
Appréciations reçues : 2
Inscrit le : 3 février 2014
Version d'Excel : 2010

Message par spage » 19 avril 2019, 21:49

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
Avatar du membre
oyobrans
Membre impliqué
Membre impliqué
Messages : 1'042
Appréciations reçues : 17
Inscrit le : 27 septembre 2013
Version d'Excel : 2016

Message par oyobrans » 20 avril 2019, 13:41

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
Cordialement.

Aide-toi et le ciel t'aidera.
[ GIF animé de Dave Whyte ]
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message