Dans une feuille, j'ai plusieurs colonnes et pour chacune d'entre elles, des lignes.
Pour chaque colonne, je souhaite dans ces lignes, compléter les cellules par l'intermédiaire d'une liste déroulante. Mais lorsqu'un Item de cette liste a été choisi, je voudrais qu'il soit impossible à répéter dans cette même colonne.
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
c.EntireColumn.Name = "zéro_doublon"
If Application.WorksheetFunction.CountIf(Range("zéro_doublon"), c.Value) > 1 Then c = "": c.Select
End Sub