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

bonjour à tout le monde...

je reviens sur un sujet que j'avais déjà soumis mais qui finalement me donne une erreur 13

jfontaine m'avait proposé une solution qui me convenait parfaitement don je remercie encore mais une fois en pratique ça me renvoi une erreur d'exécution '13' incompatibilité de type

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range)   'l'erreur renvoyé est sur cette ligne If Target.Address = "$D$3" And Target.Value <> "" Then Mamacro End Sub

---

alors si je rentre une valeur en D3 et valide ok ça execute bien ma macro...
Là ou ça me donne une erreur 13 c'est lorsque je vide la cellule...

Merci pour votre aide

et bon week end à tous.
Tim :bebe:

Essais comme ceci

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("D3")) Is Nothing Then If Range("D3").Value <> "" Then MaMecro End If End Sub

---

Super mercatog...comme d'habitude...!!!

je comprends mieux maintenant.

bien à toi...

J'attendais que tu demande pourquoi tu avais l'erreur 13 sur ton code.

tu es un véritable expert...:)

Pourquoi j'ai cette erreur ?

bien à toi...

Quand tu as fais cette ligne

Code:

---

If Target.Address = "$D$3" And Target.Value

---

Supposons que sur notre feuille, 2 cellules ou plus en été changées (effacées ou suite à un collage de plusieurs cellules), le code doit tester les 2 conditions
1. Si l'adresse de Target est D3
2. Si la valeur de Target est vide

Or, nous avions changés plusieurs cellules, le premier test passe sans problème mais le blocage est au 2ème puisqu'on teste un tableau (de 2 cellules) avec une chaine de caractère vide

Merco à toi mercatog...c'est trés clair...
j'ai adapté et devinnnne...ça marche :)

bon week end à toi.

Tim