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.

_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 (2135) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Deleting_Unwanted_Styles [Suppression des styles indésirables].