Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste déroulante

halecs93

XLDnaute Impliqué
Bonjour à toutes et à tous

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.

....Merci pour vos lectures et réponses.
 

DoubleZero

XLDnaute Barbatruc
Re : Liste déroulante

Bonjour, halecs93, le Forum,

Comme ceci ?

Code:
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

A bientôt
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…