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

Randomuser · 20 Juin 2022

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 · 20 Juin 2022

Bonjour Randomuser, bienvenue sur XLD,

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

VB:

ElseIf Target = "ANNULÉ" Then

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

A+

job75 · 20 Juin 2022

Bonjour Randomuser, bienvenue sur XLD,

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

VB:

ElseIf Target = "ANNULÉ" Then

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

A+

Randomuser · 20 Juin 2022

job75 à dit:
Bonjour Randomuser, bienvenue sur XLD,

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

VB:

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

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

Randomuser

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

Randomuser

XLDnaute Nouveau

Discussions similaires