Interdire d'insérer des doublons dans une plage excel
Résolu/Fermé
A voir également:
- Interdire d'insérer des doublons dans une plage excel
- Insérer une vidéo dans powerpoint - Guide
- Insérer liste déroulante excel - Guide
- Supprimer les doublons excel - Guide
- Insérer signature word - Guide
- Déplacer une colonne excel - Guide
4 réponses
The_boss_68
Messages postés
928
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
10 juin 2024
177
15 sept. 2016 à 19:57
15 sept. 2016 à 19:57
Bonsoir
Ou alors en vba: => Alt + F11 et coller ce code sur la feuille
Slts
Ou alors en vba: => Alt + F11 et coller ce code sur la feuille
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("a1:a90"), Target) > 1 Then
Flag = True
MsgBox ("Ce numéro existe déjà !")
Target.ClearContents
Flag = False
End If
End If
End Sub
Slts
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
15 sept. 2016 à 19:29
15 sept. 2016 à 19:29
Bonjour
sélectionnez A1:A90
onglet données / validation des données
dans la liste "personnalisé"
entrez la formule:
=NB.SI($A$1:$A$90;$A1)<2
attention aux signes
en cliquant dans la fenêtre de validation, sur "alerte d'erreur", vous pouvez afficher un message explicatif visible lorsque les données non valides sont tapées
(par ex: "donnée existante".
crdlmnt
sélectionnez A1:A90
onglet données / validation des données
dans la liste "personnalisé"
entrez la formule:
=NB.SI($A$1:$A$90;$A1)<2
attention aux signes
en cliquant dans la fenêtre de validation, sur "alerte d'erreur", vous pouvez afficher un message explicatif visible lorsque les données non valides sont tapées
(par ex: "donnée existante".
crdlmnt
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
Modifié par Mike-31 le 15/09/2016 à 19:32
Modifié par Mike-31 le 15/09/2016 à 19:32
Bonsoir,
commence par sélectionner ta plage A1:A90
puis Onglet Données/module Outils de données/Validation de données/onglet Options/sélectionne Personnalisé et colle cette formule
=NB.SI($A$1:$A$90;$A1)<=1
ou
=NB.SI($A$1:$A$90;$A1)<2
dans l'assistant onglet, Alerte d'erreur tu peux mettre un titre et un texte d'erreur
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
commence par sélectionner ta plage A1:A90
puis Onglet Données/module Outils de données/Validation de données/onglet Options/sélectionne Personnalisé et colle cette formule
=NB.SI($A$1:$A$90;$A1)<=1
ou
=NB.SI($A$1:$A$90;$A1)<2
dans l'assistant onglet, Alerte d'erreur tu peux mettre un titre et un texte d'erreur
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.