Microsoft 365 Erreur d'exécution '424' Objets requis - If Not Intersect

[Randomuser]

Bonjour tout le monde !

Je rencontre des difficultés dans ma feuille Excel:

Je souhaite copier la ligne entière quand la cellule de la colonne J à partir de J16 contient le mot "OK" ou "ANNULÉ".
"OK" et "ANNULÉ" produisent deux actions différentes:

• Le mot "OK" copiera la ligne entière dans la feuille "Suivi MELCC" et supprimera cette ligne dans ma feuille active.
• Le mot "ANNULÉ" copiera la ligne entière dans la feuille "Demandes annulées" et supprimera cette ligne dans ma feuille active.

J'ai une erreur d'exécution 424 - Objets requis lorsque j'inscris "OK" dans une cellule de la colonne J mais fonctionne très bien avec le mot "ANNULÉ"

 

[job75]

Bonjour Randomuser, bienvenue sur XLD,

Enlevez le 1er End If et écrivez plus bas :

ElseIf Target = "ANNULÉ" Then

En effet il ne faut pas que le 2ème test soit évalué si Target a été supprimé.

A+

 

[Randomuser]

Bonjour Randomuser, bienvenue sur XLD,

Enlevez le 1er End If et écrivez plus bas :

ElseIf Target = "ANNULÉ" Then

En effet il ne faut pas que le 2ème test soit évalué si Target a été supprimé.

A+

Bonjour job75,

Problème résolu, il suffisait comme tu as dit que le second If soit transformé en ElseIF.

Merci beaucoup d'avoir pris le temps de m'avoir répondu et résolu le problème