liste déroulant (VBA)

[jerems]

Bonjour,

J'ai mis le code ci-dessous qui me permets d'avoir une liste déroulant dans un userform:

Private Sub userform_initialize()

ComboBox1.AddItem ('intelligent')
ComboBox1.AddItem ('curieux')
ComboBox1.AddItem ('remarquable')
ComboBox1.AddItem ('bizarre')
ComboBox1.AddItem ('louche')
ComboBox1.AddItem ('changeant')
ComboBox1.AddItem ('lunatique')

End Sub

Mon problème c'est que dans une boîte de dialogue, j'ai besoin de dupliquer ce code sur plusieurs userform mais il m'indique une erreur si je le fait.

Pouvez-vous m'aider?

Merci
Jerems

 

[pierrejean]

bonjour jerems

pour alimenter tes listbox je te suggere de passer par quelque chose du genre

For Each Control In UserForm1.Controls
n = 1
If Control.Name = 'ComboBox' & n Then
Control.AddItem ('intelligent')
Control.AddItem ('curieux')
Control.AddItem ('remarquable')
Control.AddItem ('bizarre')
Control.AddItem ('louche')
Control.AddItem ('changeant')
Control.AddItem ('lunatique')
End If
Next

 

[jerems]

Bonjour PierreJean,

J'ai essayé , mais ça ne fonctionne malheureusement pas!

Jerems

 

[pierrejean]

re jerems

vois le fichier joint [file name=jerems.zip size=8636]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jerems.zip[/file]