À l’aide de modèles de format, vous pouvez rapidement formater des tableaux entiers ou des zones individuelles. Vous pouvez combiner plusieurs étapes de formatage et ajouter des formats plus complexes en un clic de souris.
Vous pouvez supprimer des styles en utilisant la macro suivante .
Sub SupprimerLesModelesDeFormat () Dim stylemodele As Object On Error Resume Next For Each stylemodele In ActiveWorkbook.Styles stylemodele.Delete Next stylemodele End Sub
La propriété Styles renvoie une liste de tous les styles contenus dans le classeur. Tous les modèles de format du classeur sont supprimés via une boucle For Next, mais le modèle de format STANDARD ne peut pas être supprimé. L’instruction On Error intercepte la tentative de suppression de cette feuille de style. Cependant, vous pouvez également empêcher la suppression du modèle au format STANDARD d’une autre manière. Pour ce faire, utilisez la propriété BuiltIn.
Sub FormaterLesModeles2 () Dim stylemodele As Object For Each stylemodele In ActiveWorkbook.Styles If stylemodele.BuiltIn = False Then stylemodele.Delete End If Next stylemodele End Sub
La propriété BuiltIn rapporte la valeur True si le modèle de format est intégré, c’est-à-dire qu’il est intégré en permanence dans Excel.
La suppression de styles d’un classeur supprime également la mise en forme dans le classeur.
Lors de la création de styles, procédez comme suite:
- Mettez en forme votre tableau ou des plages de cellules spécifiques.
- Sélectionnez la zone formatée que vous souhaitez enregistrer en tant que modèle.
- Démarrez la macro suivante à partir la macro suivante:
-
Sub FormatageActuelEnTantQueModele () ActiveWorkbook.Styles.Add Name:="Cadre de titre", _ basedon:=ActiveCell End Sub
La méthode Add crée une nouvelle feuille de style et l’ajoute au classeur actif. Deux arguments sont donnés: Le premier argument Name contient le nom du modèle de format. Le deuxième argument indique où le modèle de format doit obtenir la mise en forme. Dans l’exemple , la cellule active est utilisée comme base pour le formatage. Dans l’exemple suivant, un modèle de format est créé dans lequel le deuxième argument est omis et la mise en forme est spécifiée à la place.
Sub CreerUnModeleDeStyle () On Error Resume Next With ActiveWorkbook.Styles.Add(Name:="Titre1") .Font.Name = "Arial" .Font.Size = 25 End With
Dans le code , vous avez besoin de l’instruction On Error, qui garantit qu’aucun message d’erreur ne se produit lors d’une tentative d’écrasement d’un modèle de format existant.