Liste Déroulante à partir d'une feuille Excel

Bonjour ! Je sollicite à nouveau votre aide !

J'ai une liste déroulante et j'aimerais que son contenu soit celui d'une liste que j'ai dans une feuille Excel, elle s'appelle : VARIABLES et les entrées de la liste vont de B3 à l'infini....

J'ai effectué ceci :

Private Sub UserForm_Initialize()
test = Sheets("VARIABLES").Range("B3").Value
test2 = Sheets("VARIABLES").Range("B4").Value

ComboBox1.AddItem (test)
ComboBox1.AddItem (test2)

End Sub

Donc comme vous l'aurez compris, je récupère chaque valeur dans B3, B4 etc... que je rajoute à ma liste déroulante.

Seulement, je veux faire une boucle pour qu'il les récupère automatiquement sans avoir à taper 90 lignes, genre test, test2, test3, test4, test5 etc...

Mais je ne voit pas du tout comment m'y prendre pour faire cette boucle, peut être quelque chose comme :

test = Sheets("VARIABLES").Range("B" & i).Value

ComboBox1.AddItem (test)

lol, bah en fait ça m'a l'air pas mal, je vais essayer ça cette aprem

En attendant, j'ai aussi un autre problème, mon formulaire à 4 ComboBox qui doivent contenir exactement la même liste, comment je peux dire quelque chose comme :

ComboBox1.Contenu = ComboBox2.Contenu ?

Merci de votre aide !

Bonjour,

tu peux essayer avec cette méthode :

Je nomme la zone concernée : "base"

et ensuite j'initialise tous les combobox par cette zone

Private Sub UserForm_Initialize()
Dim pl As Range
Set pl = Sheets("VARIABLES").Range("B3:B" & Sheets("VARIABLES").Range("B65536").End(xlUp).Row)
pl.Name = "base"
For i = 1 To 4
Me.Controls("ComboBox" & i).RowSource = "base"
Next i
End Sub

Merci encore pour ta réponse, tout marche très très bien !!!

Petite question, je n'ai pas compris ceci :

Me.Controls("ComboBox" & i).RowSource

Re-,

un combobox étant un contrôle d'un userform, je fais donc une boucle de 1 à 4 pour initialiser les combobox

Pour que cela fonctionne, il faut que les combobox soient nommés : Combobox1, Combobox2......

lol, oui j'avais compris tout ca

Mais c'est l'utilisation de :

Me.Controls

et

RowSource

qui me posent problème