Changer la couleur d'un objet selon une variable excel

Résolu
Capou -  
 Capou -
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 ?

2 réponses

  1.
    Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    0
  2. Capou
     
    Salut,

    Ca fonctionne !

    Merci pour ton aide Mike-31
    0

Discussions similaires

couleur personnage
Gasper -
Izzi -

9 réponses
Changer Couleur Pseudo SnatChat
paulo.1 -
Tkt -

9 réponses