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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.