Renvoyer une liste sans les doublons

[beabianchini]

Bonjour,

J'ai une liste avec des numéros en doublons.
je souhaiterais que sur une autre feuille une formule me renvoie tous les numéros mais une fois chacun sans doublon.

Merci de votre aide.
Ci-joint le tableau pour une meilleure compréhension?

d'avance merci si quelqu'un peut m'aider.

 

[JCGL]

Re : Renvoyer une liste sans les doublons

Bonjour à tous,
Salut mon frère Poisson,

David : je n'avais pas vu que tu étais à l'origine de la formule "longue"...

A+++ mon ami
A+ à tous

 

[david84]

Re : Renvoyer une liste sans les doublons

Salut frérot,

En A1 de Feuil2

je pense que tu veux dire en A2, non ?
Parce que chez moi en A1 cela donne une référence circulaire mais en A2 pas de problème.

Sinon d'accord sur le principe avec Marc L : le filtre avancé fait très bien ce genre de travail...puisqu'il est fait pour cela !

A+

 

[Si...]

Re : Renvoyer une liste sans les doublons

salut

moi je souhaite que mon tableau d'arrivé soit incrémenté automatiquement au fur et à mesure que la base soit incrémentée?

avec une macro évènementielle ? Si cela te dit vois l"exemple donné.
Maintenant le cadre est important donc sans lui point de réponse immédiate sûre !

 

[Marc L]

Re : Renvoyer une liste sans les doublons

Par code, c'est dommage d'intercepter l'évènement Change de la feuille de saisie,
je le vois plutôt dans l'évènement Activate de la feuille affichant la liste et,
avec un filtre avancé, une seule ligne de code devrait suffire !

_______________________________________________________________________________
La meilleure façon de ne pas avancer est de suivre une idée fixe. (Jacques Prévert)
​

 

[BOISGONTIER]

Re : Renvoyer une liste sans les doublons

Bonjour,

Avec fonction perso (maj automatique - pas besoin de titre)

-Sélectionner G2:G16
=sansdoublons(A2:A1000)
-Valider avec maj+ctrl+entrée

JB

 

[JCGL]

Re : Renvoyer une liste sans les doublons

Bonjour à tous,
Re mon frère,

Salut frérot,

je pense que tu veux dire en A2, non ?
Parce que chez moi en A1 cela donne une référence circulaire mais en A2 pas de problème.

Tu auras certainement remarqué que j'emploie deux formules différentes...

A+++ mon ami
A+ à tous

 

[david84]

Re : Renvoyer une liste sans les doublons

Bonjour à tous,
Re mon frère,



Tu auras certainement remarqué que j'emploie deux formules différentes...

A+++ mon ami
A+ à tous

Ah non pas fais gaffe (car ta 2ème formule en A2 suffit) !
Donc avec les 2 formules ça roule !
A+

 

[Si...]

Re : Renvoyer une liste sans les doublons

re à tous

Par code, c'est dommage d'intercepter l'évènement Change de la feuille de saisie,
je le vois plutôt dans l'évènement Activate de la feuille affichant la liste et,
avec un filtre avancé, une seule ligne de code devrait suffire !

Il me semble avoir précisé que le contexte est important.
Lors d'évènements, des dommages collatéraux peuvent se révéler et être, eux, dommageables !

Pour faire avancer les choses, dans un environnement* où la feuille réceptrice, avec tout son contenu, sert de tampon et est cachée, choisirais-tu l'évènement "Activate" ?

* on peut s'attendre à tout mais pas tout traiter😀

 

[Marc L]

Re : Renvoyer une liste sans les doublons

Quand vous citez un texte con, n'oubliez pas le contexte. (Jacques Prévert)

​

 

[ROGER2327]

Re : Renvoyer une liste sans les doublons

Bonjour à tous.

Une autre procédure événementielle...​

Bonne journée.


ℝOGER2327
#7946

Dimanche 15 Gidouille 142 (Sainte Giborgne, vénérable - fête Suprême Tierce)
11 Messidor An CCXXIII, 0,2796h - coriandre
2015-W27-1T00:40:16Z

 

[Marc L]

Re : Renvoyer une liste sans les doublons

Bonjour !

A coller dans le module de la feuille affichant la liste sans doublon (ex. Feuil2) :
​

Private Sub Worksheet_Activate()
    Feuil1.Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, , Cells(1), True
End Sub

_______________________________________________________________________________
​

Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
C’est ce que nous pensons déjà connaître qui nous empêche souvent d’apprendre. (Claude Bernard)

​

 

[Si...]

Re : Renvoyer une liste sans les doublons

Salut

J'ai proposé cette macro en pensant au cas où le nombre d'items augmenterait énormément.

Pour changer un peu

Cyrano (celui qui avait du nez) :
“Mais on ne se bat pas dans l'espoir du succès ! Non, non c'est bien plus beau lorsque c’est inutile !”

Pour le choix de l'évènement, pourquoi pas Activate ?
Dans ce cas j'aurais proposé

Private Sub Worksheet_Activate()
    Dim D As Object, R As Range
    Set D = CreateObject("Scripting.Dictionary")
    [A2:A65000].Clear
    For Each R In Feuil1.Range("A2", Feuil1.[A65000].End(xlUp)): D(R.Value) = "": Next
    [A2].Resize(D.Count) = Application.Transpose(D.keys)
End Sub

A noter qu'on n'est jamais à l'abri de saisies malvenues (un contenu supprimé, une correction avec un espace inutile à la fin, un type de cellule non numérique ...). Voir alors, si cela vous intéresse, le fichier joint avec les différentes propositions.

 

[Marc L]

Re : Renvoyer une liste sans les doublons

Sachant que la fonction d'Excel TRANSPOSE est limitée en nombre d'éléments,
à éviter justement en cas de dizaines de milliers de lignes …

Sinon mieux vaut utiliser la dernière cellule d'une colonne via [highlight]Me.Rows.Count[/code] au lieu de mettre
une adresse en dur (comme A65000) surtout depuis la version 2007 avec plus d'un million de lignes !

Et libérer la ressource de la variable objet en fin de procédure : [highlight]Set D = Nothing[/code] …

_______________________________________________________________________________
Découvrir, c’est voir la même chose que les autres et penser autrement. (Albert von Szent-Györgyi)
​

 

[Si...]

Re : Renvoyer une liste sans les doublons

re

Sachant que la fonction d'Excel TRANSPOSE est limitée en nombre d'éléments,
à éviter justement en cas de dizaines de milliers de lignes …

Sinon mieux vaut utiliser la dernière cellule d'une colonne via [highlight]Me.Rows.Count[/code] au lieu de mettre
une adresse en dur (comme A65000) surtout depuis la version 2007 avec plus d'un million de lignes !

Et libérer la ressource de la variable objet en fin de procédure : [highlight]Set D = Nothing[/code] …

Pour le premier point : je l'gnorais, merci pour l'information
Pour la suite : par flemme sachant que le SAV est à la portée de beaucoup 😉

 

[Marc L]

Re : Renvoyer une liste sans les doublons

Quelques fonctions gérants des matrices ont une limite soit au max d'un Integer (<33000)
soit au max d'un Long (<66000), cela peut évoluer au fil des versions …
Voir avec les plus récentes, sait-on jamais !

​