Fonction rechercher dans une listbox

Version imprimable

03/03/2015, 14h43
aslefebvre

1 pièce(s) jointe(s)

Fonction rechercher dans une listbox

Bonjour membre du forum,

Je reviens vers vous espérant votre aide..
J'ai énormément appris et avancé grâce au forum et à l'aide de ces membres...il n'en demeure pas moins que je pense avoir atteint mes limites:

Je vous expose mon pb:
J'ai mis en place une listbox alimenté par une base (feuille excel) jusque là tout va bien sauf que mon tuteur pro souhaiterai que j'améliore cet outils en y ajoutant des fonctions de recherche par date et/ou par semaine et/ ou par mois le tout s'afficherai comme une sélection dans une nouvelle listbox...

C'est plus clair je pense avec ma pièce jointe: le cas concerne l'usf planning_clients.

Je ne sais si c'est possible comme je l'ai exprimé mais bon...je tente.

Merci de m'avoir lu !

Pièce jointe 170669
03/03/2015, 15h52
Kimy_Ire

1 pièce(s) jointe(s)

Salut aslefebvre,

Tiens, je me suis amusé. :aie:
Sur ta feuille "Planning-planteurs", je t'ai collé un bouton avec un UserForm associé qui contient, je crois, les fonctionnalités que tu cherches. :ccool:
>> Pièce jointe 170678 <<

Je te laisse adapter à ton besoin final !

N'hésite pas à revenir vers moi.

Cordialement,
Kimy

Bonjour kimy ,bonjour le forum,

Merci ça m'a l'air de super-fonctionné:D

Juste une petite question comment modifier ton code kimy afin d'avoir dans l'usf 1 que tu as mis en place :listox (résultat de la recherche toutes les données concernées),à présent dans le résultat de la recherche on n'a que le "code planteur" colonne A
Merci!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub ComboBoxSem_Change() Dim oRng As Range Dim i As Integer Me.ListBox1.Clear Me.ListBox1.AddItem "Recherche effectuée sur la semaine " & Me.ComboBoxSem With Worksheets("Planning-planteurs") Set oRng = .Range("F1") For i = 1 To .Cells(Rows.Count, 6).End(xlUp).Row - 1 If oRng.Offset(i, 0) = CInt(Me.ComboBoxSem) Then Me.ListBox1.AddItem .Cells(i + 1, 1) End If Next i End With End Sub
;)

04/03/2015, 10h20
Kimy_Ire

Bonjour aslefebvre,

Je te propose d'exprimer clairement ce que tu penses parce que je n'ai rien compris. :mrgreen:
Je veux parcourir toutes les feuilles pour faire ta recherche ?

Soit précise, s'il te plait, dans la formulation de ta requête, la sortie, les entrées, etc...

Cordialement,
Kimy

Je crois qu'il voulait remplir une listbox multi colonnes
exemple

Code:

1
2
3
4
            Me.ListBox1.AddItem .Cells(i + 1, 1)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(i + 1, 2)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(i + 1, 5)
            '...

04/03/2015, 10h52
aslefebvre

oups!

hello!

Sorry kimy ...c'est peut-être dans ma tête que cela n'était pas clair...
En effet comme interprété par mercato :
je souhaitais savoir si il y avait un moyen d'avoir une listbox mulicolonne dans l'useform1 que tu as crée?

:oops:je sais pas si c'est un peu plus clair mais en tout cas je l'espère...

Merci
04/03/2015, 11h49
Kimy_Ire

Oui tout à fait.

L'option ListBox1.ColumnCount = 5 permet de définir le nombre de colonnes que tu souhaites.
Le remplissage s'effectue comme un tableau : Me.ListBox1.List(k, i).

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

Je reviens...

Je reviens vers toi kimy

En effet je suis ravi qu'on se soit compris!;)

Maintenant au vue de mon niveau (très bas...) en VBA j'ai essayé d'adapter le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub ComboBoxSem_Change()
k = 0
Dim oRng As Range
Dim i As Integer
 
Me.ListBox1.Clear
Me.ListBox1.AddItem "Recherche effectuée sur la semaine " & Me.ComboBoxSem
 
