bonjour a tous
quelqu'un sait comment remplir une zone combinée autrement qu'avec une plage ?
j'ai essayé plein de chose mais rien n'est bon
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub remplissage() tablo = Array(13, 14, 15, 16, 17, 18, 19) 'Feuil1.shapes("Zone combinée 1").ControlFormat.ListFillRange = "$A$1:$A$11"'fonctionne 'Feuil1.DropDowns("Zone combinée 1").ListFillRange = "$A$1:$A$11"'fonctionne Feuil1.DropDowns("Zone combinée 1").ListFillRange = Application.Transpose(tablo) 'pas d'erreur mais ne rempli pas 'Feuil1.DropDowns("Zone combinée 1").List = tablo 'erreur (impossible delire la propriété list de la classe dropdowns) End Sub
Partager