Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Actualiser la liste de ma combobox2

Actualiser la liste de ma combobox2

12 réponses
Avatar
Francis
Bonsoir tout le monde et enchanté de vous decouvrir.

Je tatone dans l utilisation d'excel et vba et j'ai un petit coup d'arret
que je n'arrive pas a resoudre.

J'ai trois combobox, dont les codes sont pour la 1º et la 3º:
Private Sub ComboBox1_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("A1").CurrentRegion.Address
ComboBox1.ListFillRange = Adresse
End Sub


Private Sub ComboBox3_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("H1").CurrentRegion.Address
ComboBox3.ListFillRange = Adresse
End Sub

La premiere est la liste des marques de telephones portables et la troisieme
une liste de pannes communes.Ce que je souhaite c'est que la liste de la 2º
combobox, s'actualise en fonction du choix effectue dans la premiere.
Ex: si je choisis Nokia dans la 1º il faut que la combo2 offre la liste de
tous les modeles Nokia.(1100,2100,3100,3200,3220....). Et une fois que j'ai
effectué le choix dans les trois combo, serait il possible que le contenu de
mon choix s'affiche dans une cellule voisine ex: Nokia,3220,probleme de
micro. Ainsi je pourrais par comparaison avec une plage de données offrir le
prix de la reparation dans la cellule contigue.

Je vous remercie par avance pour votre aide, et vous demande de bien vouloir
m'excuser si certain de mes termes technique Excel ne sont pas tout a fait
orthodoxe, mais cela fait plus de 12ans que je travaille avec excel
Espagnol.
Bonne nuit a tous
Francis
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
1 2
Avatar
isabelle
:-))))
non non je connais que quelque mot
hola
en pronto
et
Se queda del pastel ?

isabelle


qué pasa por aquí? se habla castellano?
madre mía!!!!!!
ya me voy
jps

"isabelle" a écrit dans le message de
news:

Hola! Francis,

ajoute cette macro pour la combobox 2

Private Sub ComboBox1_Change()
Dim Adresse As String
x = Application.Match(ComboBox1.Value, Sheets("Hoja1").[D:D], 0)
y = Application.Match(ComboBox1.Value, Sheets("Hoja1").[D:D], 1)
Adresse = Sheets("Hoja1").Range("E" & x & ":E" & y).Address
ComboBox2.ListFillRange = Adresse
End Sub

et celle-ci pour la cellule voisine, j'ai supposé que c'etait en colonne F

Private Sub CommandButton1_Click()
LigneChoisi = Application.Match(Val(ComboBox2.Value),
Sheets("Hoja1").[E:E], 0)
Résultat = ComboBox1.Value & ", " & ComboBox2.Value & ", " &


ComboBox3.Value

Range("F" & LigneChoisi) = Résultat
End Sub

en pronto
isabelle





Que tal Isabelle,

Ala premiere question je reponds par : sur une feuille
A la 2º: colonne Det E : ex D1 Nokia, E1 1100- D2 Nokia, E2



2100.........

D48 Samsung, E48 E700..........

Merci pòur ta reponse,
Un saludo
Francis

"isabelle" escribió en el mensaje
news:#


Hola! Francis,

est ce que les combobox sont mit sur une feuille ou sur un userform ?
ou sont situer les données Nokia.(1100,2100,3100,3200,3220....) ?

a+
isabelle





Bonsoir tout le monde et enchanté de vous decouvrir.

Je tatone dans l utilisation d'excel et vba et j'ai un petit coup



d'arret


que je n'arrive pas a resoudre.

J'ai trois combobox, dont les codes sont pour la 1º et la 3º:
Private Sub ComboBox1_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("A1").CurrentRegion.Address
ComboBox1.ListFillRange = Adresse
End Sub


Private Sub ComboBox3_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("H1").CurrentRegion.Address
ComboBox3.ListFillRange = Adresse
End Sub

La premiere est la liste des marques de telephones portables et la



troisieme


une liste de pannes communes.Ce que je souhaite c'est que la liste de





la

2º


combobox, s'actualise en fonction du choix effectue dans la premiere.
Ex: si je choisis Nokia dans la 1º il faut que la combo2 offre la liste



de


tous les modeles Nokia.(1100,2100,3100,3200,3220....). Et une fois que



j'ai


