Gérer les styles de cellules

Bonjour le forum !

Avant toutes choses : joyeuses fêtes à tous !

Ceci dit, voici mon nouveau défi : je souhaiterais, dans le classeur joint, que ma macro "Définir_styles" s'inspire de chacune des 16 cellules d'une plage donnée pour définir un style spécifique. Cela m'aiderait à effectuer automatiquement la mise en page de documents élaborés par d'autres macros...

J'ai bien réalisé la boucle, mais les styles créés par ma macro (Style_BPU_x_y) sont vierges de toute mise en forme, ils ne s'inspirent pas du tout de la cellule sélectionnée au préalable.

Je pensais pouvoir exploiter les résultats obtenus avec l'enregistreur de macro sur une seule cellule, résultats qui sont conformes à ce que je souhaiterais faire... Selon vous, y a t'il un truc qui cloche dans mon code ?

Merci pour vos contributions ! Cordialement, Daniel

15styles.xlsm (27.65 Ko)

Bonjour,

Une proposition à adapter.

Cdlt.

Public Sub CreateStyles()
Dim I As Long, J As Long, k As Long
    For I = 4 To 11
        For J = 3 To 4
            k = k + 1
            ActiveWorkbook.Styles.Add _
                    Name:="je_" & Format(k, "00"), _
                    BasedOn:=ActiveSheet.Cells(I, J)
        Next J
    Next I
End Sub

Public Sub DeleteStyles()
Dim st As Style
    For Each st In ActiveWorkbook.Styles
        If Left(st.Name, 3) = "je_" Then st.Delete
    Next st
End Sub

Merci Jean-Eric,

Je teste dans la journée...

Cordialement, Daniel

Rechercher des sujets similaires à "gerer styles"