Autre façon qu'une MFC ?

Bonjour à tous,

quelqu'un pourrait-il m'aider ?

en D43, j'ai une formule qui me renvoi P10, P10* ou vide selon les valeurs dans une autre cellule :

=SI(D67=0;"P10";SI(D67=1;"";SI(D67>=2;"P10*")))

Je souhaiterai :

- lorsque D43 affiche P10 alors le fond de la cellule est en rouge avec une écriture en blanc

- lorsque D43 affiche P10* alors le fond de la cellule est en bleu clair avec une écriture en bleu foncé - - lorsque D43 affiche vide alors le fond de la cellule est en blanc avec une écriture en automatique

Je sais le faire avec une mise en forme conditionnelle mais je souhaiterai une autre façon.

Je vous remercie d'avance pour l'aide que vous pourrez m'apporter.

Cordialement,

jéjé

Bonjour,

A mettre dans le module de la feuille, la modif se fera sur un changement de valeur dans n'importe quelle cellule :

Private Sub Worksheet_Change(ByVal Target As Range)

    With Range("D43")

        If Range("D43").Value = "P10" Then
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 2
        ElseIf Range("D43").Value = "P10*" Then
            .Interior.ColorIndex = 37
            .Font.ColorIndex = 5
        Else
            .Interior.ColorIndex = 0
            .Font.ColorIndex = xlNone

        End If

    End With

End Sub

Merci beaucoup pour ton aide

A bientot

jéjé

oupss désolé these,

j'ai oublié de préciser que la valeur renvoyée pouvait aller de la cellule D43 à AH43.

Comment peut-on modifier le code stp?

Merci d'avacne,

cdt,

jéjé

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("D43:AH43")) Is Nothing Then Exit Sub

    With Target

        If .Value = "P10" Then

            .Interior.ColorIndex = 3
            .Font.ColorIndex = 2

        ElseIf .Value = "P10*" Then

            .Interior.ColorIndex = 37
            .Font.ColorIndex = 5

        Else

            .Interior.ColorIndex = 0
            .Font.ColorIndex = 0

        End If

    End With

End Sub