Filtre dans un listbox de 9 colones avec 7 combobox

[Yan]

Bonjour

j'ai un nouveaux problème avec ce projet

j'ai réussi a faire fonctionne les filtre de ma liste box a merveille

mais quand j'arrive pour modifier une entré (quand j'ai utilisé les filtre)
ça me met des donnés d'une autre ligne
le problème doit venir de

TextBox1.Value = Range("c1").Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox2.Value = Range("j1").Offset(ListBoxLocataire.ListIndex + 1, 0)
ComboBox1.Value = Range("k1").Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox6.Value = Range("l1").Offset(ListBoxLocataire.ListIndex + 1, 0)

j'envoie le fichier pour que vous regarder svp dans le bouton rechercher la zone d édition a droite (userform Recherche)

Merci d'avance

Yan

 

[Compte Supprimé 979]

Re : Filtre dans un listbox de 12 colones avec 6 combobox

Bonsoir Yan et bienvenue sur ce forum

Que veux-tu exactement ?
Normalement le code est fait pour X valeurs, sauf dans l'affichage de la ListBox qui ne peut contenir que 10 valeurs

Sans fichier, difficile de t'aider et de comprendre

A+

 

[Yan]

Re : Filtre dans un listbox de 12 colones avec 6 combobox

j'aimerais que dans le userform rechercher que les donner filtrer apparaisse dans le listbox du userform ,,,
sans ouvrir la feuille (Commandes)

je vous est envoyer le fichier

Merci d'avance pour vos suggestion

 

[Yan]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

j'ai édité le sujet

 

[Bebere]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

Bonjour Yan,Bruno
dans module3 tu trouveras RechercheCommande
la dernière colonne du tableau contient l'index de ligne de la feuille
dans ListboxLocataire un exemple d'appel
ajout
le code changé

Private Sub ListBoxLocataire_Click()
TextBox1.Value = Range("c" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox2.Value = Range("j" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
ComboBox1.Value = Range("k" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox6.Value = Range("l" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
End Sub

 

[Yan]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

Merci Mais fonctionne pas du tout
je renvois le fichier avec les labels

si on regarde la colonne # de commandes

le listBox (# commandes) ce rempli bien avec ce que j'ai sélectionner

Mais si j utilise met filtre les donner afficher son pas ceux qu'il devrais (dans les textbox)


si vous pouvez m'aider a régler ce léger problème qui me casse la tête

Merci Yan

 

[Bebere]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

Yann C'est dit plu haut(poste 5)
dans ListboxLocataire un exemple d'appel
il faut lire mon ami

 

[Yan]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

je suis débutant en vba et je ne réussi pas a la faire fonctionner correctement avec votre solution un bug persistes désoler ...

 

[Bebere]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

bonjour Yan
tu as une version avec listbox code changé et une autre ou la listbox est remplacée par une listview
une question as-tu besoin de toutes ces possibilités et autre remarque les combobox gardent tous les choix,alors que la sélection n'a plus tous ces choix

 

[Yan]

Re : Filtre dans un listbox de 9 colones avec 7 combobox

je recherche exactement ce que tu a crée dans la version 2.3

Merci beaucoup mon projet va pouvoir continuer a avancé !!