XL 2013 Afficher les valeur uniques dans la zone de liste

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Solution
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+
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+
 

Pièces jointes

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+
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour