Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Alimentation d'une ListBox sans les doublon

Alimentation d'une ListBox sans les doublon

3 réponses
Avatar
Xavier
Bonjour,

Comment alimenter ma ListBox de données issues de la colonne A sans les
doublons.

Merci pour vos réponses.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://cjoint.com/?gEuvxTDzk8

-Sélectionner C8:C11
=SI(ESTTEXTE(INDEX(produit;PETITE.VALEUR(SI(EQUIV(produit;produit;0)=LI GNE(INDIRECT("1:"&LIGNES(produit)));EQUIV(produit;produit;0);"");LIGNE(INDI RECT("1:"&LIGNES(produit))))));
INDEX(produit;PETITE.VALEUR(SI(EQUIV(produit;produit;0)=LIGNE(INDIRECT("1 :"&LIGNES(produit)));EQUIV(produit;produit;0);"");LIGNE(INDIRECT("1:"&LIGNE S(produit)))));"")
-Valider avec Maj+CTrl+entrée

Créer un nom de champ dynamique ListeProd avec Insertion/Nom/Définir
ÞCALER(ListeSansDoublons!$C$2;;;NB.SI(ListeSansDoublons!$C$2:$C$6;"<>0" ))

Dans la propriété Rowsource de la ListBox: ListeProd

OU

Private Sub UserForm_Initialize()
Dim temp()
ReDim temp(100)
For Each c In Range([A2], [A65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
End If
Next c
ReDim Preserve temp(i - 1)
Me.ListBox1.List = temp
End Sub


Cordialement JB


Bonjour,

Comment alimenter ma ListBox de données issues de la colonne A sans les
doublons.

Merci pour vos réponses.


Avatar
Clément Marcotte
Bonjour,

Une façon parmi d'autres:

http://www.excelabo.net/xl/listes.php#listesansdoublon


"Xavier" a écrit dans le message de news:

Bonjour,

Comment alimenter ma ListBox de données issues de la colonne A sans les
doublons.

Merci pour vos réponses.



Avatar
Xavier
Ca marche à merveille, merci beaucoup


Bonjour,

http://cjoint.com/?gEuvxTDzk8

-Sélectionner C8:C11
=SI(ESTTEXTE(INDEX(produit;PETITE.VALEUR(SI(EQUIV(produit;produit;0)=LIGNE(INDIRECT("1:"&LIGNES(produit)));EQUIV(produit;produit;0);"");LIGNE(INDIRECT("1:"&LIGNES(produit))))));
INDEX(produit;PETITE.VALEUR(SI(EQUIV(produit;produit;0)=LIGNE(INDIRECT("1:"&LIGNES(produit)));EQUIV(produit;produit;0);"");LIGNE(INDIRECT("1:"&LIGNES(produit)))));"")
-Valider avec Maj+CTrl+entrée

Créer un nom de champ dynamique ListeProd avec Insertion/Nom/Définir
ÞCALER(ListeSansDoublons!$C$2;;;NB.SI(ListeSansDoublons!$C$2:$C$6;"<>0"))

Dans la propriété Rowsource de la ListBox: ListeProd

OU

Private Sub UserForm_Initialize()
Dim temp()
ReDim temp(100)
For Each c In Range([A2], [A65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
End If
Next c
ReDim Preserve temp(i - 1)
Me.ListBox1.List = temp
End Sub


Cordialement JB


Bonjour,

Comment alimenter ma ListBox de données issues de la colonne A sans les
doublons.

Merci pour vos réponses.