Listbox et comboRésolu

Question

Bonjour,
je recherche un bout de code me permettant de trier une listbox en fonction de la demande de ma combobox.
Par exemple:
J'ai un combobox avec les mois de l'ann&#233;e Janvier...., une listbox contenant le nom d'un contact et une listbox contenant le mois de ce contact.(les 2 listbox sont li&#233;es et les informations correspondent entre elles via l'index)
Ce que je veux pouvoir fair, c'est quand dans ma combo je selectionne le mois de F&#233;vrier, alors apparait dans une 3 ieme listbox le nom des contacts de f&#233;vrier seulement.

Si vous avez du temps et des connaissances merci de votre aide.

###TITEUF###

mortalino · Accepted Answer

Alors essai ça :

Sub Cherche_Donnees()
dim ExApp as object 
dim ClBook as object
dim WsBook as object
Dim MoisChoisi As String

Set ExApp = CreateObject("Excel.Application") )
Set ClBook = ExApp.Workbooks.Open("c:\Chemin\Ton fichier.xls")
Set WsBook = ClBook.WorkSheets("Nom de ta feuille")
ExApp.Visible = True     'pour rendre Excel visible

MoisChoisi = NomComBoMois.Text
For i = 1 to x    'remplace x par nb de ligne utilisées
  If WsBook.Cells(i, 2).Value = MoisChoisi Then
    NomListContact.AddItem (WsBook.Cells(i, 1).Value)
    NomMoisContact.AddItem (WsBook.Cells(i, 3).Value)
  End If
Next i

ClBook.Close False    'ferme Excel sans enregistrer
ExApp.Quit 
End Sub

Puis dans le 
Sub ComBo1_Change()    'remplace ComBo1 par le nom que tu lui as donné
  Call Cherche_Donnees
End Sub

Je pense que ça te fera déjà une bonne base,

@ ++
Mortalino

malhivertman1 · Answer

fais le avec une requete et avec le resultat de ta requete, tu cr&#233;er ta listbox

cs_titeuf44 · Answer

Merci de ta r&#233;activit&#233;, mais d&#233;butant je ne connais pas du tout le fonctionnement des requetes.
Peux tu m'aider pour cela ??
Merci

###TITEUF###

malhivertman1 · Answer

Pas de probleme.
Ta listbox contenant le nom des contacts, tu la rempli comment? est-ce que tu as une base de donn&#233;es au fait ou sont par exemple repertori&#233; tes contact parce que sinno, on peut exclure la solution de la requete et il faudrait regarder autre chose..

cs_titeuf44 · Answer

Je rempli mes listbox avec une feuille excel

###TITEUF###

mortalino · Answer

Salut,

Tu es donc en VBA Excel ?
Si c'est le cas, donne nous l'emplacement de tes données (colonne A : Nom, colonne B : mois contact... bref ce genre de choses).

Nous pourrons te guider. (certainement avec une boucle de recherche)

@ ++
Mortalino

cs_titeuf44 · Answer

Salut,
je suis en VB6 et je ne fait que r&#233;cup&#233;rer des donn&#233;es dans excel.
pour les colonnes: A contact, B mois, C autre
Je ne suis pas arrete sur une m&#233;thde pr&#233;cise, je suis dans ce forum pour apprendre, mais le plus simple est souvent le plus efficace et le plus facile &#224; comprendre.

Merci de ton aide

###TITEUF###

cs_titeuf44 · Answer

Je n'ai pas réussi à faire fonctionner ton bout de code.
Pas d'erreur, mais pas d'affichage .

Pourrais tu commenter ton code de façon à ce que je retrouve l'erreur.

Merci

###TITEUF###

cs_titeuf44 · Answer

Merci mais j'ai trouvé une autre solution que je suis en train de devellopper.

Merci pour tes conseils.

###TITEUF###

Listbox et combo

9 réponses

Discussions similaires