With Worksheets("Planning-planteurs")
    Set oRng = .Range("F1")
    For i = 1 To .Cells(Rows.Count, 6).End(xlUp).Row - 1
        If oRng.Offset(i, 0) = CInt(Me.ComboBoxSem) Then
            ListBox1.ColumnCount = 5
          Me.ListBox1.AddItem
      Cells(i, 1).Select
      Me.ListBox1.List(k, 0) = Cells(i, 1)
      Me.ListBox1.List(k, 1) = Cells(i, 2)
      Me.ListBox1.List(k, 2) = Cells(i, 3)
      Me.ListBox1.List(k, 3) = Cells(i, 4)
      Me.ListBox1.List(k, 4) = Cells(i, 5)
      Me.ListBox1.List(k, 5) = Cells(i, 6)
      Me.ListBox1.List(k, 6) = i
      k = k + 1
        End If
    Next i
End With
 
End Sub

Mais sa coince ...
Pourvu qu'un œil expert puisse me dire où se trouve l'os!

Merci à vous.:)

Hum...
Il ne faut pas que tu prennes tout au pied de la lettre mais que tu adaptes un petit peu, quitte à regarder un peu sur le net. :aie:

ListBox1.ColumnCount = 5, c'est le nombre de colonne de ta ListBox.
Ainsi, il suffit de ne le définir qu'une seule fois, au début de ta macro.
De plus, au vu de ton insertion, il me semble que tu as besoin de 7 colonnes. ;)

Sans tester, ça donnerait quelque chose de ce style :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Private Sub ComboBoxSem_Change() Dim oRng As Range Dim i As Integer Me.ListBox1.Clear Me.ListBox1.AddItem "Recherche effectuée sur la semaine " & Me.ComboBoxSem ListBox1.ColumnCount = 7 With Worksheets("Planning-planteurs") Set oRng = .Range("F1") For i = 1 To .Cells(Rows.Count, 6).End(xlUp).Row - 1 If oRng.Offset(i, 0) = CInt(Me.ComboBoxSem) Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = .Cells(i, 1) Me.ListBox1.List(i, 1) = .Cells(i, 2) Me.ListBox1.List(i, 2) = .Cells(i, 3) Me.ListBox1.List(i, 3) = .Cells(i, 4) Me.ListBox1.List(i, 4) = .Cells(i, 5) Me.ListBox1.List(i, 5) = .Cells(i, 6) Me.ListBox1.List(i, 6) = i End If Next i End With End Sub
Je ne sais plus la dimension de départ. Il me semble que c'est 0. Si c'est 1, un faut remplacer les i par des i + 1.

Bref, n'hésite pas à me dire si tu continues à rencontrer des difficultés d'adaptation.

Cordialement,
Kimy

re Kimy!

Bad news...avec le code sans adaptation j'ai une erreur 381.
En "essayant" d'adapter le code ci-dessous jen 'ai plus d'erreur mais...je n'ai plus aucun résultat de recherce (semaine)...
Perdue...et sinon vraiment merci pour toute la peine que tu te donnes...reconnaissante.

;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub ComboBoxSem_Change()
Dim oRng As Range
Dim i As Integer
 
Me.ListBox1.Clear
Me.ListBox1.AddItem "Recherche effectuée sur la semaine " & Me.ComboBoxSem
ListBox1.ColumnCount = 7
 
With Worksheets("Planning-planteurs")
    Set oRng = .Range("F1")
 
    For i = 1 To .Cells(Rows.Count, 7).End(xlUp).Row - 1
        If oRng.Offset(i + 1, 1) = CInt(Me.ComboBoxSem) Then
 
            Me.ListBox1.AddItem
 
            Me.ListBox1.List(i + 1, 0) = .Cells(i + 1, 1)
            Me.ListBox1.List(i + 1, 1) = .Cells(i + 1, 2)
            Me.ListBox1.List(i + 1, 2) = .Cells(i + 1, 3)
            Me.ListBox1.List(i + 1, 3) = .Cells(i + 1, 4)
            Me.ListBox1.List(i + 1, 4) = .Cells(i + 1, 5)
            Me.ListBox1.List(i + 1, 5) = .Cells(i + 1, 6)
            Me.ListBox1.List(i + 1, 6) = i + 1
 
        End If
    Next i
