Discussion :

[Natadam]

Bonjour
j'espère que quelqu'un pourra m'aider dans le formulaire suivant:


Je désire utiliser le choix d'aliment consommé (ComboBox intitulé "ChoAliment") pour remplir le combobox4 en faisant la recherche de la valeur ChoAliment dans la colonne L_Aliment (colonne A) et en inscrivant la valeur inscrite dans la colonne B adjacente (ceci pourrait également utiliser un ListBox je crois à la place)

J'ai déjà inscrit la formule suivante, mais j'ai comme résultat toutes les valeurs de la colonne B et non seulement la valeur désirée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox4_Change()
Dim aliments As Long, i As Long
 
aliments = WorksheetFunction.CountA(Feuil2.Columns(1)) - 1
For i = 2 To aliments + 1
    If WorksheetFunction.Count(Feuil2.Range(Cells(1, 1), Cells(i - 1, 1)), Cells(i, 1)) = 0 Then
            ComboBox4.AddItem (Feuil2.Cells(i, 2))
        Else
    End If
Next i
End Sub

Pouvez-vous m'aider à modifier ma formule svp
merci