Police cellule

[nico]

bonjour,

j'ai écrit ce code mais j'ai un problème sur le nom de la police :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim reponse As Boolean

reponse = Application.InputBox(prompt:='Est-ce qu'une mise en forme spécifique doit être appliquée à la feuille insérée? True si oui, False si non', _
Title:='Saisie', Type:=3)

If reponse = True Then
With Cells
.ColumnWidth = 4
.RowHeight = 16
.Font.Name = ????
.Font.Size = 13
End With
End If

End Sub

quelqu'un peut m'aider?merci !!
nico

 

[Marco60]

Salut nico,
j'ai fais une macro à la main, et cela m'a donné ceci :

.name = ' nom de la police'

A+

Marc

 

[nico]

merci bcp