11ComboBox

[BerJean]

Bonjour à Tous,

Avec les Lignes ci-dessous je veux remplir 11 ComboBox d'une même
liste, Y-a-t-il un moyen plus simple que de répéter 11 fois ces lignes.

With Sheets("Feuil2")
ComboBox2.List = Range(.[a1], .[A65536].End(xlUp)).Value
End With

BerJean

 

[Hervé]

Bonjour

un truc dans ce style, sans avoir testé :


With Sheets("Feuil2")
For Each ctrl In UserForm1.Controls
If Left(ctrl.Name, 5) like "combo" Then
ctrl.List = Range(.[a1], .[A65536].End(xlUp)).Value
end if
next ctrl
end with

Salut
Hervé

 

[BerJean]

Merci Hervé