Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liste avec choix

Liste avec choix

3 réponses
Avatar
Martin
Bonjour =E0 tous,

Je dois cr=E9er par code deux listes et je dois =E9galement=20
ins=E9rer des choix dans chacunes de ses listes.
Lors de la cr=E9ation de la premi=E8re liste, il n'y a pas de=20
probl=E8me et j'ins=E8re les choix dans la liste.
Lors de la cr=E9ation de la 2e liste, il n'y pas de probl=E8me=20
sauf que je ne peux pas ins=E9rer les choix dans cette 2e=20
liste. Je re=E7ois l'erreur "Propri=E9t=E9 ou m=E9thode non g=E9r=E9e=20
par cet objet".
Pourtant je fais la m=EAme chose que ma premi=E8r liste !!!
Que dois-je faire pour r=E9gler mon probl=E8me ???

Voici mon code:


'Cr=E9ation de la liste box des essences
Worksheets("Criteres").Range("B3:B3") =3D "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold =3D True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment =3D xlCenter
=20
Worksheets("Criteres").OLEObjects.Add
(ClassType:=3D"Forms.ComboBox.1", Link:=3DFalse, _
DisplayAsIcon:=3DFalse, Left:=3D10, Top:=3D50, Width:=3D150,=20
Height:=3D18 _
).Select
=20
Worksheets("Criteres").ComboBox1.AddItem "=C9rabli=E8res=20
(s)"
Worksheets("Criteres").ComboBox1.AddItem "Sapini=E8re =E0=20
bouleau jaune (t)"
Worksheets("Criteres").ComboBox1.AddItem "Sapini=E8re =E0=20
bouleau blanc (u)"
Worksheets("Criteres").ComboBox1.AddItem "Pessi=E8re =E0=20
mousses (v)"
Worksheets("Criteres").ComboBox1.BoundColumn =3D 0
Worksheets("Criteres").ComboBox1.ListIndex =3D 0
=20
'Cr=E9ation de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") =3D "Type de=20
structure"
Worksheets("Criteres").Range("E3:E3").Font.Bold =3D True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment =3D xlCenter
=20
Worksheets("Criteres").OLEObjects.Add
(ClassType:=3D"Forms.ComboBox.1", Link:=3DFalse, _
DisplayAsIcon:=3DFalse, Left:=3D200, Top:=3D50, Width:=3D150,=20
Height:=3D18 _
).Select
=20
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
''Prochain ligne en probl=E8me''
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Worksheets("Criteres").ComboBox2.AddItem "Irr=E9guli=E8re=20
(A)"
'Worksheets("Criteres").ComboBox2.AddItem "R=E9guli=E8re=20
(B)"
'Worksheets("Criteres").ComboBox2.BoundColumn =3D 0
'Worksheets("Criteres").ComboBox2.ListIndex =3D 0


Merci =E0 l'avance !!!
.
Signaler un problème avec ce contenu

3 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
Avatar
Xav
Bonjour Martin

chez moi, je en parvenais pas à initialiser la première liste.

j'ai un peu cherché et en fait voici un code qui fonctionne (la partie Set
Boite... ainsi que la boucle with ne sont pas obligatoires mais évitent les
répétitions)

ComboBox1 (ou 2) n'existe pas en tant que tel et il faut donc le rattacher à
la collection OLEObjects et l'identifier en tant qu'objet de cette
collection d'où le ".Object"

Sub test()
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range("B3:B3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add(ClassType:="Forms.combobox.1",
Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0, Height: _
).Select

Set Boite1 = Worksheets("Criteres").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "Érablières (s)"
.Object.AddItem "Sapinière à bouleau jaune (t)"
.Object.AddItem "Sapinière à bouleau blanc (u)"
.Object.AddItem "Pessière à mousses (v)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de structure "
Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range("E3:E3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add(ClassType:="Forms.ComboBox.1",
Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0, Height: _
).Select

Set boite2 = Worksheets("Criteres").OLEObjects("ComboBox2")

With boite2

.Object.AddItem "Irrégulière (A)"
.Object.AddItem "Régulière(B)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

Cells(1, 1).Select
End Sub

--
Cordialement

