lancer une macro en fonction si une cellule est vide ou non

bonjour tout le monde...
je cherche à lancer une "Macro1" en fonction d'une cellule A1 si elle est vide ou non...dans mon cas la macro doit se lancer lorsque la cellule A1 n'est pas vide

du genre

Code:

---

=SI(ESTVIDE(A1);"";"Macro1")

---

d'avance merci
tim:bebe:

Bonjour,

En utilisant l'évenement Change

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address = "$A$1" And Target.Value = "" Then Macro1   End Sub

---

Merci beacoup à toi jfontaine...c'est exactement ce que je cherchais à réaliser...:ccool:

bonne journée à toi.

Tim :bebe:

En faisant comme ça j'arrive à ce que je veux vraiment mais lorsque je vide
les cellules A12àA15 je reçois une erreur d'exécution13: incompatibilité de type

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address = "$AE$12" And Target.Value <> "" Then aff_acpt_1 If Target.Address = "$AE$13" And Target.Value <> "" Then aff_acpt_2 If Target.Address = "$AE$14" And Target.Value <> "" Then aff_acpt_3 If Target.Address = "$AE$15" And Target.Value <> "" Then aff_acpt_4 End Sub

---

comment éviter ça ???

ok j'ai résolu en raffraichissant le bouton de ma macro...cool
merci de ton aide jfontaine.

Tim :bebe: