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

ComboBox et filtre probème !!!

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Esak
  • 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 !

S'inscrire
E

Esak

XLDnaute Nouveau
Bonjour à toutes et à tous,

C'est grâce à un collègue de travail que j'ai découvert ce site fabuleux, qui regorge des truc et astuces. Je tiens à féliciter les administrateurs et tous les membres qui ont contribuer a étoffer ce site. Mais voila, j'ai besoin de votre aide:

Dans le cadre de mon travail, je dois réaliser une interface dans un tableau excel pour rechercher des informations dans une bases de données. J'ai réaliser une macro permettant de masquer ou non des colonnes (dans mon cas, ce sont des options, accessoires) et j'ai mis également en place des filtres par colonnes.

Mais voila, c'est pas assez simple et intuitif à utiliser.

Le but étant comme une voiture, il y a les standards (moteur, roue, porte, phares,...)
et puis ensuite tous les options.

C'est pourquoi je demande votre aide, pour réaliser une interface avec des boutons à cliquer qui filtrent les informations au grès des données entrés dans les listes déroulantes, et qu'au bout de ma sélection de tous les paramètres, j'ai un lien hypertexte qui me permet d'ouvrir un dossier contenant mes informations recherchées.


Je vous remercie par avance pour toute l'aide que vous pouvez/allez m'apporter.

Je me tiens à votre disposition pour toutes autres informations.

Pour information, je ne peux pas exécuter cette tâche sur Access, car nous n'avons pas la licence.
 
Dernière édition:
Trier par date Trier par votes
Dernière édition:
Vote positif 0 Vote négatif
UserForm et filtrage ?

Bonjour, ayant avancé quelque peu, j'ai un problème pour le filtrage des données.

J'ai modifié une UserForm que j'ai trouvé sur ce forum.

Le filtre doit mal fonctionné car quand je sélectionne une donnée dans mon interface, mais il me supprime tout ma liste. Donc je vous demande si il serait possible de jeter un oeil sur le code VBA. Merci 🙂 . Je joint le fichier excel.

Voici le code VBA de UserForm :

Code: 
Private Sub CommandButton1_Click()


ActiveSheet.Range("$A$4:$AZ200").AutoFilter field:=4, Criteria1:=ComboBox1  'pays
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=5, Criteria1:=ComboBox2 'type de chargement
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=6, Criteria1:=ComboBox3 'modele de bras
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=7, Criteria1:=ComboBox4 'debattement
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=8, Criteria1:=ComboBox5 'diametre du bras
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=9, Criteria1:=ComboBox6 'matière du bras
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=10, Criteria1:=ComboBox7 'matiere du tube plongueur
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=11, Criteria1:=ComboBox8 'longueur du tube plongueur
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=12, Criteria1:=ComboBox9 'longueur du tube exterieur
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=13, Criteria1:=ComboBox10 'longueur du tube interieur
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=16, Criteria1:=ComboBox11 'nombre raccords tournants
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=17, Criteria1:=ComboBox12 'modele de raccord
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=18, Criteria1:=ComboBox13 'type JT principal
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=19, Criteria1:=ComboBox14 'nombre raccords tournants 2ème type
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=20, Criteria1:=ComboBox15 'modele de raccord 2ème type
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=21, Criteria1:=ComboBox16 'type JT principal 2ème type
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=22, Criteria1:=ComboBox17 'type raccordement reseau
ActiveSheet.Range("$A$3:$AZ$200").AutoFilter field:=23, Criteria1:=ComboBox18 'type raccordement reseau

Unload Me

End Sub



Private Sub UserForm_Initialize()

ActiveSheet.Range("$A$3:$AZ$200").AutoFilter

Set dico = CreateObject("Scripting.dictionary")
Set dico1 = CreateObject("Scripting.dictionary")
Set dico2 = CreateObject("Scripting.dictionary")
Set dico3 = CreateObject("Scripting.dictionary")
Set dico4 = CreateObject("Scripting.dictionary")
Set dico5 = CreateObject("Scripting.dictionary")
Set dico6 = CreateObject("Scripting.dictionary")
Set dico7 = CreateObject("Scripting.dictionary")
Set dico8 = CreateObject("Scripting.dictionary")
Set dico9 = CreateObject("Scripting.dictionary")
Set dico10 = CreateObject("Scripting.dictionary")
Set dico11 = CreateObject("Scripting.dictionary")
Set dico12 = CreateObject("Scripting.dictionary")
Set dico13 = CreateObject("Scripting.dictionary")
Set dico14 = CreateObject("Scripting.dictionary")
Set dico15 = CreateObject("Scripting.dictionary")
Set dico16 = CreateObject("Scripting.dictionary")
Set dico17 = CreateObject("Scripting.dictionary")


