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

Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants

Créer une discussion

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 !

S'inscrire
A

Altfkat

XLDnaute Nouveau
Bonjour,

Je suis novice en VBA et je me suis lancé dans un projet ayant pour but de classer des informations, puis de les afficher sur une feuille selon les critères sélectionnés.
Ces critères sont indiqués grâce à deux listes déroulantes situées en C18 et E18 de la feuille "Consultation REX".
Selon les critères sélectionnés, le but est d'afficher uniquement les lignes enregistrées sur la feuille "Bibliothèque" donc le texte en colonne C et D correspond aux "filtres" de mes listes déroulantes.

En définitive, l'idée est d'afficher un message si quand on sélectionne un filtre, aucune donnée ne correspond dans le tableau bibliothèque, et sinon d'afficher les lignes dont les données correspondent.

J'avais essayé un premier programme qui fonctionnait pour l'affichage selon un seul filtre mais je n'ai pas réussi à le faire fonctionner pour deux. Après modification, je n'arrive toujours pas à faire fonctionner mon fichier.

Pouvez-vous m'éclairer sur la marche à suivre ? Etant novice, j'ai surement glissé une erreur évidente mais je n'arrive plus à m'y retrouver à force de tourner en rond sur mon code.

J'ai joint mon fichier pour que vous puissiez situer plus facilement les informations dont je parle.

Merci d'avance,
 

Pièces jointes

Solution
Hello

voici une nouvelle version qui exploite les Tables Structurées
le tableau de résultat du filtre (feuille consult) est sous forme de Table Structurée (TS)

j'ai déplacé le code dans un module standard pour en faire des sub appelées par les boutons
deux sub de raz
1er: RAZ du tableau de filtrage
2eme: RAZ des critères

j'ai ajouté des commentaires dans le code pour expliquer
Trier par date Trier par votes
Hello

pas eu le temps de regarder la solution de Sylvanu
mais je poste quand meme
1) modification des données de la bibilo en Table structurée (t_Biblio)
2) modification de la macro commandbutton2
3) création de la macro commandbutton3
 

Pièces jointes

Vote positif 0 Vote négatif
Merci à vous deux pour vos retours.
J'ai testé les fichiers rapidement et ils ont l'air de fonctionner comme attendu.
Je vais réaliser quelques tests plus poussés demain et voir si j'ai quelques questions sur leurs fonctionnement.
Encore merci, bonne soirée.
 
Vote positif 0 Vote négatif
vgendron à dit:
Hello

pas eu le temps de regarder la solution de Sylvanu
mais je poste quand meme
1) modification des données de la bibilo en Table structurée (t_Biblio)
2) modification de la macro commandbutton2
3) création de la macro commandbutton3
Cliquez pour agrandir...
Bonjour,

J'ai pu tester les deux solutions et celle-ci faisant un filtre sur les 3 critères (C18,D18 et E18) en fait même plus que je voulais au départ ! Merci beaucoup c'est encore mieux que ce que je voulais faire.
Juste une question, si on veut filtrer les données mais que la valeur du filtre n'apparait pas dans le tableau bibliothèque, est-il possible de renvoyer un message " Aucune donnée avec ces critères n'a été trouvée" ?
J'ai essayé d'intégrer ce fonctionnement ensuite mais je n'arrive pas à faire fonctionner le Msgbox comme je voudrais.

Est-ce qu'il faut afficher la msgbox selon la comparaison de NbCrit ?
J'avoue que comme je ne comprends pas le programme à 100%, je ne sais pas comment gérer ca.
Au passage, peux-tu m'expliquer le passage suivant dans le VBA :

Crit(1) = Range("C18")
NbCrit = IIf(Crit(1) <> "", 1, 0)
Crit(2) = Range("D18")
NbCrit = NbCrit + IIf(Crit(2) <> "", 1, 0)
Crit(3) = Range("E18")
NbCrit = NbCrit + IIf(Crit(3) <> "", 1, 0)

Je ne comprends pas le fonctionnement des critères.

Merci.
 
Vote positif 0 Vote négatif
Hello

voici une nouvelle version qui exploite les Tables Structurées
le tableau de résultat du filtre (feuille consult) est sous forme de Table Structurée (TS)

j'ai déplacé le code dans un module standard pour en faire des sub appelées par les boutons
deux sub de raz
1er: RAZ du tableau de filtrage
2eme: RAZ des critères

j'ai ajouté des commentaires dans le code pour expliquer
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

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
680
steph_29120
S
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
2 K
Rom1-51
R
N
  • Question Question
VBA - Recherche dans un tableau selon plusieurs critères
Réponses
3
Affichages
16 K
NeMoS
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…