@+
Xav
"Martin" a écrit dans le message de
news:0e1d01c4a652$ede98610$
Bonjour à tous,

Je dois créer par code deux listes et je dois également
insérer des choix dans chacunes de ses listes.
Lors de la création de la première liste, il n'y a pas de
problème et j'insère les choix dans la liste.
Lors de la création de la 2e liste, il n'y pas de problème
sauf que je ne peux pas insérer les choix dans cette 2e
liste. Je reçois l'erreur "Propriété ou méthode non gérée
par cet objet".
Pourtant je fais la même chose que ma premièr liste !!!
Que dois-je faire pour régler mon problème ???

Voici mon code:


'Création de la liste box des essences
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0,
Height: _
).Select

Worksheets("Criteres").ComboBox1.AddItem "Érablières
(s)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau jaune (t)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau blanc (u)"
Worksheets("Criteres").ComboBox1.AddItem "Pessière à
mousses (v)"
Worksheets("Criteres").ComboBox1.BoundColumn = 0
Worksheets("Criteres").ComboBox1.ListIndex = 0

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de
structure"
Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0,
Height: _
).Select

''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
''Prochain ligne en problème''
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Worksheets("Criteres").ComboBox2.AddItem "Irrégulière
(A)"
'Worksheets("Criteres").ComboBox2.AddItem "Régulière
(B)"
'Worksheets("Criteres").ComboBox2.BoundColumn = 0
'Worksheets("Criteres").ComboBox2.ListIndex = 0


Merci à l'avance !!!
.
Avatar
Martin
Merci beaucoup !!!
Cela fonctionne très bien.
Je ne peux pas demander mieux.
En espérant que je puisse t'aider dans le futur.

Merci encore !!!


-----Message d'origine-----
Bonjour Martin

chez moi, je en parvenais pas à initialiser la première
liste.


j'ai un peu cherché et en fait voici un code qui
fonctionne (la partie Set

Boite... ainsi que la boucle with ne sont pas
obligatoires mais évitent les

répétitions)

ComboBox1 (ou 2) n'existe pas en tant que tel et il faut
donc le rattacher à

la collection OLEObjects et l'identifier en tant qu'objet
de cette

collection d'où le ".Object"

Sub test()
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment = xlCenter


Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.combobox.1",

Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0,
Height: _

).Select

Set Boite1 = Worksheets("Criteres").OLEObjects
("ComboBox1")


With Boite1


.Object.AddItem "Érablières (s)"
.Object.AddItem "Sapinière à bouleau jaune (t)"
.Object.AddItem "Sapinière à bouleau blanc (u)"
.Object.AddItem "Pessière à mousses (v)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de
structure "

Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment = xlCenter


Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1",

Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0,
Height: _

).Select

Set boite2 = Worksheets("Criteres").OLEObjects
("ComboBox2")


With boite2

.Object.AddItem "Irrégulière (A)"
.Object.AddItem "Régulière(B)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

Cells(1, 1).Select
End Sub

--
Cordialement

@+
Xav
"Martin" a écrit
dans le message de

news:0e1d01c4a652$ede98610$
Bonjour à tous,

Je dois créer par code deux listes et je dois également
insérer des choix dans chacunes de ses listes.
Lors de la création de la première liste, il n'y a pas de
problème et j'insère les choix dans la liste.
Lors de la création de la 2e liste, il n'y pas de problème
sauf que je ne peux pas insérer les choix dans cette 2e
liste. Je reçois l'erreur "Propriété ou méthode non gérée
par cet objet".
Pourtant je fais la même chose que ma premièr liste !!!
Que dois-je faire pour régler mon problème ???

Voici mon code:


'Création de la liste box des essences
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0,
Height: _
).Select

Worksheets("Criteres").ComboBox1.AddItem "Érablières
(s)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau jaune (t)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau blanc (u)"
Worksheets("Criteres").ComboBox1.AddItem "Pessière à
mousses (v)"
Worksheets("Criteres").ComboBox1.BoundColumn = 0
Worksheets("Criteres").ComboBox1.ListIndex = 0

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de
structure"
Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0,
Height: _
).Select

