Comment n'autoriser que des valeurs uniques dans Excel ?

Si vous souhaitez conserver uniquement des valeurs uniques dans une colonne de votre feuille de calcul et empêcher les doublons, cet article vous présentera quelques astuces rapides pour gérer cette tâche.

N'autoriser que des valeurs uniques dans la feuille de calcul avec la validation des données

N'autoriser que des valeurs uniques dans la feuille de calcul avec Kutools pour Excel

N'autoriser que des valeurs uniques dans la feuille de calcul avec le code VBA

N'autoriser que des valeurs uniques dans la feuille de calcul avec la validation des données

En fait, la fonction Validation des données d'Excel peut vous aider à résoudre ce problème. Veuillez procéder comme suit :

1. Sélectionnez les cellules ou la colonne où vous souhaitez n'entrer que des valeurs uniques, puis cliquez sur Données > Validation des données > Validation des données, voir capture d'écran :

2. Dans la boîte de dialogue Validation des données, veuillez effectuer les opérations suivantes :

(1.) Cliquez sur l'onglet Paramètres ;

(2.) Sous la liste déroulante Autoriser, choisissez Personnalisé ;

(3.) Et entrez cette formule : =NB.SI($E:$E;E1)<2 (E est la colonne où vous souhaitez n'autoriser que des valeurs uniques, E1 est la première cellule de la colonne que vous souhaitez utiliser) dans la zone de texte Formule.

3. Puis cliquez sur le bouton OK. À partir de maintenant, lorsque vous entrez une valeur en double dans la colonne spécifique que vous avez définie, un message d'avertissement apparaîtra pour vous avertir, voir capture d'écran :

N'autoriser que des valeurs uniques dans la feuille de calcul avec Kutools pour Excel

Les deux méthodes ci-dessus ne peuvent empêcher les entrées en double que dans une seule colonne. Si vous avez Kutools pour Excel, son utilitaire Empêcher les doublons peut vous aider à rapidement prévenir les doublons dans une plage de cellules ainsi que dans une seule colonne ou ligne.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez la colonne ou la plage de cellules où vous souhaitez empêcher les valeurs en double mais autoriser uniquement des données uniques.

2. Ensuite, cliquez sur Kutools > Limite de saisie > Empêcher les doublons, voir capture d'écran :

3. Un message d'avertissement apparaîtra pour vous informer que la Validation des données sera supprimée si vous appliquez cette fonctionnalité, voir capture d'écran :

4. Cliquez ensuite sur le bouton Oui pour continuer, et une autre boîte de dialogue apparaîtra pour vous indiquer quelles cellules ont été affectées par cette fonctionnalité. Voir capture d'écran :

5. Cliquez ensuite sur le bouton OK. Maintenant, lorsque vous entrez des données en double dans la plage A1:D15, une boîte de dialogue s'affiche pour vous rappeler que les données en double ne sont pas valides, vous devez entrer uniquement des valeurs uniques. Voir capture d'écran :

Plus de 300 fonctions peuvent rendre votre travail plus efficace, vous pouvez télécharger Kutools pour Excel pour une version d'essai gratuite.

N'autoriser que des valeurs uniques dans la feuille de calcul avec le code VBA

Si vous êtes intéressé par le code VBA, le code suivant peut également vous être utile.

1. Faites un clic droit sur l'onglet de la feuille où vous souhaitez n'autoriser que des nombres négatifs, puis choisissez Afficher le code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, copiez et collez le code suivant dans le Module vide :

Code VBA : N'autoriser que des valeurs uniques dans la feuille de calcul :

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

Remarque : Dans le code ci-dessus, A1:A1000 correspond aux cellules de la colonne où vous souhaitez éviter les doublons.

2. Ensuite, enregistrez et fermez ce code. Maintenant, lorsque vous entrez des valeurs en double dans les cellules A1:A1000, un message d'avertissement s'affichera pour vous rappeler que les entrées en double ne sont pas autorisées, voir capture d'écran :

3. Cliquez ensuite sur le bouton OK, la valeur en double sera supprimée.