XL 2013 Afficher les valeur uniques dans la zone de liste

job75 à dit:

Bonjour lestoiles1, le forum,

On ne sait pas trop ce que vous entendez par "valeur unique" mais bon voyez cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
With ListBox1
    .Clear 'RAZ
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Application.CountIf(Columns(1), Cells(i, 1)) = 1 Then
            .AddItem Cells(i, 1)
            .List(.ListCount - 1, 1) = Cells(i, 2).Text
        End If
    Next
End With
End Sub

Elle s'exécute quand on modifie ou valide une cellule quelconque.

A+

Cliquez pour agrandir...

lestoiles1 à dit:

Excuse moi Job75, j'ai mis un useform avec un Listbox dedans, mais l'heure ne s'affiche pas, peut-tu checker ça un coup stp? Merci

Cliquez pour agrandir...