déclencher une macro par le contenu d'une cellule

Bonjour,


Cas1: La cellule testée est la cellule de saisie:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value >= 100 Then
...
...
End If
End If
End Sub

Cas2: La cellule est le résultat d'un calcul
Sur l'exemple, on utilise une fonction perso qui est exécutée dès
qu'une cellule
dépasse 100.

Function AfficheCache(nb, seuil, image)
If nb > seuil Then
ActiveSheet.Shapes(image).Visible = True
Else
ActiveSheet.Shapes(image).Visible = False
End If
afffichecache = 0
End Function

=Affichecache(B6;100;"gidel")

http://cjoint.com/?cjuM3jvEel

Cas3:La cellule à tester (B6) est le résultat d'un calcul

On peut utiliser l'événement SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B6] > 100 Then
......
End If
End Sub

Cordialement JB