Macros caher les feuills à la fermetur du classeur
Résolu
Aloubedi
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
Aloubedi Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
Aloubedi Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macros caher les feuills à la fermetur du classeur
- Forcer la fermeture d'un programme - Guide
- Étiquette classeur a imprimer gratuit excel - Forum Excel
- Imprimer un classeur excel sur mac - Guide
- Copier une feuille excel dans un autre classeur avec liaison ✓ - Forum Excel
- Verrouiller cellule excel sans verrouiller la feuille - Guide
1 réponse
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à
MERCI bcp cs_Le Pivert, c'est la solution à mon problème. Encore MERCI