Changer la couleur d'un objet selon une variable excel

Résolu

Capou -
Capou - 12 juin 2013 à 10:42

Bonjour,

Je souhaite que mon objet renommé BP_VALIDER change de couleur en automatique si la cellule AF26 de ma feuille passe à "OK" sur un changement de la feuille.

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("AF26").Value = "OK" Then
    With ActiveSheet.Shapes("BP_VALIDER")
        .ShapeRange.Fill.ForeColor.SchemeColor = 17
    End With

Else
    With ActiveSheet.Shapes("BP_VALIDER")
        .ShapeRange.Fill.ForeColor.SchemeColor = 10
    End With
End If

End Sub

Et ça bug...

Petite précision, je ne veux pas passer par une sélection de l'objet, l'utilisateur ne doit rien voir ! (magie !)

Quelqu'un peut m'aider... svp ?

Afficher la suite

A voir également:

Changer la couleur d'un objet selon une variable excel
Changer dns - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Déplacer une colonne excel - Guide
Changer la couleur de la barre des taches - Guide

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Salut,

Essaye comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value = "OK" Then
ActiveSheet.Shapes("BP_VALIDER").Fill.ForeColor.SchemeColor = 17
Else
ActiveSheet.Shapes("BP_VALIDER").Fill.ForeColor.SchemeColor = 10
End If
End Sub

Réponse 2 / 2

Capou

Salut,

Ca fonctionne !

Merci pour ton aide Mike-31

Votre réponse