Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Trier certaines données sans doublons

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 !

dodineau

XLDnaute Occasionnel
Bonjour à toutes et tous.
J'utilise une macro du célèbre et regretté J. Boisgontier pour trier une série, en colnne A, sans doublon.
VB:
    Set Rng = Range("A1:A" & [A65000].End(xlUp).Row)
    tbl = Rng.Value
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(tbl)
        d(tbl(i, 1)) = ""
    Next i
    
    Rng.ClearContents
    [A1].Resize(d.Count) = Application.Transpose(d.keys)
    Rng.Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
Dans ma liste il y a des nombres et des mots, ce que je voudrais c'est trier sans doublons uniquement les nombres (Pas de mot).
Je n'arrive pas à trouver comment éliminer des entrées du dictionnaire avec la commande REMOVE ou autre.
Merci pour votre aide.
A+
 
Solution
Bonsoir Dodineau, bonsoir le forum,

Pas sûr d' avoir bien compris... Peut-être comme ça :

VB:
Set Rng = Range("A1:A" & [A65000].End(xlUp).Row)
tbl = Rng.Value
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(tbl)
    If IsNumeric(tbl(i, 1)) Then d(tbl(i, 1)) = ""
Next i

Rng.ClearContents
[A1].Resize(d.Count) = Application.Transpose(d.keys)
Rng.Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
Bonsoir Dodineau, bonsoir le forum,

Pas sûr d' avoir bien compris... Peut-être comme ça :

VB:
Set Rng = Range("A1:A" & [A65000].End(xlUp).Row)
tbl = Rng.Value
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(tbl)
    If IsNumeric(tbl(i, 1)) Then d(tbl(i, 1)) = ""
Next i

Rng.ClearContents
[A1].Resize(d.Count) = Application.Transpose(d.keys)
Rng.Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
 
- 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

Réponses
5
Affichages
481
Réponses
3
Affichages
796
  • Suggestion Suggestion
Recherche & référence DicoCountOrder
Réponses
0
Affichages
2 K
Réponses
3
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…