Private Sub sans doublon vers autre colonne

Bonjour

Les listes déroulantes colonne A permettent le choix de prénom. Ceux-ci sont parfois choisis en doublon

Question

Comment par une évenementielle, lister sans doublon vers la colonne C en saisissant en colonne A?

Merci de votre aide.

Cordialement

Bonsoir Amadéus, forum,

à voir si c'est bien çà que tu veux

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a1:a20")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Count > 1 Then Exit Sub

        '--- filtre sans doublons ---
        Range("Liste").AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
        Range("c1"), Unique:=True
    End If
End Sub

Bonne soirée

Claude

Bonsoir Claude

C'est vrai que ma liste de droite prétait à confusion.

Avec plus de précision

Cordialement

re,

Dans le même style

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a2:a20")) Is Nothing Then
        Application.ScreenUpdating = False

        '--- filtre sans doublons ---
        Range("a1") = "noms"                    'on met en-tête
        Range("a1:a20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
        Range("c1"), Unique:=True
        '--- tri ---
        Range("c1:c" & [c65000].End(xlUp).Row).Sort Key1:=Range("c1"), _
        Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False
        Range("a1,c1").ClearContents            'on efface en-tête
    End If
End Sub

Amicalement

Claude

Bonjour

Merci beaucoup Claude.

100% d'efficacité

Amicalement