Désigner cellule autre feuille VBA

Version imprimable

Bonjour,

problème sûrement tout bête mais auquel je ne parviens à trouver de solution. Lorsque j'exécute ce code, tout fonctionne correctement (la forme change de couleur en fonction de la valeur en A5):

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < Range("A5") Then
            ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.RGB = vbRed
        Else
            ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.RGB = vbGreen
    End If
    End If
End Sub

Mais lorsque je veux mettre en condition la cellule A5 d'une autre feuille comme ceci, la forme ne prend que la couleur rouge quand la valeur est inférieur mais plus la verte quand elle est supérieure:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < Sheets("data invisible").Range("A5") Then
            ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.RGB = vbRed
        Else
            ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.RGB = vbGreen
    End If
    End If
End Sub

Une suggestion? Merci mille fois!

14/01/2019, 18h38
unparia

Bonjour
commence par travailler proprement au lieu de te laisser bercer par les tolérances de VBA. Elles peuvent te jouer des tours.

Code:

If Target.Value < Sheets("data invisible").Range("A5").Value
14/01/2019, 18h41
Philippe Tulliez

Bonjour,
Je ne vois pas où est le problème, chez moi cela fonctionne bien.

Parlons nous bien de la même chose ?
L'image, la cellule A1 testée et la procédure événementielle sont bien sur la feuille Active (Feuille A) que tu peux nommer Me au lieu de ActiveSheet (mais le problème ne vient pas de là) et la cellule A10 à tester est sur une autre feuille que l'on nommera feuille B

Bonjour,

Il peut être bien de préciser la propriété "Value" :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    If Not IsNumeric(Target.Value) Then Exit Sub
 
    With ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor
        .RGB = IIf(Target.Value < Sheets("data invisible").Range("A5").Value, vbRed, vbGreen)
    End With
 
End Sub

15/01/2019, 09h17
moi003

Bonjour merci pour vos suggestions, je teste cela dès que je peux!