Mise en forme conditionnelle dans une forme

Bonjour à tous,

dans le fichier joint, il y a un carré bleu, à l'interieur j'ai déssiné une forme à laquelle j'ai rattaché une cellule de la feuille 2.

J'aimerais que le résultat en feuil1 apparaisse avec la MFC de la cellule d'origine... et que donc dès que je change la valeur de feuil2'B3' il tienne compte de la MFC...

est ce possible selon vous ?

A moins que l'on puisse mettre une MFC sur dessin ?

Merci de votre aide

Bonjour,

Même si je ne suis pas fan du Worksheets.Activate j'ai pas trouvé d'autre alternative ... A insérer dans le module de votre feuille 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FORM As Variant
Set FORM = Worksheets("Feuil1").Shapes("Rectangle 2").TextFrame2.TextRange.Font
If Not Application.Intersect(Target, [B3]) Is Nothing Then
    Worksheets("Feuil1").Activate
    If Target > Target.Offset(, 1) Then
        FORM.Fill.ForeColor.RGB = RGB(146, 208, 80)
        FORM.Bold = msoTrue
    ElseIf Target < Target.Offset(, 1) Then
        FORM.Fill.ForeColor.RGB = RGB(255, 0, 0)
        FORM.Bold = msoTrue
    Else
        FORM.Fill.ForeColor.RGB = RGB(0, 0, 0)
        FORM.Bold = msoFalse
    End If
    Worksheets("Feuil2").Activate
End If
End Sub

Cdlt,

Bonjour Ergotamine,

tu veux dire quoi, par inserer dans le module de la feuille 2

Bonjour,

Par là je veux dire qu'après être dans le mode développeur (ALT + F11). Le module de votre Feuil2 c'est ce qui est indiqué en 2, après avoir double cliqué sur la Feuil2 (1) alors vous avez le code de votre feuille 2 destiné à contenir les procédures événementielles liées à cet objet.

Cdlt,

Merci ergotamine !!!!!!!