pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais
dire "des" ) question...
j'ai une liste A20:A30 que j'ai nomm=E9e INGREDIENTS avec des valeurs.
disont que j'ai des ingr=E9dients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes.
puis d=E8s que j'ai besoin d'un =E9l=E9ment dans INGREDIENTS je saisie un
caract=E8re (par exemple
un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les
=E9lements selectionn=E9e
grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les
lignes
qui ont un "1" dans la cellule concern=E9e par la recette (tarte au
pommes par exemple) et
je peux (c'est m=EAme le cas) avoir plusieurs recettes.
Est-ce compliqu=E9 ?
Merci de vos conseils et aides.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
http://cjoint.com/?iovjiT4VMB
Private Sub UserForm_Initialize() For i = 1 To [ingrédients].Count If Range("Condit")(i) = 1 Then Me.ComboBox1.AddItem Range("ingrédients")(i) Next i End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs. disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes. puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un caractère (par exemple un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les élements selectionnée grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les lignes qui ont un "1" dans la cellule concernée par la recette (tarte au pommes par exemple) et je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ? Merci de vos conseils et aides.
José
Bonsoir,
http://cjoint.com/?iovjiT4VMB
Private Sub UserForm_Initialize()
For i = 1 To [ingrédients].Count
If Range("Condit")(i) = 1 Then Me.ComboBox1.AddItem
Range("ingrédients")(i)
Next i
End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais
dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs.
disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes.
puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un
caractère (par exemple
un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les
élements selectionnée
grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les
lignes
qui ont un "1" dans la cellule concernée par la recette (tarte au
pommes par exemple) et
je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ?
Merci de vos conseils et aides.
Private Sub UserForm_Initialize() For i = 1 To [ingrédients].Count If Range("Condit")(i) = 1 Then Me.ComboBox1.AddItem Range("ingrédients")(i) Next i End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs. disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes. puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un caractère (par exemple un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les élements selectionnée grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les lignes qui ont un "1" dans la cellule concernée par la recette (tarte au pommes par exemple) et je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ? Merci de vos conseils et aides.
José
JB
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade: -On choisit le plat dans une liste -les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize() Me.ChoixPlat.List = Application.Transpose([plats]) End Sub
Private Sub ChoixPlat_Change() col = Me.ChoixPlat.ListIndex + 1 Me.ListeIngrédients.Clear For i = 1 To [Ingrédients].Count If Range("Condition")(i, col) = 1 Then Me.ListeIngrédients.AddItem Range("ingrédients")(i) End If Next i End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs. disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes. puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un caractère (par exemple un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les élements selectionnée grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les lignes qui ont un "1" dans la cellule concernée par la recette (tarte au pommes par exemple) et je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ? Merci de vos conseils et aides.
José
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade:
-On choisit le plat dans une liste
-les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize()
Me.ChoixPlat.List = Application.Transpose([plats])
End Sub
Private Sub ChoixPlat_Change()
col = Me.ChoixPlat.ListIndex + 1
Me.ListeIngrédients.Clear
For i = 1 To [Ingrédients].Count
If Range("Condition")(i, col) = 1 Then
Me.ListeIngrédients.AddItem Range("ingrédients")(i)
End If
Next i
End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais
dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs.
disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes.
puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un
caractère (par exemple
un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les
élements selectionnée
grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les
lignes
qui ont un "1" dans la cellule concernée par la recette (tarte au
pommes par exemple) et
je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ?
Merci de vos conseils et aides.
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade: -On choisit le plat dans une liste -les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize() Me.ChoixPlat.List = Application.Transpose([plats]) End Sub
Private Sub ChoixPlat_Change() col = Me.ChoixPlat.ListIndex + 1 Me.ListeIngrédients.Clear For i = 1 To [Ingrédients].Count If Range("Condition")(i, col) = 1 Then Me.ListeIngrédients.AddItem Range("ingrédients")(i) End If Next i End Sub
JB
bonsoir,
pour les courageux qui n'ont pas fait le pont, j'ai une (je devrais dire "des" ) question...
j'ai une liste A20:A30 que j'ai nommée INGREDIENTS avec des valeurs. disont que j'ai des ingrédients (sel, sucre, pommes, etc)
en B19, l'ai un titre : tarte aux pommes. puis dès que j'ai besoin d'un élément dans INGREDIENTS je saisie un caractère (par exemple un "1")
je souhaiterai copier dans une liste (en fait une combobox.list) les élements selectionnée grace au petit "1", je dois donc TROUVER dans la zone INGREDIENTS les lignes qui ont un "1" dans la cellule concernée par la recette (tarte au pommes par exemple) et je peux (c'est même le cas) avoir plusieurs recettes.
Est-ce compliqué ? Merci de vos conseils et aides.
José
Alfred WALLACE
JB wrote:
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade: -On choisit le plat dans une liste -les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize() Me.ChoixPlat.List = Application.Transpose([plats]) End Sub
Private Sub ChoixPlat_Change() col = Me.ChoixPlat.ListIndex + 1 Me.ListeIngrédients.Clear For i = 1 To [Ingrédients].Count If Range("Condition")(i, col) = 1 Then Me.ListeIngrédients.AddItem Range("ingrédients")(i) End If Next i End Sub
JB
Yo ! JB !!!
ben, je suis sur le "lu" .....
Si tu es dans les environs de la Drôme Provençale, fait moi penser à t'inviter à manger une tarte aux pommes !
Merci encore !
José
JB wrote:
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade:
-On choisit le plat dans une liste
-les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize()
Me.ChoixPlat.List = Application.Transpose([plats])
End Sub
Private Sub ChoixPlat_Change()
col = Me.ChoixPlat.ListIndex + 1
Me.ListeIngrédients.Clear
For i = 1 To [Ingrédients].Count
If Range("Condition")(i, col) = 1 Then
Me.ListeIngrédients.AddItem Range("ingrédients")(i)
End If
Next i
End Sub
JB
Yo ! JB !!!
ben, je suis sur le "lu" .....
Si tu es dans les environs de la Drôme Provençale, fait moi penser
à t'inviter à manger une tarte aux pommes !
Réponse à la question qui n'a pas encore été posté:
http://cjoint.com/?iowHHkeN30
Menus en cascade: -On choisit le plat dans une liste -les ingrédients apparraissent dans une autre liste.
Private Sub UserForm_Initialize() Me.ChoixPlat.List = Application.Transpose([plats]) End Sub
Private Sub ChoixPlat_Change() col = Me.ChoixPlat.ListIndex + 1 Me.ListeIngrédients.Clear For i = 1 To [Ingrédients].Count If Range("Condition")(i, col) = 1 Then Me.ListeIngrédients.AddItem Range("ingrédients")(i) End If Next i End Sub
JB
Yo ! JB !!!
ben, je suis sur le "lu" .....
Si tu es dans les environs de la Drôme Provençale, fait moi penser à t'inviter à manger une tarte aux pommes !
