changer police avec condition

[GHISLAIN]

bonjour a tous

j ai trouvé une macro qui change controle les cellules si la valeur est "*" si oui change la police en ""Wingdings 3"

Dim c As Range
For Each c In Worksheets("essai1").Range("f15:f" & Range("f65536").End(xlUp).Row)
If c.Value = "*" Then
With c.Font
.Name = "Wingdings 3"
End With
End If
Next c

je voudrai apporter une modif a ce code et la j ai besoin de votre aide
je voudrai que le controle s 'effectue sur les memes valeurs mais si la cellule contient le "*" que ce soit la cellule se trouvant en colonne O qui modifie la police en "Wingdings 3" et si la cellule controlée n'a pas le "*" que la police soit "arial"

merci a tous de votre aide

amicalement

ghislain

 

[Guest]

Bonjour,

    Dim c As Range
    With Worksheets("essai1")
        For Each c In .Range("f15:f" & Range("f65536").End(xlUp).Row)
            .Range("O" & c.Row).Font.Name = Array("Arial", "Wingdings 3")(Abs(c = "*"))
        Next c
    End With

A+

 

[GHISLAIN]

Re : changer police avec condition

bonsoir Hasco,
je te remercie de t etre penchée sur mon fil et d avoir apportee la solution
bonne soiree amicalement ghislain