XL 2016 Vba ou Formule doublons sur lignes

[Guismo33]

Bonjour a tous,

j'ai 8 colonnes et 5 lignes avec des nombres et je voudrais mettre sur 1 seule ligne les nombres
a la suite sans les doublons , petit fichier .

merci a vous tous.

 

[job75]

Re,

Je n'avais pas vu JHA, bonjour JHA.

Si l'on veut la liste colonne par colonne :

Private Sub CommandButton1_Click()
Dim d As Object, e
Set d = CreateObject("Scripting.Dictionary")
For Each e In [C3:J7].Value 'plage à adapter
  d(e) = ""
Next
With [L3] 'cellule à adapter
  .Resize(, d.Count) = d.keys
  Range(.Offset(, d.Count), Cells(.Row, Columns.Count)) = ""
End With
End Sub

A+

 

[Guismo33]

Bonjour à tous,

Merci a tous pour ces post, il fonctionne très bien, je sais je me répète mais
heureusement qu'il y a des personnes comme vous pour aider les novice .

un grand merci

Bien à vous

 

[Guismo33]

Re,

Je n'avais pas vu JHA, bonjour JHA.

Si l'on veut la liste colonne par colonne :

Private Sub CommandButton1_Click()
Dim d As Object, e
Set d = CreateObject("Scripting.Dictionary")
For Each e In [C3:J7].Value 'plage à adapter
  d(e) = ""
Next
With [L3] 'cellule à adapter
  .Resize(, d.Count) = d.keys
  Range(.Offset(, d.Count), Cells(.Row, Columns.Count)) = ""
End With
End Sub

A+

Merci a tous pour ces post, il fonctionne très bien, je sais je me répète mais
heureusement qu'il y a des personnes comme vous pour aider les novice .

un grand merci

Bien à vous

 

[Guismo33]

Bonjour à tous, bonjour Jocelyn, JHA, Guismo33, Job75



La demande a évolué depuis le post #1. Cf. en pièce jointe diverses réponses possibles, obtenues avec des formules ou à la main, en prenant en compte les nombres de la colonne B (ce que je n'aurai pas dû faire). Laquelle désires-tu Guismo33 ?

@ plus

 

[pierreP2501]

Bonjour à tous,

Petite question pour Jocelyn et son fichier doublons par ligne. Comment le faire fonctionner avec du texte?
je met mon fichier en pj.

je voudrais faire apparaitre dans la zone en jaune les valeurs uniques du tableau "zone".

Cordialement

 

[Jocelyn]

Bonjour a tout le monde
Bonjour pierreP2501,

Un essai en fichier joint

Cordialement

 

[pierreP2501]

Merci Infiniement! je comprends pourquoi je buttais, je suis encore très novice sur ce type de formule ( index et petite valeur notamment)
j'ai trouvé la parade en mettant en feuille 2 une formule d'index qui renvoi par la suite sur la feuille 1 par rechercheV

merci encore