VBA_MFC d'une colonne en fonction de l'entête

Bonjour à tous,

Malgré mes recherche je n'ai pas trouvé comment faire , (ni ne sais si cela est possible )de mettre en forme les colonnes d'un tableau en fonction de l'entête avec VBA. Pour faire simple j'ai un tableau avec les jours du mois et je souhaiterais colorer les colonnes qui correspondent à des samedis et dimanches.

Vous trouverez ci dessous mon dernier test mais je ne pense pas être sur la bonne voie.... :/ :

Sub formatageWE()

Application.ScreenUpdating = False
'Création de l'objet Range
Dim MaPlage As Range
Set MaPlage = Union(Range("B14:AF21"), Range("B31:AF38"))

'Colore les week end en bleu
MaPlage.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:=" OU($B$12=1;$B$12=7)"
MaPlage.FormatConditions(1).Interior.Color = RGB(214, 220, 228)
MaPlage.FormatConditions(1).Font.Color = RGB(214, 220, 228)

 Application.ScreenUpdating = True 'Facultatif

Et mon fichier en PJ si jamais ca peut aider !

Merci pour votre aide ! et bonne journée à tous :)

A.

Bonjour

Pourquoi VBA ?

Ceci suffit

Bonjour à tous,

Sinon si vous tenez au VBA:

Sub formatageWE()
    Application.ScreenUpdating = False
    'Création de l'objet Range
    Dim MaPlage As Range
    Set MaPlage = Union(Range("B14:AF21"), Range("B31:AF38"))

    'Supprime le formatage conditionnel existant dans cette plage
    MaPlage.FormatConditions.delete

    'Colore les week end en bleu
    MaPlage.FormatConditions.Add Type:=xlExpression, Formula1:="=OU(B$12=1;B$12=7)"
    MaPlage.FormatConditions(1).Interior.Color = RGB(214, 220, 228)
    MaPlage.FormatConditions(1).Font.Color = RGB(214, 220, 228)
End Sub

Cdlt

Bonjour,

Merci beaucoup pour vos retours!

@78Chris , oui malheureusement je passe par VBA , car les personnes qui utilisent le fichier on tendance à tout toucher ce qui fait sauter les MFC à chaque fois :/

@Arturo83 Merci pour le code :D tu sauves ma journée !

Bonne journée !

A