Bryan a un classeur Excel qui est partagé dans son bureau. Il a créé le classeur et défini la police par défaut, mais quelqu’un change la police.

Bryan se demande s’il peut forcer la police à utiliser la police souhaitée lorsque le classeur est fermé.

Un moyen simple de procéder consiste à utiliser le gestionnaire d’événements BeforeClose pour le classeur. Vous pouvez demander au gestionnaire de parcourir chacune des feuilles de calcul et de définir la police de toutes les cellules de cette manière:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         s.Cells.Font.Name = "Calibri"

Next End Sub

Cela définit la police sur Calibri, mais vous pouvez modifier le nom de la police, si nécessaire. Si vous devez modifier d’autres caractéristiques de police, vous pouvez modifier le gestionnaire d’événements pour le faire:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         With s.Cells.Font             .Name = "Calibri"

.Size = 10         End With     Next End Sub

Vous devrez faire attention, cependant, en modifiant trop de caractéristiques de police, car vous pourriez finir par vous débarrasser de certaines que vous souhaitez conserver, telles que le gras ou l’italique.

N’oubliez pas que ces macros doivent être ajoutées à l’objet ThisWorkbook dans Visual Basic Editor.

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (4801) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.