Discussion :

[bickou]

Bonjour,

Etant novice ma question paraîtra très certainement idiote mais bon je me lance car je galère un peu.

Je souhaite à partir de la valeur d'un Textbox "TB_ID" mettre automatiquement une valeur dans différentes combobox notamment "ZLM_Ouvrages" et "ZLM_Elements".
Le choix de combobox viens du fait que je prévois ensuite de modifier la valeur du Textbox "TB_ID" selon le choix au sein des zones de liste en cas de non connaissance de l'ID.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Me.ZLM_Ouvrages.AddItem Sheets("BDMat").Cells(Me.TB_ID.Value, 2).Value
Me.ZLM_Ouvrages.ListIndex = 0
Me.ZLM_Elements.AddItem Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value
Me.ZLM_Elements.ListIndex = 0

Cela semble fonctionner ma question est que j'ai vu sur le tutoriel que l'on pouvait utiliser la propriété .List pour ajouter des lignes mais ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Me.ZLM_Ouvrages.List(0) = Sheets("BDMat").Cells(Me.TB_ID.Value, 2).Value
Me.ZLM_Elements.List(0) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

Est-on obligé d'ajouter des items avec la méthode additem puis d'attribuer une valeur à la liste, ou peut-on directement attribuer une valeur sans utiliser additem.

Désolé d'avance si je suis pas très clair.

[gnain]

Bonjour,

AddItem sert à ajouter
ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ZLM_Ouvrages.AddItem Sheets("BDMat").Cells(Me.TB_ID.Value, 2).Value
ZLM_Ouvrages.AddItem Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value
ZLM_Ouvrages.AddItem Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

.List(0) = ...
sert à modifier le premier élément dans ton combobox
ex.:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ZLM_Ouvrages.List(0) = Sheets("BDMat").Cells(Me.TB_ID.Value, 2).Value 'Modifie le premier élément de ton combobox pour une nouvelle valeur
ZLM_Elements.List(1) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value  'Modifie le 2e élément de ton combobox pour une nouvelle valeur
ZLM_Elements.List(2) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value  'Modifie le 3e élément de ton combobox pour une nouvelle valeur

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox ZLM_Ouvrages.List(0)

récupère le premier élément de ton combobox

en espérant de t'avoir éclairé.

[bickou]

Bonjour gnain,

Tout d'abord merci de ta réponse.

J'ai effectivement saisi que additem permet d'ajout des éléments à ma zone de liste, une sélection de l'item choisi permet d'attribuer la valeur à ma zone de liste. J'ai cependant rencontré un problème si je n'ai qu'un élément à ma zone de liste. Une erreur apparaissait alors, d'où ma ligne attribuant à ma zone de liste la première valeur de l'index de List. N'y a-t-il pas un moyen plus rapide d'associer directement une valeur à ma zone de liste?

Je pensais au départ que la propriété .list permettait justement cela or si je comprends bien cette propriété n'a pour objectif d'agir que sur l'ordre des données de la liste ajoutée grâce à additem et non sur la valeur en elle-même. C'est bien cela?


Car si je mets la ligne de code suivante ça plante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ZLM_Elements.List(2) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

Erreur 381 : impossible de définir la propriété de List

[gnain]

additem ajoute les éléments à ta liste

tandis que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ZLM_Elements.List(2) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

modifie le 3e élément du combobox qui à été ajouté par additem
si

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ZLM_Elements.List(3) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

modifie le 4e élément du combobox qui à été ajouté par additem

.list n'ajoute en aucun temps des donnée au combobox

tu dis que:

J'ai cependant rencontré un problème si je n'ai qu'un élément à ma zone de liste. Une erreur apparaissait alors,

et tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ZLM_Elements.List(2) = Sheets("BDMat").Cells(Me.TB_ID.Value, 3).Value

c'est normal que ca plante car tu veux modifier le 3e item du combobox quand il en existe pas

[bickou]

Merci pour ton explication tout s'éclaire

Je passe en résolu bonne soirée et encore merci.