effectué le choix dans les trois combo, serait il possible que le



contenu de


mon choix s'affiche dans une cellule voisine ex: Nokia,3220,probleme de
micro. Ainsi je pourrais par comparaison avec une plage de données



offrir le


prix de la reparation dans la cellule contigue.

Je vous remercie par avance pour votre aide, et vous demande de bien



vouloir


m'excuser si certain de mes termes technique Excel ne sont pas tout a



fait


orthodoxe, mais cela fait plus de 12ans que je travaille avec excel
Espagnol.
Bonne nuit a tous
Francis
















Avatar
isabelle
a ne pas confondre avec le piment mexicain serrano :-)
isabelle


gourmande, mon ange!!!!
d'autres auraient dit " se queda del jamón" mais bon....
jps
PS entre quelques "copeaux" de serrano et un gâteau, fût-il aux meilleurs
fruits de la Huerta, j'ai tout de suite choisi...surtout avec un p'tit coup
de Rioja


"isabelle" a écrit dans le message de
news:

:-))))
non non je connais que quelque mot
hola
en pronto
et
Se queda del pastel
;-)
isabelle




qué pasa por aquí? se habla castellano?
madre mía!!!!!!
ya me voy
jps

"isabelle" a écrit dans le message de
news:


Hola! Francis,

ajoute cette macro pour la combobox 2

Private Sub ComboBox1_Change()
Dim Adresse As String
x = Application.Match(ComboBox1.Value, Sheets("Hoja1").[D:D], 0)
y = Application.Match(ComboBox1.Value, Sheets("Hoja1").[D:D], 1)
Adresse = Sheets("Hoja1").Range("E" & x & ":E" & y).Address
ComboBox2.ListFillRange = Adresse
End Sub

et celle-ci pour la cellule voisine, j'ai supposé que c'etait en colonne




F

Private Sub CommandButton1_Click()
LigneChoisi = Application.Match(Val(ComboBox2.Value),
Sheets("Hoja1").[E:E], 0)
Résultat = ComboBox1.Value & ", " & ComboBox2.Value & ", " &


ComboBox3.Value


Range("F" & LigneChoisi) = Résultat
End Sub

en pronto
isabelle






Que tal Isabelle,

Ala premiere question je reponds par : sur une feuille
A la 2º: colonne Det E : ex D1 Nokia, E1 1100- D2 Nokia, E2



2100.........


D48 Samsung, E48 E700..........

Merci pòur ta reponse,
Un saludo
Francis

"isabelle" escribió en el mensaje
news:#



Hola! Francis,

est ce que les combobox sont mit sur une feuille ou sur un userform ?
ou sont situer les données Nokia.(1100,2100,3100,3200,3220....) ?

a+
isabelle






Bonsoir tout le monde et enchanté de vous decouvrir.

Je tatone dans l utilisation d'excel et vba et j'ai un petit coup



d'arret



que je n'arrive pas a resoudre.

J'ai trois combobox, dont les codes sont pour la 1º et la 3º:
Private Sub ComboBox1_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("A1").CurrentRegion.Address
ComboBox1.ListFillRange = Adresse
End Sub


Private Sub ComboBox3_GotFocus()
Dim Adresse As String
Adresse = Sheets("Hoja1").Range("H1").CurrentRegion.Address
ComboBox3.ListFillRange = Adresse
End Sub

La premiere est la liste des marques de telephones portables et la



troisieme



une liste de pannes communes.Ce que je souhaite c'est que la liste de





la


2º



combobox, s'actualise en fonction du choix effectue dans la premiere.
Ex: si je choisis Nokia dans la 1º il faut que la combo2 offre la







liste

de



tous les modeles Nokia.(1100,2100,3100,3200,3220....). Et une fois







que

j'ai



effectué le choix dans les trois combo, serait il possible que le



contenu de



mon choix s'affiche dans une cellule voisine ex: Nokia,3220,probleme







de

micro. Ainsi je pourrais par comparaison avec une plage de données



offrir le



prix de la reparation dans la cellule contigue.

Je vous remercie par avance pour votre aide, et vous demande de bien



vouloir



m'excuser si certain de mes termes technique Excel ne sont pas tout a



fait



orthodoxe, mais cela fait plus de 12ans que je travaille avec excel
Espagnol.
Bonne nuit a tous
Francis




















1 2