Macros caher les feuills à la fermetur du classeur
Résolu/Fermé
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
-
13 août 2018 à 00:59
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018 - 13 août 2018 à 16:49
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018 - 13 août 2018 à 16:49
A voir également:
- Macros caher les feuills à la fermetur du classeur
- Macros word - Guide
- Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros ✓ - Forum Excel
- Forcer la fermeture d'un programme - Guide
- Feuille diddl la plus rare ✓ - Forum Graphisme
- En mode navigation , ces informations sont supprimées à la fermeture du navigateur. - Forum Google Chrome
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
13 août 2018 à 08:26
13 août 2018 à 08:26
Bonjour,
voir ce site pour boucler sur toutes les feuilles
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
a mettre dans ThisWorkbook 2 manières de procéder au choix
Voilà
voir ce site pour boucler sur toutes les feuilles
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
a mettre dans ThisWorkbook 2 manières de procéder au choix
Option Explicit ' a la fermeture Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub 'a l'ouverture Private Sub Workbook_Open() End Sub
'Déclare la variable objet Worksheet Dim Ws As Worksheet 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 'en compte. 'ThisWorkbook correspond à l'objet classeur contenant la macro For Each Ws In ThisWorkbook.Worksheets If Ws.Name = "Feuil1" Then 'il faut garder une feuille visible a adapter au nom de la feuille Else Sheets(Ws.Name).Visible = False = Sheets(Ws.Name).Visible = True End If Next Ws
Voilà
13 août 2018 à 16:49
MERCI bcp cs_Le Pivert, c'est la solution à mon problème. Encore MERCI