Lorsque vous travaillez avec d’autres personnes qui utilisent Excel, il n’est pas inhabituel de copier des feuilles de calcul de leurs classeurs dans votre propre classeur. Lorsque vous procédez ainsi, la feuille de calcul n’est pas la seule chose qui est copiée: Excel copie également leurs styles de mise en forme dans votre classeur. La suppression manuelle des styles indésirables peut être un problème, selon le nombre de styles. La suppression des styles définis par l’utilisateur est cependant très simple si vous utilisez une macro. La macro suivante supprimera rapidement les styles indésirables:

Sub StyleKill()

Dim styT As Style     Dim intRet As Integer

For Each styT In ActiveWorkbook.Styles         If Not styT.BuiltIn Then             intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)

If intRet = vbYes Then styT.Delete         End If     Next styT End Sub

La macro n’a besoin que d’une petite entrée utilisateur. Chaque fois que la macro détecte un style défini par l’utilisateur, il vous est demandé si vous souhaitez le supprimer. Cliquer sur le bouton Oui entraîne la suppression du style du classeur.

Vous devez être conscient des limites d’une approche macro comme celle-ci.

La plus grande limitation est que si votre classeur est corrompu de quelque manière que ce soit (et, oui, il est très possible que les styles d’un classeur soient corrompus), cette macro ne corrigera pas cette corruption. Au lieu de cela, vous voudrez peut-être regarder une solution tierce pratique (XLStylesTool) qui peut faire des merveilles si vous avez besoin de nettoyer vos styles de manière plus complète. Vous pouvez trouver plus d’informations sur XLStylesTool ici:

https://sergeig888.wordpress.com/2011/03/21/net4-0-version-of-the-xlstylestool-is-now-available/

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

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

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici: link: / excel-Deleting_Unwanted_Styles [Suppression des styles indésirables].