Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

[libellule85]

Bonjour le forum,


J'aimerais que si la police de la cellule D5 est en blanc la police de la cellule E5 se mette en bleue etc...

D'avance merci pour votre aide

 

[DoubleZero]

Re : Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

Bonjour, libellule85, le Forum,

Avec cette macro... si j'ai bien compris le besoin (cellule en "e" au lieu de "d") 😕

Option Explicit
Sub MFC_selon_couleur_police()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "e").End(xlUp).Row To 5 Step -1
        If Range("e" & i).Font.ColorIndex = 2 Then Range("e" & i).Offset(, -1).Font.ColorIndex = 1
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[libellule85]

Re : Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

Bonjour DoubleZéro,

C'est bien => si la police de la cellule en D5 est en blanc mettre la police de la cellule E5 en bleue.

En fait ce que je veux : si je masque le contenu de la cellule D5 cela masque automatiquement le contenu de la cellule E5.

 

[DoubleZero]

Re : Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

Re-bonjour,

Dans ce cas, peut-être ainsi ?...

Sub MFC_selon_couleur_police_V2()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "d").End(xlUp).Row To 5 Step -1
        If Range("d" & i).Font.Color = 16777215 Then Range("d" & i).Offset(, 1).Font.Color = 12611584
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[libellule85]

Re : Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

Re DoubleZéro,

C'est exactement ce que je recherchais, un grand grand merci pour ton aide.

Bonne soirée