L
lichem01
Guest
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value <= Range("A2").Value Then
ActiveSheet.Shapes("Object 48").Select
Selection.Verb Verb:=xlPrimary
End If
If Range("A1").Value >= Range("A2").Value Then
ActiveSheet.Shapes("Object 41").Select
Selection.Verb Verb:=xlPrimary
End If
End Sub
Le Probleme est que lorsque la valeur de n'importe quelle cellule de la feuille change, la commande est lancée.
Est-il possible que cette commande ne fonctionne que si une certaine cellule de la feuille change.
If Range("A1").Value <= Range("A2").Value Then
ActiveSheet.Shapes("Object 48").Select
Selection.Verb Verb:=xlPrimary
End If
If Range("A1").Value >= Range("A2").Value Then
ActiveSheet.Shapes("Object 41").Select
Selection.Verb Verb:=xlPrimary
End If
End Sub
Le Probleme est que lorsque la valeur de n'importe quelle cellule de la feuille change, la commande est lancée.
Est-il possible que cette commande ne fonctionne que si une certaine cellule de la feuille change.