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

Copie sur une autre feuille sans doublon

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 !

fb62840

XLDnaute Impliqué
Bonjour,

J'ai une grande liste de noms présents sur une feuille nommée Tests, ces noms sont souvent répétés plusieurs fois.

Je voudrais obtenir sur la feuille Résultats la liste des noms (mais même s'il y a plusieurs fois le même nom, je ne le veux qu'une fois).

je préfèrerai une solution avec formule plutôt qu'avec vba si c'est possible.

merci pour votre aide.
 

Pièces jointes

Re : Copie sur une autre feuille sans doublon

Bonjour,


Code:
Sub doublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
     mondico(c.Value) = ""
  Next c
  Sheets(2).[a2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub

ou

=INDEX(champ;MIN(SI(champ<>"";SI(NB.SI(A$1:A1;champ)=0;EQUIV(champ;champ;0);LIGNES(champ)))))
Valider avec maj+ctrl+entrée

JB
 

Pièces jointes

Dernière édition:
Re : Copie sur une autre feuille sans doublon

Bonjour fb62840, JB,

En VBA on peut utiliser le filtre avancé pour obtenir une liste sans doublon :

Code:
Private Sub Worksheet_Activate()
Sheets("Tests").[A:A].AdvancedFilter xlFilterCopy, , [A1], True
End Sub
Fichier joint.

Remarque : j'ai refais complètement le fichier sur un document vierge.

En effet il se passait un phénomène bizarre sur le fichier original du post #1.

Si l'on effaçait le résultat du filtrage en feuille "Résultats" cela effaçait aussi la feuille "Tests" 😕

Je ne suis pas arrivé à comprendre pourquoi, il s'agit sans doute d'un fichier "vérolé".

A+
 

Pièces jointes

- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…