Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Test de présence de feuille visible

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion trankill076
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

trankill076

Guest
Bonjour,

Presque toute la question est dans le titre: je cherche un moyen de tester si dans la fenêtre Excel ouverte (peut importe le nom et le nombre de classeurs) il se trouve au moins une feuille visible.
Les feuilles ouvertes cachées ne sont pas prises en compte.

Merci à vous
 
Trier par date Trier par votes
Re : Test de présence de feuille visible

Bonjour Trankill, bonjour le forum,

Le code ci-dessous affiche un message t'indiquant le nom du classeur et le nom de l'onglet de ce classeur si il est visible. Comme tu n'as pas précisé le type de test... Peut-être ça pourra t'aider.
Le code :
Code: 
Sub Macro1()
Dim i As Byte 'déclare la variable i (incrément)
Dim cl As Workbook 'déclare la variable cl (CLasseur)
Dim o As Worksheet 'déclare la variable o (Onglet)

For i = 1 To Workbooks.Count 'boucle 1 : de 1 au nombre de classeurs ouverts
    Set cl = Workbooks(i) 'définit le classeur cl
    For Each o In cl.Sheets 'boucle 2 : sur tous les onglet du classeur cl
        'si l'onglet est visible affiche un message
        If o.Visible = True Then MsgBox "Classeur : " & cl.Name & Chr(13) & "Onglet : " & o.Name & " visible."
    Next o 'prochain onglet de la boucle 2
Next i 'prochain classeur ouvert de la boucle 1
End Sub
 
Vote positif 0 Vote négatif
Re : Test de présence de feuille visible

@Robert: Je vient de tester

Le code détecte bien toutes les valeur .Visible des feuilles, le problème est que les feuilles contenues dans les fichiers XLSB ouvert automatiquement avec excel en mode caché (j'en ai deux, PERSONAL.XLSB et SCOPE.XLSB) ont tous deux une feuille dont l'attribut .Visible est "True" et qui pourtant ne sont pas affichée

Prévient moi si je m'explique mal
 
Vote positif 0 Vote négatif
Re : Test de présence de feuille visible

Bonjour Trankill, bonjour le forum,

Oui le menu Fenêtre permet de masquer ou d'afficher des classeurs. Si tu veux omettres les classeurs masqués :
Code: 
Sub Macro1()
Dim i As Byte 'déclare la variable i (incrément)
Dim cl As Workbook 'déclare la variable cl (CLasseur)
Dim o As Worksheet 'déclare la variable o (Onglet)

For i = 1 To Workbooks.Count 'boucle 1 : de 1 au nombre de classeurs ouverts
    Set cl = Workbooks(i) 'définit le classeur cl
    If cl.Name = "PERSONAL.XLSB" Or cl.Name = "SCOPE.XLSB" Then GoTo suite 'si le nom du classeur est "PERSONAL.XLSB" ou "SCOPE.XLSB", va à l'étiquette "suite"
    For Each o In cl.Sheets 'boucle 2 : sur tous les onglet du classeur cl
        'si l'onglet est visible affiche un message
        If o.Visible = True Then MsgBox "Classeur : " & cl.Name & Chr(13) & "Onglet : " & o.Name & " visible."
    Next o 'prochain onglet de la boucle 2
suite: 'étiquette
Next i 'prochain classeur ouvert de la boucle 1
End Sub
 
Vote positif 0 Vote négatif
Re : Test de présence de feuille visible

Re-Bonjour

Ça à fonctionné à la perfection
J'ai remplacé la condition "If cl.Name = "PERSONAL.XLSB" Or cl.Name = "SCOPE.XLSB" Then GoTo suite"
par "If cl.Name Like "*.XLSB" Then GoTo suite" pour exclure tout fichier .XLSB

Merci beaucoup, j'y aurais jamais pensé seul ^_^
 
Vote positif 0 Vote négatif
Re : Test de présence de feuille visible

Par contre j'ai eu la mauvaise idée de placer ce code dans le WorkBook.Open d'un fichier XLSB, ce qui fait que les autres classeurs n'ont pas le temps de s'ouvrir que le code à déjà considéré qu'aucune feuille n'étais visible, même s'il y en à une qui est en train d'être ouverte

J'ai essayé de mettre la macro en pause avec Wait mais c'est Excel dans son ensemble qui se met en pause, sans finir d'ouvrir ses classeurs

Je continue de chercher, si vous avez une idée n'hésitez pas
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
249
Didierpasdoué
D
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
438
gbinforme
G
N
  • Question Question
XL 2021 Gestion des conger sur multiple feuille de presence
Réponses
4
Affichages
500
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
682
Phil69970
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
340
fanch55
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
W
  • Question Question
XL 2019 Récupérer le nom d'une feuille où se trouve une valeur précise
Réponses
5
Affichages
716
Winnylourson
W
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
652
Faroyo
F
C
  • Résolu(e)
XL 2016 Objets Excel de type feuille dupliqués en x exemplaires suite à plantage
Réponses
6
Affichages
590
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
POWERQUERY :: Combinaison de tableaux structurés Excel pouvant être issus de répertoires différents avec des noms de tableaux structurés différents
Réponses
0
Affichages
300
oguruma
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
851
Lu76Fer
B
  • Question Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
731
kiki29
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
626
Eric 888
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…