Macro pour analyse / alerte doublons

[lorsaint]

Bonjour à tous,

Voici mon pb du jour : je souhaiterai créer une macro qui permette :

- d'analyser les doublons (références produits identiques) dans une colonne;
- de m'alerter par un pop up lorsque le doublon est trouvé
- lors de la saisie d'une référence, m'alerter lorsque celle-ci existe déjà.

Par avance, un grand merci pour votre aide à tous !

Bon dimanche

Lorsaint

 

[Banzai64]

Re : Macro pour analyse / alerte doublons

Bonjour

Une réponse pour le fun

Tu sélectionnes toute ta page

Menu : Données --->Validation
Choisir Personalisé

ET tu tapes cette formule

=NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(65536;COLONNE()));A1)<2


Tu ne pourras plus entrer deux fois la même chose dans n'importe quelle colonne

 

[lorsaint]

Re : Macro pour analyse / alerte doublons

Merci BANZAI64,

en fait, je voudrai simplement une alerte dès que je rentre une référence similaire, sans pour autant m'empêcher de la saisir. Par exemple, après saisie de la référence "doublon", afficher un pop up "attention, cette référence existe déjà".

Est-possible ? Merci

Lorsaint

 

[Banzai64]

Re : Macro pour analyse / alerte doublons

Re

Toujours dans le même style
Aprés avoir saisi la formule tu vas dans l'onglet 'Alerte d'erreur' et tu choisis dans le menu déroulant 'Style'
entre Avertissement et informations qui te préviendront seulement en cas de doublons

 

[lorsaint]

Re : Macro pour analyse / alerte doublons

Parfait ! Merci
J'essaie tout ça et reviens vers vous si pb !

Bonne journée

Lorsaint

 

[stefgsxr]

Re : Macro pour analyse / alerte doublons

Bonjour

Une réponse pour le fun

Tu sélectionnes toute ta page

Menu : Données --->Validation
Choisir Personalisé

ET tu tapes cette formule

=NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(65536;COLONNE()));A1)<2


Tu ne pourras plus entrer deux fois la même chose dans n'importe quelle colonne

Bonjour,

J'ai essayé avec cette formule sans succé, j'ai un message qui m'indique que le formule contient une erreur !!!
Savez vous pourquoi ?
Merci.

 

[jeanpierre]

Re : Macro pour analyse / alerte doublons

Bonjour stefgsxr et Bienvenue, le forum,

Peut-être à cause de l'espace entre le 6 et le 5 de 65536,

Tu nous dis si c'est bon.

Jean-Pierre

 

[stefgsxr]

Re : Macro pour analyse / alerte doublons

Bonjour stefgsxr et Bienvenue, le forum,

Peut-être à cause de l'espace entre le 6 et le 5 de 65536,

Tu nous dis si c'est bon.

Jean-Pierre

Exact, ça marche.

Merci jeanpierre

 

[zesuila]

Re : Macro pour analyse / alerte doublons

Bonjour
il y a un espace en trop dans la formule au niveau du 65536
=NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(6 5536;COLONNE()));A1)<2

En mettant =NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(65536;COLONNE()));A1)<2 cela devrait fonctionner

voilà
Zesuila

Et voilà ! encore raté ! pour une fois que je pouvais aider, Jean-Pierre m'a devancé ! mais bon entre un classé 197 et l'autre 4186, y a pas photo !!! allez je ne t'en veux pas Jean-Pierre !

 

[stefgsxr]

Re : Macro pour analyse / alerte doublons

Bonjour
il y a un espace en trop dans la formule au niveau du 65536
=NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(6 5536;COLONNE()));A1)<2

En mettant =NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(65536;COLONNE()));A1)<2 cela devrait fonctionner

voilà
Zesuila

Et voilà ! encore raté ! pour une fois que je pouvais aider, Jean-Pierre m'a devancé ! mais bon entre un classé 197 et l'autre 4186, y a pas photo !!! allez je ne t'en veux pas Jean-Pierre !

Bonjour, pas de probleme j'ai une autre question.
Comment reperer des doublons en y ajoutant une condition de couleur de police.

Même formule qu'avant (=NB.SI(INDIRECT(ADRESSE(1;COLONNE())&":"&ADRESSE(65536;COLONNE()));A1)<2) mais seulement si la police des doublons est rouge.

Merci.

 

[Banzai64]

Re : Macro pour analyse / alerte doublons

Bonjour

Une MFC très longue à réagir

Tu sélectionnes toute ta page
Menu: Format-->mise en forme conditionnelle
La formule est : =NB.SI(A:A;A1)>1

Ensuite format que tu veux

Très longue à réagir

Si tu peux limiter ta zone cela va plus vite
Selectionne de A1 jusqu'à H200

Exemple : =NB.SI(A$1:A$200;A1)>1

 

[stefgsxr]

Re : Macro pour analyse / alerte doublons

Bonjour

Une MFC très longue à réagir

Tu sélectionnes toute ta page
Menu: Format-->mise en forme conditionnelle
La formule est : =NB.SI(A:A;A1)>1

Ensuite format que tu veux

Très longue à réagir

Si tu peux limiter ta zone cela va plus vite
Selectionne de A1 jusqu'à H200

Exemple : =NB.SI(A$1:A$200;A1)>1

Merci bcp.