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
Merci a tous pour ces post, il fonctionne très bien, je sais je me répète maisRe,
Je n'avais pas vu JHA, bonjour JHA.
Si l'on veut la liste colonne par colonne :
A+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
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