XL 2019 Vérrouillage de certaines cellules

[Bart jean]

Bonjour,
Je fais appel à votre disponibilité et votre compétence. Je suis entrain de développer un fichier de suivi de locations en piochant dans mes compétences "limitées" et dans des fichiers un peu à droite et a gauche.
Mais ... bien sur il y a un mais
Ma macro ne fonctionne pas comme je le souhaiterai, en effet, lorsque je mets un article en statuts "VENDU", ma macro ne fonctionne que sur quelques lignes alors que je souhaiterai qu'elle fonctionne sur toute les lignes de cette table
Lorsque le statuts est sur VENDU, l'opérateur ne dois plus pouvoir cliquer sur la ligne concernée entre les colonne A et G.
Pourriez-vous m'éclairer sur mon erreur.
Je vous remercie par avance de votre attention
Bonne journée

 

[sylvanu]

Bonjour Bart jean,
C'est le calcul de la dernière ligne qui est erronée, essayez :

If Not Intersect(Target, Range("A8:G" & Range("J65000").End(xlDown).Row)) Is Nothing Then

 

[Bart jean]

Merci SYLVANU
Cool c'est juste ce qu'il me fallait
A croire qu'en ayant trop le nez dessus, on ne voit plus l'erreur
Merci pour ton aide