Petit soucis avec un "ByVal Target As Range"

khabarakh Messages postés 2 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 11 janvier 2007 - 11 janv. 2007 à 14:40
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 janv. 2007 à 15:47
bonjour a tous
j'ai un petit probleme
je suis en train de developper une appli sur excel/vba et j'aurai besoin de savoir si l'utilisateur clik sur une zone precise de la feuille j'ai donc penser a cette solution

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("j30:k31").Address Then
...
...
petit pb cela ne marche pas , l'erreur viens du faite que le signe "=" n'est pas le plus approprié
je recherche donc la formule magic
d'avance merci
Ps: si je ne suis pas super clair(c'est possible), dites le moi j'esserai d'etre un peu plus lisible

Yoyo 

4 réponses

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
11 janv. 2007 à 15:04
Ben dsl, pas de formule miracle pour moi.

La seule chose que j'ai trouvé c'est ceci :
If Target.Row >= 30 And _
    Target.Row <= 31 And _
    Target.Column >= 10 And _
    Target.Column <= 11 Then

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
0
khabarakh Messages postés 2 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 11 janvier 2007
11 janv. 2007 à 15:34
Merci beaucoup de ta reponse rapide, meme si c'est un peu long ca a au moins le merite de marcher , si quelqu'un a une methode un peu plus courte je suis toujours preneur
Yoyo
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
11 janv. 2007 à 15:41
Je vois pas trop comment tu pourrais avoir une méthode plus courte (je veux dire plus optimisée, et non plus courte en ligne de code, car le nombre de ligne de code ne réflète absolument pas la rapidité d'exécution de ce code !) : 4 petits tests ca me parait très court !
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
11 janv. 2007 à 15:47
A la rigueur, on pourrait avoir :

If Target.Address = "$J$30:$K$31" Then

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
Rejoignez-nous