Discussion :

[Shikam]

Bonjour,


Encore un soucis, je m'arrête pas ! J'ai une colonne avec un certain nombre de chiffre et le meme chiffre peut apparaitre plusieurs fois, j'aime copier le chiffre des qu'il apparait une fois dans une colonne ! Par exemple :

1
1
1
2
3
8
8
5
4

et je veux

1
2
3
5
4

Merci d'avance

[laetitia]

bonjour Shikam le forum cherche sur colonne A copy sur colonne B a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub es()
 Dim c As Variant, m As Object
    Set m = CreateObject("Scripting.Dictionary")
    For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
     m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
   Next c
   [b2].Resize(m.Count, 1) = Application.Transpose(m.keys)
End Sub

ps: bisous l'ami Mercatog par contre pas sur que ca marche avec excel 2000??

[Minick]

Salut,

Si tu as un entete a ta colonne tu peux utiliser un filtre elabore:
(en a1 l'entete, en dessous les donnees, en B1 le resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True

[Shikam]

Merci à tout le monde, j'ai pu résoudre mon problème ! Merci encore !

[mercatog]

Données en colonne A à copier en colonne B (à adapter)
les données de A doivent être triées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim LastLig As Long, i As Long
LastLig = Cells(Rows.Count, "A").End(xlUp).Row
Columns(2).ClearContents
Range("B2") = Range("A2")
For i = 2 To LastLig - 1
    If Range("A" & i + 1) <> Range("A" & i) Then Range("B" & Cells(Rows.Count, "B").End(xlUp).Row + 1) = Range("A" & i + 1)
Next i

Edit: Bonjour Laetitia, désolé pas rafraichi
en plus, par ta proposition, les données peuvent ne pas être triées au préalable.