XL 2013 Afficher les valeur uniques dans la zone de liste

[lestoiles1]

Bonjour à tous,

J'aimerais afficher la liste des valeur unique avec l'heure à cotes dans la zone de liste macro.

Merci bcp

Lestoiles

 

[job75]

Bonjour lestoiles1, le forum,

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

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+

 

[lestoiles1]

C'est ça merci

 

[lestoiles1]

Bonjour lestoiles1, le forum,

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

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+

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

 

[job75]

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

Il faut donner à la propriété ColumnCount de la ListBox la valeur 2.