N
nico
Guest
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
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