MFC sur objet

[Rick@]

Bonjour,

Est il possible de mettre en format conditionnel un objet. EX mettre en rouge un chiffre ou forme incorporé dans un rond (objet). Voir fichier en exemple.

Merci à l'avance!!!

 

[Softmama]

Re : MFC sur objet

Bonjour Rick@,

Ceci à placer dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("L10:L11"), Target) Is Nothing Then
  If [L10] = 1 Then Couleur = 6 Else If [L10] >= 2 Then Couleur = 3 Else If [L11] = 2 Then Couleur = 4 Else Couleur = 2
  ActiveSheet.Shapes("Forme automatique 5").TextFrame.Characters.Font.ColorIndex = Couleur
End If
End Sub

cf. fichier joint.

 

[Rick@]

Re : MFC sur objet

Gros merci Softmama!

Pas simple mais efficace...

Bonne soirée!!!

 

[DoubleZero]

Re : MFC sur objet

Bonjour, Rick@, Softmama 🙂, le Forum,

Un autre procédé dans le fichier joint.

L'aspect de la forme évolue indépendamment de la cellule J10.

A bientôt.

 

[Rick@]

Re : MFC sur objet

Je retiens ! merci!!!