Discussion :

[Agressor0301]

Bonjour à tous,

Je suis complètement novice dans la programmation VBA, mais j'en ai besoin pour mes études, afin de pouvoir faire des simulations.

Ce que je souhaiterais (fichier ci-joint):

=> Dès que la cellule H7 est modifiée (elle va contenir une formule de calcul, donc sera modifiée automatiquement, sans manipulation manuelle ou autre programme), les objets de la feuille, en l'occurrence les 7 rectangles de différente hauteur (qui montrent en fait le niveau de volatilité) changent de couleur, mais pas tous en même temps.

Exemple:
Si la cellule H7 est inférieure à 2%, c'est le premier rectangle uniquement qui change de couleur.
Si la cellule H7 est supérieure à 2% mais inférieure à 5%, c'est les deux premiers rectangles qui changent de couleur, et ainsi de suite.

J'ai essayé de faire le tout avec l'évènement Worksheet_Change (avant d'apprendre que cela ne marche pas pour les cellules avec les formules ^^) mais même avec la modification manuelle de la cellule en question, je n'arrivais pas à faire changer la couleur du rectangle.

Pourriez-vous me donner des pistes, svp?

Merci par avance et bonne soirée.

[jfontaine]

Bonjour


La modification de valeur d'une formule ne génère pas d'évenement change sur la cellule.

Dans ton cas, je pencherais sur l'utilisation de l'évenement Calculate de la feuille

[Agressor0301]

Est-ce que vous pouvez me donner un exemple de code? J'ai un souci avec la compréhension de la variable Target, je ne sais pas en fait comment définir que les rectangles doivent changer de couleur en même temps, et au changement d'une cellule bien définie, et pas n'importe quelle cellule dans la feuille....

Merci bcp.

Cdmt

[jfontaine]

Dans l'évenement Calculate il n'y a pas d'objet Target.
Il te faut appeler la cellule directement

Voici un exemple ou l'on test la formule de la cellule B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Calculate()
 
If Me.Range("B2").Value > 10 Then
    Me.Range("D2").Interior.ColorIndex = Me.Range("B2").Value
End If
 
 
End Sub

[Agressor0301]

D'accord, merci beaucoup !

Bonne soirée