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
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:
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à
-
-
-
Sub Essai()
'
' 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 -
Il faut apprendre les bases!!!!!!!!!!!
https://www.excel-pratique.com/fr/vba/introduction.php
qui t'as dit de mettre ceci!!!!
Sub Essai() ' ' Essai Macro ' Essai ups '
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 -
-
