comment trouver une colonne dans une BD par son nom via VBA

Bonjour à tous,
j'ai deux listBoxs, dans le 1er, je choisi "X" et le 2ème doit m'afficher "Y" telque: ListIndex de X=ListIndex de Y,
seulement Y se trouve dans colonne d'une base de données, et cette colonne change de place,
donc je dois me référer à la colonneY,
J'ai fait ceci:

Code:

---

1 2	I = X.ListIndex + 1 Y.AddItem Cells(I, 8)

---

car dans l'ActiveSheet, la colonne de Y se trouve à la 8ème, mais j'aimerais à la place de 8, mettre autre chose si je ne sais pas à quelle rang est-elle cette colonne.
Comment faire?

Bonjour

si la première ligne contient les en-tête de colonne tu peux la rechercher de cette manière

en supposant que l'en-tête a pour nom "ColCherche"

Code:

---

1 2 3 4 5 6

'Colonne déclaré en Integer   Colonne = rows(1).find("ColCherche",lookin:=xlValues,lookat:=xlWhole).column I = X.ListIndex + 1 Y.AddItem Cells(I, Colonne )

---

merci infiniment Zyhack, c'est impec!!!:ccool: