XL 2016 Hepl Excel VBA

[Acher12]

Bonjour,
j'ai une base de données sous forme de chapitre A, B,.. et des sous chapitres A.1,A.2,B.3,... et des résultats.
je souhaite créer un formulaire de recherche mais un peu compliqué à mon niveau! pour mieux explique c'est comme le principe des filtres, qui affiche le résultats à chaque fois je sélectionne un élément.
je vous joins mon petit tableau avec toute information.

 

[Acher12]

j'avoue je n'ai rien compris.....

 

[Dranreb]

Qu'est ce que vous n'avez pas compris ?
Alors appliquez le sans comprendre, qu'est ce que vous voulez que je vous dise…
Comment voulez vous qu'on sache à quelle ligne de la base correspond une ligne de la ListBox, si ce n'est pas noté quelque part ?
Ça plantait dans la Sub ListBox1_Click() parce que vous aviez décidé sans réfléchir de mettre dans ListBox1.Column(0, ListBox1.ListIndex) autre chose que le numéro de ligne dans CL.PlgTablo contrairement à ce que j'avais fait dans le code initial.

 

[Acher12]

Bonjour Dranreb,
c'est possible de m'aider?
dans mes combobox : Comment je peux taper un mots clés sans prendre en compte les majuscule/minuscule/...
y a t'il un moyen?
Merci

 

[Dranreb]

Bonsoir.
Mais il n'en tient déjà pas compte pour la reconnaissance d'un texte tapé existant.

 

[Acher12]

Non par exemple si ds ma combobox2: j ai "I-a Citation de gloire"
Si je tape le mot "gloire": il se pointe sur tout les champs contient "gloire"
Merci pour ton aide

 

[Dranreb]

Ça c'est autre chose, non ? C'est une recherche intuitive qu'il vous faudrait, ou une recherche par mots clés.
Il y a un modèle de procédure de recherche intuitive dans le guide de CBxL
Il serait aussi possible d'alimenter une ComboBox avec tous les mots trouvés dans les désignations d'une colonne.
Sinon vous devriez joindre un classeur pour que je voie votre problème, et faire des tests pour vous indiquer la meilleure solution.

 

[Acher12]

Bonjour,
désoler pour mon retard,
je vous joins le fichier ( certe il ne vas te plaire car je l'ai modifier autrement !

 

[Dranreb]

Pourquoi avez vous tout changé ?
Manque un CL.Actualiser après ajout d'une ligne.
Pourquoi ne versez vous pas vos contrôles dans VLgn et ensuite CL.Lignes.Add.Value = VLgn ?
Effectivement si vous ne suivez pas mes recommandations, je ne vais plus être enclin à vous aider…
En attendant cette procédure apporte la recherche intuitive sur les 3 ComboBox de la Frame1 :

Private Sub CL_SujFltChg(ByVal CBM As ComboBoxMmbr, ByVal Filtré As Boolean)
If Not Frame1 Is Me.ActiveControl Then Exit Sub
If Not CBM.CBx Is Frame1.ActiveControl Then Exit Sub
If CBM.CBx.MatchFound Or CBM.CBx.Text = "" Then Exit Sub
Dim S ' Sujet temporaire pour recherche intuitive
S = CBxL.SujCBxLike(CBM.SujetFlt, "*" & CBM.CBx.Text & "*")
If IsEmpty(S) Then Exit Sub
CBM.SujetFlt = S ' Affectation du sujet temporaire.
CBM.CBx.DropDown ' Affichage de la liste
End Sub

 

[Acher12]

Merci beaucoup