Discussion :

[timtof2011]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Essais comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[timtof2011]

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

je comprends mieux maintenant.

bien à toi...

[mercatog]

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

[timtof2011]

tu es un véritable expert...

Pourquoi j'ai cette erreur ?

bien à toi...

[mercatog]

Quand tu as fais cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[timtof2011]

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

bon week end à toi.

Tim