XL 2016 Vba ou Formule doublons sur lignes

job75 à dit:

Re,

Je n'avais pas vu JHA, bonjour JHA.

Si l'on veut la liste colonne par colonne :

Code:

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+

Cliquez pour agrandir...

CISCO à dit:

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

Cliquez pour agrandir...