''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
''Prochain ligne en problème''
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Worksheets("Criteres").ComboBox2.AddItem "Irrégulière
(A)"
'Worksheets("Criteres").ComboBox2.AddItem "Régulière
(B)"
'Worksheets("Criteres").ComboBox2.BoundColumn = 0
'Worksheets("Criteres").ComboBox2.ListIndex = 0


Merci à l'avance !!!
..



.



Avatar
Xav
Avec plaisir

ce genre de peit challenge permet de faire avancer le schmilblick :-))

--
Cordialement

@+
Xav
"Martin" a écrit dans le message de
news:21b401c4a6ef$ae734140$
Merci beaucoup !!!
Cela fonctionne très bien.
Je ne peux pas demander mieux.
En espérant que je puisse t'aider dans le futur.

Merci encore !!!


-----Message d'origine-----
Bonjour Martin

chez moi, je en parvenais pas à initialiser la première
liste.


j'ai un peu cherché et en fait voici un code qui
fonctionne (la partie Set

Boite... ainsi que la boucle with ne sont pas
obligatoires mais évitent les

répétitions)

ComboBox1 (ou 2) n'existe pas en tant que tel et il faut
donc le rattacher à

la collection OLEObjects et l'identifier en tant qu'objet
de cette

collection d'où le ".Object"

Sub test()
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment = xlCenter


Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.combobox.1",

Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0,
Height: _

).Select

Set Boite1 = Worksheets("Criteres").OLEObjects
("ComboBox1")


With Boite1


.Object.AddItem "Érablières (s)"
.Object.AddItem "Sapinière à bouleau jaune (t)"
.Object.AddItem "Sapinière à bouleau blanc (u)"
.Object.AddItem "Pessière à mousses (v)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de
structure "

Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment = xlCenter


Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1",

Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0,
Height: _

).Select

Set boite2 = Worksheets("Criteres").OLEObjects
("ComboBox2")


With boite2

.Object.AddItem "Irrégulière (A)"
.Object.AddItem "Régulière(B)"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

Cells(1, 1).Select
End Sub

--
Cordialement

@+
Xav
"Martin" a écrit
dans le message de

news:0e1d01c4a652$ede98610$
Bonjour à tous,

Je dois créer par code deux listes et je dois également
insérer des choix dans chacunes de ses listes.
Lors de la création de la première liste, il n'y a pas de
problème et j'insère les choix dans la liste.
Lors de la création de la 2e liste, il n'y pas de problème
sauf que je ne peux pas insérer les choix dans cette 2e
liste. Je reçois l'erreur "Propriété ou méthode non gérée
par cet objet".
Pourtant je fais la même chose que ma premièr liste !!!
Que dois-je faire pour régler mon problème ???

Voici mon code:


'Création de la liste box des essences
Worksheets("Criteres").Range("B3:B3") = "Essences"
Worksheets("Criteres").Range("B3:B3").Font.Bold = True
Worksheets("Criteres").Range
("B3:B3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left:, Top:P, Width:0,
Height: _
).Select

Worksheets("Criteres").ComboBox1.AddItem "Érablières
(s)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau jaune (t)"
Worksheets("Criteres").ComboBox1.AddItem "Sapinière à
bouleau blanc (u)"
Worksheets("Criteres").ComboBox1.AddItem "Pessière à
mousses (v)"
Worksheets("Criteres").ComboBox1.BoundColumn = 0
Worksheets("Criteres").ComboBox1.ListIndex = 0

'Création de la liste box des types de structures
Worksheets("Criteres").Range("E3:E3") = "Type de
structure"
Worksheets("Criteres").Range("E3:E3").Font.Bold = True
Worksheets("Criteres").Range
("E3:E3").HorizontalAlignment = xlCenter

Worksheets("Criteres").OLEObjects.Add
(ClassType:="Forms.ComboBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left: 0, Top:P, Width:0,
Height: _
).Select

''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
''Prochain ligne en problème''
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Worksheets("Criteres").ComboBox2.AddItem "Irrégulière
(A)"
'Worksheets("Criteres").ComboBox2.AddItem "Régulière
(B)"
'Worksheets("Criteres").ComboBox2.BoundColumn = 0
'Worksheets("Criteres").ComboBox2.ListIndex = 0


Merci à l'avance !!!
..



.