Microsoft 365 Problème recherche Doublon via macro

Bonjour @ExcLnoob

Je te propose ce code pour supprimer es doublon de la colonne Q
*Attention il n'y a pas de message d'avertissement le code supprime juste tous les doublons sur la colonne Q


*Merci de ton retour

@Phil69970

Bonsoir @Phil69970
Merci pour ce retour rapide.

Le code marche bien mais comme je le pressentais, il efface tous les doublons. ce qui n'est pas ce que je souhaite faire
Le but est de vérifier si la dernière cellule que je remplis en colonne Q est en doublon dans cette même colonne et de ne supprimer que cette valeur là sans toucher aux autres (et sans me faire buger tout le fichier en prime bien sûr..)

A te lire

Yes !!!
Merci @mapomme
C'est parfait!
Pourrais-tu simplement m'expliquer le code stp ? (Que je vois où j'ai buté...)
Merci

Re,

Je limite la procédure à la seule colonne pour que la procédure ne soit pas exécutée quand on modifie des données ailleurs que dans la colonne Q.

On calcule l'intersection entre les cellules modifiées et la colonne Q.
Si cette intersection est vide, alors aucune cellule de la colonne Q n'a été changée, on n'a donc rien à faire donc on quitte la procédure

Maintenant, on est certain qu'il y a des cellules modifiées en colonne Q

On compte le nombre de cellule de target (on aurait pu le faire en premier).
S'il y a plus d'une cellule modifiée alors on ne fait rien et on quitte la procédure

Maintenant, on sait qu'il n'y a qu'une cellule modifiée dans la colonne Q.

Si la cellule modifiée est vide (="") alors on n'a rien a faire (souvent un effacement par l"utilisateur) et on quitte la procédure

Maintenant, on sait qu'il n'y a qu'une cellule modifiée dans la colonne Q et que cette cellule est non vide.

On calcule sa fréquence dans le colonne Q. Si la fréquence est 1, alors on n'a rien à faire et on quitte la procédure

Maintenant, on sait qu'il n'y a qu'une cellule modifiée dans la colonne Q et que cette cellule est non vide. et qu'elle apparait plusieurs fois dans la colonne Q.

On affiche le message, on remet la colonne à vide, on re-sélectionne la cellule modifiée et on quitte la procédure.

ATTENTION!

En mettant la cellule en double à vide (target=""), on modifie la feuille.
On relance donc la procédure évènementielle avant de sortir du premier passage (récurrence).
Mais pour ce 2ème passage, Target est vide donc la deuxième condition fait en sorte qu'on sort immédiatement du 2ème appel de la procédure évènementielle sans rien changer sur la feuille.
On revient donc à l'exécution de la première procédure juste après l'instruction Target="" qui est Target.Select puis on arrive à la fin du premier appel.

re
bonsoir