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

Afficher les feuilles selon le contenu d'une cellule

Créer une discussion

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

chaelie2015

XLDnaute Accro
Bonjour Forum
je souhaite afficher les feuilles selon le contenu de la cellule H3
si la cellule H3 = N-2 donc afficher les onglets "N","N-1" et "N-2" seulement la feuille"N-3" restera masquée
et ainsi de suite.
ce code est tres lent
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Niveau N").Visible = False
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
If [H3] = "N" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-1" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-2" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = True
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-3" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = True
Sheets("Niveau N-3").Visible = True
Else

End If
End Sub

Salutations
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonjour essaie ça, 🙂
VB: 
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H3")) Is Nothing Then
Dim Ws As Worksheet


For Each Ws In Sheets
Ws.Visible = True
Next Ws

If Range("H3") = "N-2" Then
Sheets("Niveau N-3").Visible = False

ElseIf Range("H3") = "N-1" Then
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False


ElseIf Range("H3") = "N" Then
Sheets("Niveau N").Visible = False
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False


End If
End If
End Sub
 
Vote positif 0 Vote négatif
Bonsoir le fil, shinozak

[aparté]
Lu dans la section dédiée à l'utilisation du forum" à dit:
(mis à jour le 17/1/2020)
L'idée n'est pas de demander aux demandeurs de signaler systématiquement que le problème semble résolu, cela reste leur choix et ne doit pas devenir une contrainte.
Cliquez pour agrandir...
[/aparté]
 
Dernière édition:
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

Discussions similaires

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
211
sylvanu
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
239
job75
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
91
sylvanu
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
439
pat66
P
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
646
candido57
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
153
Electron24
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
271
TooFatBoy
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
597
vgendron
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
283
KTM
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
174
sylvanu
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
269
KRUG WOO
K
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
393
Nicolas JACQUIN
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
123
patricktoulon
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
251
Nico77
N
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
139
JUAN45
J
  • Résolu(e)
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
4 5 6
Réponses
76
Affichages
1 K
fanch55
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
689
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
329
thunder23
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
588
NONO14
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…