Macro: afficher onglet a partie d'une cellule

Fermé

Thibaut77950 Messages postés 8 Date d'inscription mercredi 17 octobre 2018 Statut Membre Dernière intervention 17 octobre 2018 - 17 oct. 2018 à 15:22
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 oct. 2018 à 22:44

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

A voir également:

Macro: afficher onglet a partie d'une cellule
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 oct. 2018 à 15:56

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à

Thibaut77950 Messages postés 8 Date d'inscription mercredi 17 octobre 2018 Statut Membre Dernière intervention 17 octobre 2018
17 oct. 2018 à 16:10

Bonjour le pivert,

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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 oct. 2018 à 16:32

On ne nous dit pas tout!!!!!!!!!!!!!!!!!!

Il faut d'abord la rendre visible, a mettre avant le select:

 Sheets("Feuil2").Visible = True

et pour la masquer:

 Sheets("Feuil2").Visible = False

Thibaut77950 Messages postés 8 Date d'inscription mercredi 17 octobre 2018 Statut Membre Dernière intervention 17 octobre 2018
17 oct. 2018 à 16:43

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

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 17 oct. 2018 à 16:55

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

Thibaut77950 Messages postés 8 Date d'inscription mercredi 17 octobre 2018 Statut Membre Dernière intervention 17 octobre 2018
17 oct. 2018 à 16:55

J'ai bien compris, Essai Macro Essai ups correspond simplement au commentaire que j'ai mis

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters