Ajouter des éléments à ma liste

Bonjour,

Je suis actuellement en train d'essayer de programmer une petite interface pour un projet,

ce que j'essais de faire est d'ajouter le nom de mes cocktails à une liste box en fonction de l'alcool présent, de leur taux d'alcool et de leur goût, mais mon programme ne fonctionne pas..

Voici à quoi ressemble mon tableur pour vous aider à comprendre

Et voici mon programme

Private Sub CmbTaux_Change()
    Dim i As Integer
    i = 2
    LbxResultat.Clear
    Do Until Feuil1.Cells(i, 1).Value = ""
        If (Feuil1.Cells(i, 4).Value = CmbAlcool.Text) And (Feuil1.Cells(i, 3).Value = CmbGout.Text) And (Feuil1.Cells(i, 2).Value = CmbAlcool.Text)            Then
            LbxResultat.AddItem Feuil1.Cells(i, 1).Value
        End If
        i = i + 1
    Loop
    LblCompo.Visible = True
    LbxResultat.Visible = True
    LblResultat.Visible = True
    ImgCocktail.Visible = True
    TxtCompo.Visible = True
End Sub

Merci d'avance.

Bonjour et...

Et préciser la question : Mon fichier ne fonctionne pas n'est pas une question.

A+

Bonsoir Thibow,

Pas besoin de formulaire ni macro. Quelques fonctions bien choisies permettent de faire ce que tu veux.