Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

11ComboBox

B

BerJean

Guest
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
 
H

Hervé

Guest
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é
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…