Masque feuilles selon la valeur d'une cellule
Résolu/Fermé
Barbadouste
Messages postés
4
Date d'inscription
jeudi 23 août 2018
Statut
Membre
Dernière intervention
23 août 2018
-
23 août 2018 à 11:41
Barbadouste Messages postés 4 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 23 août 2018 - 23 août 2018 à 15:40
Barbadouste Messages postés 4 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 23 août 2018 - 23 août 2018 à 15:40
A voir également:
- Masque feuilles selon la valeur d'une cellule
- Appel masqué - Guide
- Aller à la ligne dans une cellule excel - Guide
- Masque apple - Guide
- Excel renvoyer la valeur d'une cellule en fonction d'une autre ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 23 août 2018 à 14:53
Modifié le 23 août 2018 à 14:53
Bonjour,
en vba faire AltF11 pour accéder à l'éditeur.
ensuite cliquez dans la feuille synthèse en haut à gauche et mettre ce code :
se déclenche au double clic en A1 de la feuille Synthèse
ensuite enregistrer sous: classeur Excel prenant en charge les macros
Voilà c'est tout simple!
en vba faire AltF11 pour accéder à l'éditeur.
ensuite cliquez dans la feuille synthèse en haut à gauche et mettre ce code :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'cellule à adapter
'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 = "Synthèse" Then 'il faut garder une feuille visible a adapter au nom de la feuille
Else
If Sheets(Ws.Name).Range("A1") = 0 Then 'cellule à adapter
Sheets(Ws.Name).Visible = False
Else
Sheets(Ws.Name).Visible = True
End If
End If
Next Ws
End If
End Sub
se déclenche au double clic en A1 de la feuille Synthèse
ensuite enregistrer sous: classeur Excel prenant en charge les macros
Voilà c'est tout simple!
23 août 2018 à 14:57
Oui comme ça, ça parait simple :-)
Bonne journée
23 août 2018 à 15:26
Je ne peux pas mettre plusieurs boucles à la suite?
Merci
23 août 2018 à 15:40
Désolé pour le précèdent message.