Tableau et recherche dans Listbox

TooFatBoy

XLDnaute Barbatruc

• 22 Janvier 2017

• #2

Bonjour,

Je ne suis pas certain de bien saisir car d'après ce que je comprends la réponse serait simplement ListBox1.ListIndex.


[edit]Bon ben c'est bien ce que je disais : j'ai pô compris la question. [/edit]

 

Dernière édition: 22 Janvier 2017

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 22 Janvier 2017

• #3

Bonsoir Marcel,

Si tu suis l'exemple que j'ai donné, il y a 3 occurrences. Or Listbox1.Listindex va me donner une valeur selon le numéro de l'index que j'aurai défini.
Par exemple Listindex = 3.
Mais moi j'ai besoin de trouver la ligne sur laquelle je clique. J'y arrive avec
[Donnees].Find(Me.ListBox1.List(Me.ListBox1.ListIndex, 3), Lookat:=xlWhole), mais la macro s'arrête sur la 1ère occurence et ne voit pas le reste de la colonne.
J'ai tenté Find Next mais sans réussir.

Voici le résultat souhaité.
Merci

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Janvier 2017

• #4

Oui, donc c'est bien ce que j'avais fini par comprendre : tu veux retrouver dans ton tableau la ligne correspondant à celle sur laquelle tu as cliqué dans ta ListBox.

Tu filtres ton tableau et en suite tu descends d'autant de lignes que nécessaire, peut-être.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 22 Janvier 2017

• #5

Marcel32 à dit:

Tu filtres ton tableau et en suite tu descends d'autant de lignes que nécessaire, peut-être.

Cliquez pour agrandir...

Qu'entends tu par là ?

Le but est de pouvoir trouver la ligne en cliquant dans la listbox afin de pouvoir écrire en colonne J du tableau.
Le filtre a été appliqué pour pouvoir afficher les données de la listbox.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Janvier 2017

• #6

Ce que j'entends par-là c'est que tu peux peut-être filtrer ton tableau avec les mêmes critères que ceux qui t'ont permis de remplir ta ListBox, et il ne te resterait donc plus qu'à aller à la ligne correspondant au ListIndex par exemple en partant du titre et en descendant de "ListIndex + 1" lignes.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Janvier 2017

• #7

Ou alors tu ajoutes une colonne à ton tableau qui serait une référence unique (par exemple le numéro de la ligne, comme ça tu as directement le numéro que tu cherches à obtenir), une sorte d'index.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Janvier 2017

• #8

Marcel32 à dit:

à obtenir), une sorte d'index.

Cliquez pour agrandir...

Ça c'est pas mal en effet.

Marcel32 à dit:

peux peut-être filtrer ton tableau avec les mêmes critères

Cliquez pour agrandir...

Comment je fais ça ? Dans le tableau tu veux dire ? Un clic déclencherait le filtre ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Janvier 2017

• #9

Pas besoin de clic. Tu peux par macro filtrer ton tableau.
Il me semblait qu'en suite on pouvait, aussi par macro, descendre d'une ligne, mais je ne retrouve pas comment faire et du coup je n'en suis plus vraiment sûr... (et trop mal en point pour chercher)

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Janvier 2017

• #10

Marcel32 à dit:

je n'en suis plus vraiment sûr... (et trop mal en point pour chercher)

Cliquez pour agrandir...

Je vais chercher de mon coté, mais je ne suis pas sûr d'avoir compris la logique de la procédure.
Sinon attendre un peu.... et repose toi bien surtout.

L'autre solution est celle de l'index en effet, sauf qu'il va falloir réécrire tout le code, ce qui n'est pas aisé...
Merci et à bientôt.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Janvier 2017

• #11

Ce n'est pas très joli, ça ressemble plus à du bidouillage qu'à autre chose, mais tu peux essayer ceci :

VB:

Private Sub ListBox1_Click()
Dim k As Single, valeur As Range, f As Worksheet
Dim i As Long, MaLigne As Long
    [Donnees].Find(Me.ListBox1.List(Me.ListBox1.ListIndex, 0), Lookat:=xlWhole).Select
    For i = 1 To ListBox1.ListIndex
        [Donnees].Find(Me.ListBox1.List(Me.ListBox1.ListIndex, 0), after:=ActiveCell, Lookat:=xlWhole).Select
    Next i
    MaLigne = Selection.Row
    On Error Resume Next
    Set f = Sheets(2)
    If OptionButton1 Then
        Set valeur = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole)
    Else
        Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole)
    End If
    For k = 6 To 12
        Me("Label" & k) = valeur.Offset(, k - 6)
    Next k
End Sub

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Janvier 2017

• #12

Marcel32 à dit:

Ce n'est pas très joli, ça ressemble plus à du bidouillage qu'à autre chose

Cliquez pour agrandir...

J'aimerais pouvoir bidouiller aussi facilement !

Merci beaucoup, ça fonctionne sur tous les points.
Me reste à terminer le code. Je reviendrai si je ne parviens pas à terminer tout seul.
A bientôt ! Et repose toi bien.

 

Vote positif 0 Vote négatif