VBA langage
Fermé
mdp
-
19 sept. 2018 à 21:54
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 22 sept. 2018 à 08:09
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 22 sept. 2018 à 08:09
A voir également:
- VBA langage
- Langage ascii - Guide
- Langage binaire - Guide
- Pascal langage - Télécharger - Édition & Programmation
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
19 sept. 2018 à 22:45
19 sept. 2018 à 22:45
Bonjour,
C'est très simple, il suffit d'afficher la feuille en début de macro et de masquer en fin de macro.
Se servir de l'enregistreur de macro pour avoir le code
voilà
C'est très simple, il suffit d'afficher la feuille en début de macro et de masquer en fin de macro.
Se servir de l'enregistreur de macro pour avoir le code
voilà
"C'est très simple, il suffit d'afficher la feuille en début de macro et de masquer en fin de macro".
J'ai essayé, ça ne fonctionne pas....
Dois-je oublier quelque chose ?
J'ai essayé, ça ne fonctionne pas....
Dois-je oublier quelque chose ?
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
21 sept. 2018 à 22:16
21 sept. 2018 à 22:16
Dans un classeur excel,j'ai mes macros qui ne fonctionnent plus lorsque je masque les onglets
c'est à faire pour chaque macro et pour chaque feuille
sans voir le code, difficile de te répondre!
@+
c'est à faire pour chaque macro et pour chaque feuille
sans voir le code, difficile de te répondre!
@+
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
22 sept. 2018 à 08:09
22 sept. 2018 à 08:09
Essaie ceci:
voilà
@+
Dim k As Integer 'mettre cela pour rendre les feuilles visibles For k = 1 To Sheets.Count Sheets(k).Visible = True Next End If 'et cela pour toutes les cacher sauf une For k = 1 To Sheets.Count If Sheets(k).CodeName <> "Feuil1" Then 'adapter le nom de la feuille visible Sheets(k).Visible = xlSheetVeryHidden 'feuilles cachées même par clic droit End If Next
voilà
@+