Discussion :

[aslefebvre]

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 !

Copie de dernière version vba.xls

[Kimy_Ire]

Salut aslefebvre,

Tiens, je me suis amusé.
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.
>> Copie de dernière version vba.xls <<

Je te laisse adapter à ton besoin final !

N'hésite pas à revenir vers moi.

Cordialement,
Kimy

[aslefebvre]

Bonjour kimy ,bonjour le forum,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

Bonjour aslefebvre,

Je te propose d'exprimer clairement ce que tu penses parce que je n'ai rien compris.
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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
            '...

[aslefebvre]

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?

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

Merci