Macro pour supprimer et créer des styles dans un classeur, Excel VBA

À 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:

  1.  Mettez en forme votre tableau ou des plages de cellules spécifiques.
  2.  Sélectionnez la zone formatée que vous souhaitez enregistrer en tant que modèle.
  3.  Démarrez la macro suivante à partir la macro suivante:
  4. 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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x