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

Microsoft 365 Faire apparaître / cacher plusieurs onglets en fonction du résultat d'une formule

  • Initiateur de la discussion Initiateur de la discussion Lisette
  • Date de début Date de début

Lisette

XLDnaute Junior
Bonjour à tous !

Je bloque sur un problème car je ne connais pas assez le VBA... J'aurais bien besoin de votre aide

DESCRIPTION
Je vous ai joint un petit fichier d'exemple qui est à la base un plan d'actions.
Je renseigne des onglets nommés 1, 2, 3... ce sont mes fiches actions.
dans un autre onglet, je renseigne qui est concerné par mes actions (Tata, Tutu, Toto...) qui peuvent avoir plusieurs fiches actions.

Dans mon onglet "accueil" je demande à l'utilisateur de renseigner son matricule et ce faisant, on affiche la liste des fiches actions qui le concernent.

Jusque là : tout va bien

PROBLEMATIQUE
Je souhaiterais :
1 - qu'à l'ouverture du fichier, tous les onglets des fiches actions soient cachés (bon ça avec auto_open, je vais m'en sortir)
2 - que lorsque la personne obtient les actions qui la concerne, les onglets correspondants soient visibles et eux uniquement.
- Quand Tata tape son code, il sait qu'il a les actions 1-2-3 qui le concernent et les onglets 1, 2 et 3 s'affichent.

Pourriez-vous m'aider s'il vous plaît ?
Petite précision : mon fichier de base a une cinquantaine de fiches actions, alors j'ai peur que ça rame un peu. Qu'en pensez-vous ?

Très bonne journée, j'espère avoir été claire
Cordialement
Lisette
 

Pièces jointes

  • Fichier exemple.xlsm
    65.7 KB · Affichages: 8
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Bonsoir Lisette

Si tout le monde pouvait être aussi clair et précis que vous.. ce serait un bonheur

Voici le fichier exemple avec du code dans ThisWorkBook, La feuille "Listes" et un module

Je ne pense pas que cela "rame" réellement sur une cinquantaine de feuilles

A tester

Edit : fichier modifié 08/02 10:29
 

Pièces jointes

  • Lisette_FichesAction.xlsm
    69.9 KB · Affichages: 4
Dernière modification par un modérateur:
Vote positif 0 Vote négatif

Lisette

XLDnaute Junior
Bonjour Bruno !!
Merci beaucoup pour ta réponse et tes codes (le veryhidden m'a un peu perturbée je cherchais mes onglets lol)

Par contre, j'ai un petit souci à l'exécution, quand les fiches 1 et 3 doivent apparaître, ce sont les onglets 2 et 3 qui s'affichent Est-ce que cela fonctionne chez toi ?


Merci encore
Lisette
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Bonjour Lisette

Une petite étourderie de ma part, je n'ai pas enlevé la ligne d'entête, désolé
Après le
VB: 
For Col = 4 To dCol
Il faut changer la ligne par
VB: 
sFeuil = LstObj.DataBodyRange.Cells(Cel.Row - 1, Col)
A+
 
Vote positif 0 Vote négatif

Lisette

XLDnaute Junior
Encore moi
Encore un petit souci (désolée vraiment)

Ce qui se passe :

Si une personne a 1-3 : 1 et 3 s'affichent
Après on prend une personne qui a 1-2-3, ça affiche bien 1-2-3
Par contre, si on change juste après et qu'on a une personne avec 1-2, le 3 reste en visible.

A+ !
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re,

Petit rappel de votre problématique
PROBLEMATIQUE
Je souhaiterais :
1 - qu'à l'ouverture du fichier, tous les onglets des fiches actions soient cachés (bon ça avec auto_open, je vais m'en sortir)
2 - que lorsque la personne obtient les actions qui la concerne, les onglets correspondants soient visibles et eux uniquement.
- Quand Tata tape son code, il sait qu'il a les actions 1-2-3 qui le concernent et les onglets 1, 2 et 3 s'affichent.

C'est donc ce que j'ai fait, ou alors vous n'avez pas été assez explicite
Je n'irai pas plus loin.. au prix ou je suis payé

Bonne continuation
 
Vote positif 0 Vote négatif

Lisette

XLDnaute Junior
Effectivement, je n'ai pas précisé que lorsqu'on rentre un autre code, les bons onglets doivent s'afficher et pas uniquement quand on tape le premier code.
Pour moi c'était sous-entendu mais vous n'êtes pas dans ma tête Au temps pour moi.

Du coup, j'ai adapté le code, quand on change le numéro, je réinitialise comme à l'ouverture du fichier.
VB: 
  Dim Sht As Worksheet
  For Each Sht In ThisWorkbook.Worksheets
    If Sht.Name <> "ACCUEIL" Then
      Sht.Visible = xlSheetVeryHidden
    End If
  Next Sht

Merci encore beaucoup pour votre aide.
Lisette
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
568
Lisette
C
  • Question Question
Microsoft 365 Créer un synthèse de plusieurs onglets
Réponses
7
Affichages
454
cdric78
C
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
528
MBax
  • Question Question
XL 2021 Dupliquer un tableau sur différents onglets pour un mois donné
Réponses
2
Affichages
529
Jelose
E
  • Question Question
Microsoft 365 Afficher onglets quand toutes les questions sont répondues
2
Réponses
20
Affichages
1 K
Erakmur
E
C
  • Question Question
XL pour MAC Remplir une case en fonction d'une autre
Réponses
3
Affichages
361
sylvanu
C
  • Question Question
XL 2016 Automatiser et synthétiser les informations d'un tableau Excel d'un onglet 1 vers des onglets 2 et 3
Réponses
14
Affichages
309
chris63
C
E
  • Question Question
XL 2016 aide tableau acompte
Réponses
5
Affichages
255
chris
B
  • Question Question
Microsoft 365 compiler onglets excel avec VBA
Réponses
6
Affichages
620
Boubie
B
U
  • Question Question
XL 2010 Power Query import donnée due plusieurs fichiers dans un seul
Réponses
3
Affichages
778
Utilisateur Excel 123
U
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
503
Phil69970
V
  • Question Question
XL 2021 avoir des données dans plusieurs onglets en fonction de plusieurs conditions
Réponses
5
Affichages
548
mapomme
G
  • Résolu(e)
Microsoft 365 Je dois chercher sur 2 onglets excel le prénom et nom de famille en mettant une formuel
Réponses
2
Affichages
316
job75
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
455
steph_29120
S
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
228
aeca
A
S
  • Résolu(e)
Microsoft 365 vba, récupérer le résultat d'un INDEX(EQUIV en fonction du résultat
Réponses
6
Affichages
444
SOP
S
B
  • Question Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
413
oguruma
S
  • Question Question
XL 2010 Saisir un nom en fonction du choix de deux menu déroulant.
Réponses
4
Affichages
410
Sirberthoult
S
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
691
Laliepomm
L
P
  • Question Question
XL 2016 Mise en place d'une étude hebdomadaire des remarques 5S - Bascule d'information entre 3 fichiers
Réponses
10
Affichages
1 K
gbinforme
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…