Discussion :

[Mr l'Ashanti]

Bjr à vous. Je viens m'acquérir un peu de vos connaissances. Suis débutant en vba
J' ai créé une listbox1 dans laquelle je voudrais faire des recherches et des tries sur des domaines spécifiques.
J ai déjà pu faire afficher ma base de données dans celle ci. En voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.listbox1.columnheads=trie
.listbox1.columnwidths="à la taille de mes colonnes dans ma listbox de ma base de données. J'ai 8 colonnes commençant a la colonne b à la colonne i et ligne 7 comme entête.''
.listbox1.rowsource=sheets(source).range (b7:i997).adresse
.listbox1.columncount=9

Voici maintenant les obstacles

1. Concernant le tri ,Étant donné que j'ai créé 5 checkbox (nom, sexe,classe, statut, décision) et un commandbutton nommé ''bt_trier'' , je voudrais faire le trie en fonction de ceux ci.
Si je coche la case nom par exemple et je clique sur ''bt_trier'' le tri se fait dans ma listbox par ordre alphabétique.

2. Concernant la recherche,J'ai créé aussi un autre commandbutton nommé'' bt1'' qui sert à faire la recherche spécifique , un combobox pour rechercher les critères et une listbox2 nommé''t_saisir'' pour afficher le nom de l'objet a chercher.
Je souhaiterais afficher les resultats de la recherche de critères dans la listbox2 et je choisis un objet , et dans ma listbox1 afficher tous les résultats liés à l'objet choisi quand je valide la recherche ''bt1''
Pour ma combobox j'ai déjà mis le code. Les critères sont liés aux entêtes de base de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private sub Userform activate()
Cbo_criteres.list=worksheetfunction.transpose(feuil1.range("b7:i7")

PS: je voudrais qu'il y'ai une relation entre ma combobox et la listbox2''t_saisir''. Par exemple : si le critère est la ''classe'' alors dans ma listbox2 on ait toutes les classes sauf les doublons (cp1,cp2,CE1, CE2, CM1 et CM2) et on choisit un objet
Si le critère est sexe alors listbox2 affiche (masculin féminin)et on choisit un objet.

😞😞Désolé de ne pas poster un fichier car je travaille avec la connexion de mon phone donc limiter😞😞

[Mr l'Ashanti]

Merci à vous. J'ai trouvé la solution au problème.

[Transitoire]

Bonjour, Félicitations d'avoir cherché et trouvé seul la solution. Il serait bon par contre que vous expliquiez au moins sommairement votre démarche. Ca peut servir à d'autres personnes sur une recherche identique.
Cordialement

[Mr l'Ashanti]

Pour le tri j'ai utilisé l'enregistreur de macros et copié les données dans mon commandbutton. Exple: j' active l'enregistreur et je vais dans la barre d'outils d'excel et je lance le tri de A-z toutefois en sélectionnant la plage que je souhaiterais appliquer le tri. Quand l'opération est effectuée j'arrête l'enregistreur et je vais dans le module créé et je copie le code. Pour l'adapter à ton tableau tu vas devoir changer le nom de ton tableau et la colonne dans le code.
Pour la recherche j'ai suivi le tuto d' excel de rien en utilisant le filtre avancé. Parmi les tutos sur le filtre avancé je noterais que le sien est plus élaboré et facile à comprendre. Donc je vous invite sur sa chaîne Youtube" Excel DE RIEN".
Merci



" Ne t'attends toujours pas qu'on vienne t'aider à trouver ta solution mère. Il y a plusieurs solutions à une équation R×R donc parmi ces solutions trouve une qui correspond à ton exercice et adapte là toutefois en remuant un peu les méninges 😎😎😎🎓🎓🎓''

[Mr l'Ashanti]

bonjour forum. ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Sheets("source").Range("af2") = "*" & Me.T_rech_nom 'code pour la recherche avanc?e
    Range("Tab_1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
            Range("Tableau3[[#All],[NOM & PRENOMS]]"), CopyToRange:=Range("Ai1:Bk1"), _
            Unique:=False

me permet de faire le filtre avancé. j'ai utilisé l'enregistrement de macro et le filtre avancé de excel. mais voila que quand je saisie une recherche dans le textbox ça met trop de temps à charger et à le transposer dans la listbox. y a t'il une autre façon de faire la recherche?
je note que j'ai deux textbox dont rech_classe et rech_nom( je peux saisir deux recherches à la fois ou bien une seule recherche. exemple: je cherche tous les élèves en classe de CM2 ou bien je cherche un élève du nom de CHRIST EDEN*en classe de CM2 [si il y a d'autres élèves avec le même nom dans d'autres classes ] )