Programme qui recherche si une cellule à déjà été noté
chiken-little
Messages postés
168
Statut
Membre
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je cherche à faire sur excel 2013 un petit programme qui quand je rentre un nombre, cherche si il a déjà été noté et met cette ligne en rouge si elle a déjà été répétée.
Merci d'avance
Merci d'avance
A voir également:
- Programme qui recherche si une cellule à déjà été noté
- Excel cellule couleur si condition texte - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Programme demarrage windows - Guide
- Comment savoir si on a été bloqué sur messenger - Guide
1 réponse
Bonsoir
Où doit être cherché le nombre ? dans une colonne précise ? Laquelle ?
La recherche doit être déclenchée par l'entrée d'un nombre n'importe où ou dans une colonne précise ? Laquelle ?
Dans l'attente des précisions ou même mieux d'un fichier exemple sur lequel travailler (à poster su cjoint.com et revenir ici indiquer le lien fourni)
Cdlmnt
Où doit être cherché le nombre ? dans une colonne précise ? Laquelle ?
La recherche doit être déclenchée par l'entrée d'un nombre n'importe où ou dans une colonne précise ? Laquelle ?
Dans l'attente des précisions ou même mieux d'un fichier exemple sur lequel travailler (à poster su cjoint.com et revenir ici indiquer le lien fourni)
Cdlmnt
Et que se passe-t-il alors , tu disais de faire colorer en rouge la ligne précédente avec déjà ce nombre mais on peut aussi afficher en plus un message "Ce nombre est déjà présent"
Ensuite on laisse entrer quand même le nombre en double ou on efface la cellule, interdisant de ce fait le doublon ?
Donc je voudrais un moyen me permettant de voir que j'ai ce doublon. Mais sans le supprimer pour autant
Essaye cette macro
ALT+ F11 pour ouvrir l'editeur
Double clic sur la feuille concernée dans l'arborescence à gauche
Copier et coller la macro
Private Sub Worksheet_Change(ByVal Target As Range) ' si changement dans une autre colonne que la 2 sortie sans rien faire If Target.Column <> 2 Then Exit Sub ' boucle sur toutes les lignes précédentes For n = 1 To Target.Row - 1 ' si une cellule contient la même valeur If Range("B" & n) = Target.Value Then ' coloration de la ligne en rouge Range(n & ":" & n).Interior.ColorIndex = 3 'message (Supprimer la ligne si on ne veux pas de message) MsgBox ("Nombre déjà existant en ligne " & n) End If Next End SubCdlmnt