For n = 4 To Range("D65536").End(xlUp).Row
 

d = Range("D" & n)
e = Range("E" & n)
f = Range("F" & n)
g = Range("G" & n)
h = Range("H" & n)
i = Range("I" & n)
j = Range("J" & n)
k = Range("K" & n)
l = Range("L" & n)
m = Range("M" & n)
p = Range("p" & n)
q = Range("q" & n)
r = Range("r" & n)
s = Range("s" & n)
t = Range("t" & n)
u = Range("u" & n)
v = Range("v" & n)
w = Range("w" & n)



dico(d) = 1
dico1(e) = 1
dico2(f) = 1
dico3(g) = 1
dico4(h) = 1
dico5(i) = 1
dico6(j) = 1
dico7(k) = 1
dico8(l) = 1
dico9(m) = 1
dico10(p) = 1
dico11(q) = 1
dico12(r) = 1
dico13(s) = 1
dico14(t) = 1
dico15(u) = 1
dico16(v) = 1
dico17(w) = 1


Next

ComboBox1.List = dico.keys
ComboBox2.List = dico1.keys
ComboBox3.List = dico2.keys
ComboBox4.List = dico3.keys
ComboBox5.List = dico4.keys
ComboBox6.List = dico5.keys
ComboBox7.List = dico6.keys
ComboBox8.List = dico7.keys
ComboBox9.List = dico8.keys
ComboBox10.List = dico9.keys
ComboBox11.List = dico10.keys
ComboBox12.List = dico11.keys
ComboBox13.List = dico12.keys
ComboBox14.List = dico13.keys
ComboBox15.List = dico14.keys
ComboBox16.List = dico15.keys
ComboBox17.List = dico16.keys
ComboBox18.List = dico17.keys
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
UserForm et filtrage ?

Bonjour, personne n'a d'idées à proposer ?

Les informations du forum arrive à une grande vitesse et je vois mon topic tiré vers le bas minute après minute.

Je ne veux pas flooder, mais si quelqu'un d'aimable pourrait seulement m'aiguiller sur la marche à suivre

Merci d'avance.
 
Vote positif 0 Vote négatif
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

K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
328
KRUG WOO
K
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
5 6 7
Réponses
96
Affichages
2 K
patricktoulon
M
  • Question Question
Microsoft 365 Recherche multicritères et résultat sous forme de croix (si possible via formule SI et ET)
Réponses
4
Affichages
471
danielco
D
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
940
cp4
B
  • Résolu(e)
Autres à l'ouverture d'un fichier changer des valeurs et des cases d'options
2
Réponses
17
Affichages
1 K
BernardLOin
B
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
762
Zonmé
Z
S
  • Résolu(e)
XL 2016 Tri et copié coller de valeur selon date et varibale en automatique
2
Réponses
29
Affichages
2 K
StanislasC
S
P
  • Question Question
XL 2010 Aide formulaires
Réponses
1
Affichages
786
Robert
M
  • Question Question
XL 2016 Transfert des donnés vers une autre feuille
Réponses
1
Affichages
775
Compte Supprimé 979
C
M
  • Résolu(e)
XL 2016 Copie base de donnée multi feuille sur Combobox
Réponses
13
Affichages
1 K
Maxime26
M
H
  • Résolu(e)
Microsoft 365 Barre de recherche et ajouter vba
Réponses
2
Affichages
2 K
Harry13
H
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
C
  • Question Question
XL 2016 Ajout automatique d'une ligne d'un tableau vers d'autres tableaux
Réponses
0
Affichages
1 K
cptass71
C
M
  • Question Question
Microsoft 365 Tableau suivi public et activités
Réponses
1
Affichages
1 K
chris
B
  • Question Question
XL 2019 Automatiser la création d'un fichier Excel depuis une interface
Réponses
6
Affichages
2 K
bluesky12000
B
M
  • Question Question
Microsoft 365 Rechercher un numero et copier toutes les informations associees
Réponses
7
Affichages
1 K
macrout95
M
P
  • Question Question
XL 2016 combobox et date
Réponses
6
Affichages
1 K
pygark
P
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
M
  • Question Question
XL 2019 importer ou exporter des cellules Ecel vers une textbox et vice versa
Réponses
1
Affichages
898
job75
N
  • Résolu(e)
userform et combobox
Réponses
3
Affichages
1 K
ninajams
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…