[Déplacé VB6 --> VBA] Macro qui prend en compte la valeur donnée par une formule
pouetpouetLE80
Messages postés1Date d'inscriptionlundi 10 août 2009StatutMembreDernière intervention10 août 2009
-
10 août 2009 à 19:58
Calade
Messages postés1207Date d'inscriptiondimanche 20 avril 2003StatutMembreDernière intervention 4 juin 2016
-
11 août 2009 à 10:44
Bonjour,
Je vous sollicite car je débute sous Excel et j’ai un petit problème:
Je travaille sur une plage d’environ 40 lignes et de 50 colonnes. Chaque ligne est indépendante l’une de l’autre.
Pour chaque ligne, je souhaite que la cellule située en colonne C se colore
- en rouge lorsque la valeur de la cellule située en colonne AX est/passe à 1
- en transparent si la valeur est/passe à zéro
La valeur de la cellule située dans la colonne AX fluctue et dépend d’une formule conditionnelle (exemple =SI(ET((ESTVIDE(E2)=VRAI);I2>=5,5);1;0) ).
J’ai fait une macro qui fonctionne correctement si je change moi-même la valeur dans la cellule de la colonne AX :
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = 50 And Target.Row >= 2 And Target.Row <= 50 Then
For Each cell In Target
If cell.Value = "0" Then
cell.Offset(0, -47).Interior.ColorIndex = -4142
ElseIf cell.Value = "1" Then
cell.Offset(0, -47).Interior.ColorIndex = 3
End If
Next
End If
End Sub
Mon problème c’est que ma macro ne prend pas en compte les changements de valeur de ma cellule en colonne AX lors que la formule change le résultat (la valeur passe de 0 à1 ou inversement).
QQ1 pourrait-il m’aider ?
Merci par avance pour votre aide.
Jérôme
A voir également:
[Déplacé VB6 --> VBA] Macro qui prend en compte la valeur donnée par une formule