Discussion :

[Rasheedus]

Bonjour à tous,

J'ai un fichier d'édition et suivi de décharges, sur la feuille "Decharges", j'ai l'entête, et sur la feuille "Detail", j'ai le détail de chaque décharge, dans lequel, il y a le numéro de la décharge qui se répète avec chaque article (et le numéro d'article est séquentiel, il commence de 1 à x, suivant le nombre d'articles).
J'ai créé un userform pour la recherche de décharge avec une listbox qui affiche ces décharges suivant le texte saisie dans une textbox
J'ai aussi crée une deuxième listbox dans laquelle je souhaite afficher les détails (se trouvant dans la feuille "Detail") de la décharge sélectionnée dans la première listbox; comment le faire? (voir fichier joint)

et merci bien par avance pour votre aide,
Decharges.xlsm

[Franc]

Salut, teste ça.

Decharges.xlsm

[Rasheedus]

Salut, teste ça.

Decharges.xlsm

Merci pour votre réponse, mais ce que je souhaite, c'est que lorsque je click sur une ligne dans la première listbox, le détail correspondant s'affiche dans la deuxième, j'ai essayé de recopier votre code dans l'évènement "click" de la listbox, mais, sans résultat satisfaisant,

[Franc]

Ah ce n'est pas comme ça que je l'avais compris. Voici la modification:

Decharges.xlsm

[Rasheedus]

Ah ce n'est pas comme ça que je l'avais compris. Voici la modification:

Decharges.xlsm

Merci beaucoup, ça fonctionne parfaitement, c'est exactement le résultat que je voulais;
Merci infiniment,

[Rasheedus]

Merci beaucoup, ça fonctionne parfaitement, c'est exactement le résultat que je voulais;
Merci infiniment,

Bonjour,
Je revient encore vers vous pour un autre petit problème, je souhaite afficher les entetes de colonnes dans les listbox, j'ai ajouté le code suivant:

Dim ws As Worksheet
Set ws = Sheets("Decharge")

Dim lastCol As Long
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

Dim headersArray() As Variant
ReDim headersArray(1 To 1, 1 To lastCol)

Dim colIndex As Long
For colIndex = 1 To lastCol
headersArray(1, colIndex) = ws.Cells(1, colIndex).Value
Next colIndex

LBx_Dech.List = headersArray

dans userform initialize, les entêtes s'affiches au lancement, mais en faisant un choix dans la combobox, elles disparaissent, si vous avez une solution à me proposer
Merci par avance,

[Franc]

Une astuce simple et sans prise de tête est de disposer des étiquettes au-dessus des listbox, en plus ça permet une certaine personnalisation.

[Rasheedus]

Une astuce simple et sans prise de tête est de disposer des étiquettes au-dessus des listbox, en plus ça permet une certaine personnalisation.

c'est ce que j'ai fait actuellement comme solution provisoire,
merci bien pour ton aide Franc

[Franc]

Salut, j'ai trouvé un moyen de résoudre le problème. Avant d'afficher un résultat de recherche dans les listbox, j'affiche le contenu des entêtes des feuilles et puis les résultats de recherche.

Decharges.xlsm

[Rasheedus]

Salut, j'ai trouvé un moyen de résoudre le problème. Avant d'afficher un résultat de recherche dans les listbox, j'affiche le contenu des entêtes des feuilles et puis les résultats de recherche.

Decharges.xlsm

Parfait Franc, tu es le meilleur, merci beaucoup