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