End With
 
End Sub

Et bah voila, c'est ce qu'on appelle écrire n'importe quoi ! :aie:
Je t'ai corrigé dans ma dernière macro alors que tu étais sur une bien meilleure piste que moi !

Définir un k et le faire varier est tout à fait ce qu'il faut faire ! Je ne sais pas ce que j'ai fait ! :scarymov:
Bref, voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Private Sub ComboBoxSem_Change() Dim oRng As Range Dim i As Integer Dim k As Integer Me.ListBox1.Clear Me.Label4 = "Recherche effectuée sur la semaine " & Me.ComboBoxSem ListBox1.ColumnCount = 7 k = 0 With Worksheets("Planning-planteurs") Set oRng = .Range("F1") For i = 1 To .Cells(Rows.Count, 6).End(xlUp).Row - 1 If oRng.Offset(i, 0) = CInt(Me.ComboBoxSem) Then Me.ListBox1.AddItem Me.ListBox1.List(k, 0) = .Cells(i + 1, 1) Me.ListBox1.List(k, 1) = .Cells(i + 1, 2) Me.ListBox1.List(k, 2) = .Cells(i + 1, 3) Me.ListBox1.List(k, 3) = .Cells(i + 1, 4) Me.ListBox1.List(k, 4) = .Cells(i + 1, 5) Me.ListBox1.List(k, 5) = .Cells(i + 1, 6) Me.ListBox1.List(k, 6) = i + 1 k = k + 1 End If Next i End With End Sub
Pour info, afin que ça soit plus joli (puisqu'on définie maintenant des colonnes dans la ListBox), j'ai créé un Label pour insérer la recherche courante.
Dans le code tu verras donc Me.Label4 = "Recherche effectuée sur la semaine " & Me.ComboBoxSem. Je te laisse donc créer le Label correspondant dans ton UserForm.

N'oublie pas de faire la même chose avec les autres Sub.

J'espère qu'avec ça tu seras pas mal ! :ccool:

Cordialement,
Kimy

06/03/2015, 10h15
aslefebvre

Merci

Merci mille fois kimy pour toute la patience que tu as eu avec moi!!
Le code fonctionne à merveille et sa rend exactement comme je voulais!

J'ose abusé de tes talents pour te demander en essayant d'être claire (un peu ;)):
-Si il est possible sur les tableau excel de faire une macro pour avoir un tri automatique?
Par exemple dans le fichier que j'avais joint on rentre des données ...ces données sont compilées telle quelles les unes à la suite des autres sans règles, et je je souhaiterai que se fasse automatique si cela est possible un tri en fonction de la date sur les feuilles excel.

Encore une fois Merci!!!!
06/03/2015, 11h37
Kimy_Ire

Bonjour aslefebvre,

Ca, c'est relativement simple.
Je te propose simplement de faire un enregistreur de macro sur le tri que tu souhaites effectuer.
N'hésite pas à regarder sur le net les arguments qui te sont nécessaires, l'enregistreur de macro étant gourmand en arguments plus ou moins inutiles.

Reviens vers moi si tu n'y arrives pas.
Précise l'onglet, la colonne et le tri souhaité.

Cordialement,
Kimy

Je reviens vers toi Kimy (et oui c'est encore moi...)

afin de ne pas avoir à faire appel à un bouton de commande ou alt... j'ai pas choisi d'enregistrer de macro

J'ai testé donc ce code dans ma feuille Planning-planteurs
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("f:f")) Is Nothing Then Call Tri End If End Sub
et celui-ci dans le module
Code:

1 2 3 4 5 6 7 Sub Tri() Dim LastRow As Long LastRow = ActiveSheet.Range("e2").End(xlDown).Row Range("a2:f" & LastRow).Sort Key1:=Range("e2"), Order1:=xlAscending, Key2:=Range("B3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal End Sub
Le but étant de trier le tableau de la feuille planning client (alimenter par un usf) en fonction d'un ordre croissant de la colonne date (en E).

Ce code marche mais je dois exécuter la macro...il ne suffit donc pas d'entrer des nouveaux éléments pour que ce soit trier automatiquement.

Help!!!:(