lister les polices

[stargate]

Bonjour,


Comment peut-on lister les polices dans un combobox?



Merci

 

[AV]

Ave,

Il existe déjà une combobox listant les polices dans la barres d'outils Format....

Si tu veux rajouter une combobo dans la barre d'outils standard :

Sub zz_ajout()
Set C = Application.CommandBars('Standard').Controls.Add(Type:=msoControlComboBox, ID:=1728, Before:=23)
End Sub


Si tu veux initialiser une combo se situant sur la feuille ''Feuil1'' :

Sub zz_iniComboListePolices()
With Sheets('Feuil1')
.ComboBox1.Clear
Set C = Application.CommandBars.FindControl(ID:=1728)
For I = 1 To C.ListCount
.ComboBox1.AddItem C.List(I)
Next I
End With
End Sub

AV [aaa]