Macro: afficher onglet a partie d'une cellule
Thibaut77950
Messages postés
8
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je débute complètement dans la macro et je recherche à créer une macro bien spécifique
Mon problème est le suivant:
Je voudrais afficher et masquer différent onglet à partir de la valeur d'une cellule de ma feuille de saisie
Dans ma feuille de saisie que j’appelle pour le moment "Feuil1", j'ai créé un menu déroulant dans la cellule "A1"(on peut sélectionner UPS, REC, PFC)
Lorsque je sélectionne UPS, je voudrais que les Feuil2 et Feuil3 apparaissent.
Pouvez vous m'aider merci
Je débute complètement dans la macro et je recherche à créer une macro bien spécifique
Mon problème est le suivant:
Je voudrais afficher et masquer différent onglet à partir de la valeur d'une cellule de ma feuille de saisie
Dans ma feuille de saisie que j’appelle pour le moment "Feuil1", j'ai créé un menu déroulant dans la cellule "A1"(on peut sélectionner UPS, REC, PFC)
Lorsque je sélectionne UPS, je voudrais que les Feuil2 et Feuil3 apparaissent.
Pouvez vous m'aider merci
A voir également:
- Macro: afficher onglet a partie d'une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonjour,
Voir ceci:
https://forum.excel-pratique.com/viewtopic.php?t=1314
Se mettre sur la feuil1 et Faire Alt F11
mettre ce code à adapter dans le module:
voilà
Voir ceci:
https://forum.excel-pratique.com/viewtopic.php?t=1314
Se mettre sur la feuil1 et Faire Alt F11
mettre ce code à adapter dans le module:
Option Explicit
'https://forum.excel-pratique.com/viewtopic.php?t=1314
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target.Value
Case "UPS"
Sheets("Feuil2").Select
Case "REC"
Sheets("Feuil3").Select
Case "PFC"
Sheets("Feuil4").Select
End Select
End If
End Sub
voilà
Je viens d'enregistrer la macro et il se passe rien.
Lorsque je sélectionne UPS dans la cellule A1 de la Feuil1, la Feuil2 n'apparait pas.
De base les Feuil2, 3 etc sont masqués
Il faut d'abord la rendre visible, a mettre avant le select:
Sheets("Feuil2").Visible = Trueet pour la masquer:
Sheets("Feuil2").Visible = False'
' Essai Macro
' Essai ups
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target.Value
Case "UPS"
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Case "REC"
Sheets("Feuil3").Select
Case "PFC"
Sheets("Feuil4").Select
End Select
End If
End Sub
Aucun changement sur mon problème , il m'indique une erreur de macro
https://www.excel-pratique.com/fr/vba/introduction.php
qui t'as dit de mettre ceci!!!!
Dans ma 1ère réponse j'ai mis:
Se mettre sur la feuil1 et Faire Alt F11
mettre ce code à adapter dans le module:
C'est pas compliqué!!!!!!!!!!!!!!
quand je mets à adapter c'est le nom des feuilles mais pas la macro