XL 2016 Modifier tableau suivant liste déroulante

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

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 !

Peychris

XLDnaute Nouveau
Bonjour à tous les membres, après avoir eu une première aide par rapport à la rédaction d'une macro pour ce même fichier (PJ.) et voulant l'améliorer; voici ma question:
Est il possible à partir d'une liste déroulante de modifier la présentation d'un tableau?
c'est à dire ne laisser apparaitre dans mon tableau "General" que la même lettre que la liste déroulante.
Ex: si je choisi dans ma liste la lettre "B"; je veux voir uniquement les cellules contenant cette lettre dans ce tableau.
Est ce que cela aura une incidence avec la macro "colorer" dans cette feuille
Merci pour votre aide
 

Pièces jointes

Bonjour à tous les membres, après avoir eu une première aide par rapport à la rédaction d'une macro pour ce même fichier (PJ.) et voulant l'améliorer; voici ma question:
Est il possible à partir d'une liste déroulante de modifier la présentation d'un tableau?
c'est à dire ne laisser apparaitre dans mon tableau "General" que la même lettre que la liste déroulante.
Ex: si je choisi dans ma liste la lettre "B"; je veux voir uniquement les cellules contenant cette lettre dans ce tableau.
Est ce que cela aura une incidence avec la macro "colorer" dans cette feuille
Merci pour votre aide
Bonjour,
Une proposition avec ce code dans la feuille "General"
La liste déroulante est déplacée pour rester visible
VB:
Private Sub Worksheet_change(ByVal Target As Range)
    If Target.Address <> "$B$23" Then Exit Sub
    Application.ScreenUpdating = False
    Columns.Hidden = False
    If Target = "" Then Exit Sub
    Application.EnableEvents = False
    [c50:au50].FormulaLocal = "=EQUIV($B$23;C3:C20;0)"
    Range("C50:AU50").SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Hidden = True
    Rows(50).Delete
    Application.EnableEvents = True
End Sub

Une version V2 avec:
-Plage nommée "Prof" pour les profs
-Suppression des boutons devenus inutiles
-Suppression du vba pour le peinturlurage
-Mise en forme conditionnelle pour les couleurs
-Liste déroulante pour la sélection des profs dans le tableau

A voir 🙂
 

Pièces jointes

Dernière édition:
Merci beaucoup Jacky pour votre aide. Les 2 versions sont très bien.
Par contre si 2 lettres sont dans la même colonne (1 pers bosse le matin et l'autre l'après midi dans la même salle) , je n'ai plus ce que j'avais demandé; c'est à dire voir uniquement l'emploi du temps de la personne représentée par sa lettre.

J'espère que la solution est possible.
 
Par contre si 2 lettres sont dans la même colonne (1 pers bosse le matin et l'autre l'après midi dans la même salle) , je n'ai plus ce que j'avais demandé; c'est à dire voir uniquement l'emploi du temps de la personne représentée par sa lettre.

J'espère que la solution est possible.
RE..
Alors en laissant à l'identique et seulement ce qui est demandé
ou alors avec une feuille supplémentaire comme en V3

**Suppression code inutile en V3
 

Pièces jointes

Dernière édition:
- 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

  • Question Question
Microsoft 365 Tableau
Réponses
24
Affichages
1 K
Retour