SneakyZEKE
XLDnaute Nouveau
Bonjour à tous,
Voici le second problème...ou plutôt les seconds problèmes qui me bloques dans l'avancement de mon projet !
J'ai toujours un tableau A2:J1000 avec un (premier) bouton nommé "Rechercher", qui en fait se trouve n'être qu'une application des filtres Excel par une macro.
L'idée restant toujours d’empêcher l'utilisateur lambda d'avoir accès au tableau et de l'obliger à passer par les boutons et formulaire dont voici un aperçu :
L'idée serai que l'utilisateur puisse effectué une recherche avec l'un ou plusieurs des champs issus des colonnes B, C, D, G, H et I et que le résultat de ces filtre soient affichés dans une listbox où, un ou plusieurs des résultats pourront être sélectionnés pour ensuite se voir appliquer fonction facile à deviner avec les boutons de mon formulaire mais qui feront l'objet d'autres sujets car trop éloignés de l’intitulé actuel...
Les résultats de la liste box seront en fait les lignes filtrés moins les champs des colonnes E, F et J mais en revanche avec les champs de la colonne A, pourtant pas utilisé dans la fonction de recherche.
Voici ce que j'ai pu pondre pour la recherche en fouinant sur le net et qui fonctionne partiellement mais pas pour la recherche par "Matricule", par "clef" ou par "Date"...rien pour le renvoie dans la listbox, je vois pas :
Je dois avoué que je ne comprend pas trop pourquoi, d'autant qu'un premier essai s'était montré plutôt concluant sur la recherche de clef mais impossible de le faire fonctionner ce tableau !
Un peu compliqué à expliquer mais si quelqu'un voit une solution....
Voici le second problème...ou plutôt les seconds problèmes qui me bloques dans l'avancement de mon projet !
J'ai toujours un tableau A2:J1000 avec un (premier) bouton nommé "Rechercher", qui en fait se trouve n'être qu'une application des filtres Excel par une macro.
L'idée restant toujours d’empêcher l'utilisateur lambda d'avoir accès au tableau et de l'obliger à passer par les boutons et formulaire dont voici un aperçu :
L'idée serai que l'utilisateur puisse effectué une recherche avec l'un ou plusieurs des champs issus des colonnes B, C, D, G, H et I et que le résultat de ces filtre soient affichés dans une listbox où, un ou plusieurs des résultats pourront être sélectionnés pour ensuite se voir appliquer fonction facile à deviner avec les boutons de mon formulaire mais qui feront l'objet d'autres sujets car trop éloignés de l’intitulé actuel...
Les résultats de la liste box seront en fait les lignes filtrés moins les champs des colonnes E, F et J mais en revanche avec les champs de la colonne A, pourtant pas utilisé dans la fonction de recherche.
Voici ce que j'ai pu pondre pour la recherche en fouinant sur le net et qui fonctionne partiellement mais pas pour la recherche par "Matricule", par "clef" ou par "Date"...rien pour le renvoie dans la listbox, je vois pas :
Code:
Public Const COL_NOM = 2
Public Const COL_PRENOM = 3
Public Const COL_MATRICULE = 4
Public Const COL_NUMCLE = 7
Public Const COL_ETATCLE = 8
Public Const COL_DATEMOD = 9
'Fonction de recherche
Public Function Rechercher(Nom As String, Prenom As String, Clef As String, Matricule As String, DateMod As String, Etat As String)
Nom = UCase(Nom)
Prenom = UCase(Prenom)
Matricule = UCase(Matricule)
Etat = UCase(Etat)
Set w = Worksheets("BASE")
Application.ScreenUpdating = False
AutoFilterMode = False
If Nom <> "" Then
w.Range("A1").AutoFilter field:=COL_NOM, Criteria1:="*" & Nom & "*"
End If
If Prenom <> "" Then
w.Range("A1").AutoFilter field:=COL_PRENOM, Criteria1:="*" & Prenom & "*"
End If
If Matricule <> "" Then
w.Range("A1").AutoFilter field:=COL_MATRICULE, Criteria1:="*" & Matricule & "*"
End If
If Clef <> "" Then
w.Range("A1").AutoFilter field:=COL_NUMCLE, Criteria1:="*" & Clef & "*"
End If
If DateMod <> "" Then
w.Range("A1").AutoFilter field:=COL_DATEMOD, Criteria1:="*" & DateMod & "*"
End If
If Etat <> "" Then
w.Range("A1").AutoFilter field:=COL_ETATCLE, Criteria1:=Etat
End If
Application.ScreenUpdating = True
UserFormChoix.Show
End Function
Je dois avoué que je ne comprend pas trop pourquoi, d'autant qu'un premier essai s'était montré plutôt concluant sur la recherche de clef mais impossible de le faire fonctionner ce tableau !
Un peu compliqué à expliquer mais si quelqu'un voit une solution....
Pièces jointes
Dernière édition: