Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2013Afficher 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 !
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.
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
Afficher les valeurs uniques dans la liste macro.xlsm
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.
- 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