Formulaire remplir ListBox ou ComboBox à l'aide d'un autre ComboBox

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

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:

---

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

Bonjour Natadam, bonjour le forum,

Pas sûr d'avoir tout compris, donc désolé si je suis hors sujet...

Je ne vois pas très bien l'utilité d'une ComboBox (ni d'une ListBox d'ailleurs) si, pour un aliment désigné, il n'y a qu'une seule portion possible, comme semble l'indiquer ta capture d'écran.
Je verrai plutôt une TextBox avec un code utilisant la propriété ListIndex de la Combobox ChoAliment.

En admettant que l'onglet se nomme Ton_Onglet et que la TextBox se nomme TextBox1, ça donnerait un code du type :

Code:

---

1 2 3

Private Sub ChoAliment_Change() Me.TextBox1.Value = Worksheets("Ton_Onglet").Cells(Me.ChoAliment.ListIndex + 2, "B").Value End Sub

---

Bonjour à tous,

j'ai créer un formulaire sur excel via le VBA mais je bloque sur un petit détail. j'aimerai que les données s'incrémentent dans le tableau ligne après ligne sans en créer de nouvelle.

ex: les données se mettent en B11, C11, D11 (le tableau commence en ligne 11); ensuite B12,C12,D12 etc... sans sortir du tableau qui se finit en ligne 22.

Bien cordialement.

Bonjour Nosma, bonjour le forum,

Tu aurais dû créer un nouveau post car tu pollues le fil de Natadam avec un sujet qui n'a pas vraiment de rapport !... Tu le sauras pour la prochaine fois :lol:...
Sinon une piste : J'imagine que ton formulaire a un bouton Valider, le code de ce bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() Dim O As Worksheet 'déclare la variable O (Onglet) Dim LI As Integer 'déclare la variable LI (LIgne)   Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas) 'définit la ligne LI (11 si B11 est vide, sinon la première ligne vide de la colonne B LI = IIf(O.Cells(11, "B").Value = "", 11, O.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1) If LI > 22 Then Exit Sub 'si LI est supérieure a 22, sort de la procédure O.Cells(LI, "B").Value = TextBox1.Value 'un exemple de comment renvoyer les valeur d'un contrôle dans la ligne LI colonne B (à adapter à ton cas) O.Cells(LI, "C").Value = TextBox2.Value 'un exemple de comment renvoyer les valeur d'un contrôle dans la ligne LI colonne C (à adapter à ton cas) O.Cells(LI, "D").Value = TextBox3.Value 'un exemple de comment renvoyer les valeur d'un contrôle dans la ligne LI colonne D (à adapter à ton cas) End Sub

---

Bonjour Thauthème,

désolé je ne savais, encore désolé pour NATADAM :roll:, la prochaine fois je créerai un forum c'est entendu.

du coup la faut que j'en créer un ou je peut continuer à répondre sur celui la?

Re,

Crée, crée (disait l'ardoise)... Un fil, ça suffira. Un forum c'est peut-être excessif non ?!...:mouarf: