Amélioration / Modification AddItem

Bonjour,

Je suis confronté à une question à laquelle malgré moult recherches, je ne trouve pas de réponse, je fais donc appel à vos connaissances !

J'ai récupéré ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Personnalisation1() On Error Resume Next PersoNomBD = "Gestions Véh." PersoNomColonne = "Type" For BoucleCol = 2 To NbColonnes If Cells(1, BoucleCol) = PersoNomColonne Then PersoNuméroColonne = BoucleCol Next BoucleCol If NomBD = PersoNomBD And Cells(1, PersoNuméroColonne) = PersoNomColonne Then   Controls("Champ" & PersoNuméroColonne).Clear Controls("Champ" & PersoNuméroColonne).AddItem "L1 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L1 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L1 H3" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H3" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H3"   Controls("Champ" & PersoNuméroColonne).Width = 75 Controls("Champ" & PersoNuméroColonne).Height = 16 Controls("Champ" & PersoNuméroColonne).BackColor = vbWhite Controls("Champ" & PersoNuméroColonne).ForeColor = vbBlue Controls("Champ" & PersoNuméroColonne).ShowDropButtonWhen = fmShowDropButtonWhenAlways   Else End If End Sub

---

Ce code marche bien et me conviens... Ou presque... Je souhaite l'utiliser pour +/- 150 "Références", qui évolueront régulièrement...

Les modifier directement dans VBA (même trimestrielles) sont donc inenvisageables...

Je voudrai donc placer, par exemple, ma liste de "Références" dans la colonne "A" de la "Feuil1"
J'aimerai, si possible, une solution qui resterai dans ce type d' "architecture"

Avant de poster, j'ai bien entendu mis les mains dans le cambouis et longuement cherché sur le net, mais sans succès...

Merci d'avance pour vos réponses !

Excellemment votre...

R.

Hum...

Je n'ai pas bien compris...

En fait tu veux qu'à la place de changer dans le code tes deux références, c'est-à-dire celles-ci :

Code:

---

1 2	PersoNomBD = "Gestions Véh." PersoNomColonne = "Type"

---

les changer en cellule A1 et A2 par exemple puis exécuter ta macro ?

Heu... Non... Je savais que c'était pas clair !!

C'est passer de ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Controls("Champ" & PersoNuméroColonne).AddItem "L1 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L1 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L1 H3" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L2 H3" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H1" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H2" Controls("Champ" & PersoNuméroColonne).AddItem "L3 H3" ' sur +/- 150 lignes...

---

A un truc du genre :

Code:

---

Controls("Champ" & PersoNuméroColonne).AddItem "Toutes les valeurs Colonne A"

---

Dans la colonne "A" de la "Feuil1" je mets :
"L1 H1"
"L1 H2"
"L1 H3"
"L2 H1"
"L2 H2"
"L2 H3"
"L3 H1"
"L3 H2"
"L3 H3"
......

Comme ça, au quotidien je peux modifier ma liste de choix sur la "Feuil1", sans devoir aller faire les modifications dans le code VBA.
C'est plus simple de faire un copier/coller dans une colonne, que d'ouvrir un code VBA et de farfouiller dedans...

Tente ça :

Code:

---

1 2 3 4 5

With Worksheets("Feuil1") For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1 Controls("Champ" & PersoNuméroColonne).AddItem .Range("A1").Offset(i, 0).Value Next i End With

---

Je n'ai aucune idée si ça fonctionne avec l'objet "Control" que je n'ai jamais utilisé.
Tiens moi au courant ! :ccool:

Salut,

J'ai essayé ton code (tel quel et en le triturant...) sans succès...

Peut-être :

Code:

---

1 2 3 4 5 6 7

Dim str As String   For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1 str = Worksheets("Feuil1").Range("A1").Offset(i, 0).Value   Controls("Champ" & PersoNuméroColonne).AddItem str Next i

---

:oops: