B BerJean Guest 7 Janvier 2005 #1 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
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 7 Janvier 2005 #2 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é Vote positif 0 Vote négatif
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é