ComboBox et mettre la valeur trouvée dans la cellule ainsi que ..
2 réponses
Dan
Bonjour
Je cherche une solution pour :
Sur un Userform
- contruire une liste
- faire écrire dans la cellule la valeur choisie dans la liste
- faire écrire dans une autre cellule de la feuille, une des valeurs
appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis
poulets
pizza
dans une feuille de données se trouve les valeurs en colonne
A B
rotis 12
poulets 16
pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox
du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
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
Hervé
Salut Dan, Un truc dans le genre ? A mettre dans le module de ta Form et teste puis adapte : Private Sub ComboBox1_Click() Dim Fe1 As Worksheet Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1") Set Fe2 = Worksheets("Feuil2")
With ComboBox1 Fe2.[A10] = .List(.ListIndex) Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1) End With
Set Fe1 = Nothing Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize() ComboBox1.RowSource = "Feuil1!A1:A5" End Sub
Hervé.
"Dan" a écrit dans le message news:
Bonjour
Je cherche une solution pour : Sur un Userform - contruire une liste - faire écrire dans la cellule la valeur choisie dans la liste - faire écrire dans une autre cellule de la feuille, une des valeurs appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis poulets pizza
dans une feuille de données se trouve les valeurs en colonne
A B rotis 12 poulets 16 pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
@+
Dan
Salut Dan,
Un truc dans le genre ?
A mettre dans le module de ta Form et teste puis adapte :
Private Sub ComboBox1_Click()
Dim Fe1 As Worksheet
Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1")
Set Fe2 = Worksheets("Feuil2")
With ComboBox1
Fe2.[A10] = .List(.ListIndex)
Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1)
End With
Set Fe1 = Nothing
Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Feuil1!A1:A5"
End Sub
Hervé.
"Dan" <Dan---@wanadoo.fr> a écrit dans le message news:
e6QYrGzyEHA.1524@TK2MSFTNGP09.phx.gbl...
Bonjour
Je cherche une solution pour :
Sur un Userform
- contruire une liste
- faire écrire dans la cellule la valeur choisie dans la liste
- faire écrire dans une autre cellule de la feuille, une des valeurs
appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis
poulets
pizza
dans une feuille de données se trouve les valeurs en colonne
A B
rotis 12
poulets 16
pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox
du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
Salut Dan, Un truc dans le genre ? A mettre dans le module de ta Form et teste puis adapte : Private Sub ComboBox1_Click() Dim Fe1 As Worksheet Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1") Set Fe2 = Worksheets("Feuil2")
With ComboBox1 Fe2.[A10] = .List(.ListIndex) Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1) End With
Set Fe1 = Nothing Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize() ComboBox1.RowSource = "Feuil1!A1:A5" End Sub
Hervé.
"Dan" a écrit dans le message news:
Bonjour
Je cherche une solution pour : Sur un Userform - contruire une liste - faire écrire dans la cellule la valeur choisie dans la liste - faire écrire dans une autre cellule de la feuille, une des valeurs appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis poulets pizza
dans une feuille de données se trouve les valeurs en colonne
A B rotis 12 poulets 16 pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
@+
Dan
Dan
Merci Hervé
Mais je ne comprends pas il me dit que l'indice n'appartient pas à la sélection et bug sur le 1er Set je vérifie et j'adapte
@+ Dan
"Hervé" a écrit dans le message de news:%
Salut Dan, Un truc dans le genre ? A mettre dans le module de ta Form et teste puis adapte : Private Sub ComboBox1_Click() Dim Fe1 As Worksheet Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1") Set Fe2 = Worksheets("Feuil2")
With ComboBox1 Fe2.[A10] = .List(.ListIndex) Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1) End With
Set Fe1 = Nothing Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize() ComboBox1.RowSource = "Feuil1!A1:A5" End Sub
Hervé.
"Dan" a écrit dans le message news:
Bonjour
Je cherche une solution pour : Sur un Userform - contruire une liste - faire écrire dans la cellule la valeur choisie dans la liste - faire écrire dans une autre cellule de la feuille, une des valeurs appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis poulets pizza
dans une feuille de données se trouve les valeurs en colonne
A B rotis 12 poulets 16 pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox
du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
@+
Dan
Merci Hervé
Mais je ne comprends pas
il me dit que l'indice n'appartient pas à la sélection et bug sur le 1er Set
je vérifie et j'adapte
@+
Dan
"Hervé" <hmsilvePASDEPUB@wanadoo.fr> a écrit dans le message de
news:%23pSynh0yEHA.3376@TK2MSFTNGP12.phx.gbl...
Salut Dan,
Un truc dans le genre ?
A mettre dans le module de ta Form et teste puis adapte :
Private Sub ComboBox1_Click()
Dim Fe1 As Worksheet
Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1")
Set Fe2 = Worksheets("Feuil2")
With ComboBox1
Fe2.[A10] = .List(.ListIndex)
Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1)
End With
Set Fe1 = Nothing
Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Feuil1!A1:A5"
End Sub
Hervé.
"Dan" <Dan---@wanadoo.fr> a écrit dans le message news:
e6QYrGzyEHA.1524@TK2MSFTNGP09.phx.gbl...
Bonjour
Je cherche une solution pour :
Sur un Userform
- contruire une liste
- faire écrire dans la cellule la valeur choisie dans la liste
- faire écrire dans une autre cellule de la feuille, une des valeurs
appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis
poulets
pizza
dans une feuille de données se trouve les valeurs en colonne
A B
rotis 12
poulets 16
pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste
ComboBox
du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
Mais je ne comprends pas il me dit que l'indice n'appartient pas à la sélection et bug sur le 1er Set je vérifie et j'adapte
@+ Dan
"Hervé" a écrit dans le message de news:%
Salut Dan, Un truc dans le genre ? A mettre dans le module de ta Form et teste puis adapte : Private Sub ComboBox1_Click() Dim Fe1 As Worksheet Dim Fe2 As Worksheet
Set Fe1 = Worksheets("Feuil1") Set Fe2 = Worksheets("Feuil2")
With ComboBox1 Fe2.[A10] = .List(.ListIndex) Fe2.[C42] = Fe1.Range("B" & .ListIndex + 1) End With
Set Fe1 = Nothing Set Fe2 = Nothing
End Sub
Private Sub UserForm_Initialize() ComboBox1.RowSource = "Feuil1!A1:A5" End Sub
Hervé.
"Dan" a écrit dans le message news:
Bonjour
Je cherche une solution pour : Sur un Userform - contruire une liste - faire écrire dans la cellule la valeur choisie dans la liste - faire écrire dans une autre cellule de la feuille, une des valeurs appartenant à la même ligne choisie dans la liste
exemple :
liste vue dans le Userform
rotis poulets pizza
dans une feuille de données se trouve les valeurs en colonne
A B rotis 12 poulets 16 pizza 18
Je souhaiterai :
Mettre dans une autre feuille de présentation
En A10 : poulets (puisque poulets a été choisi dans la liste ComboBox
du Userform)
Et en C42 : 16 (puisque cette valeur est sur la ligne des poulets)
Le tableau de données ne se limitera pas à 2 colonnes
Merci pour vos lumières car là c'est le noir (presque complet)...
