comptabilise et suppr de doublon

paskikic

XLDnaute Occasionnel
bonjour,

je cherche une solution en VBA pour comptabiliser chaque combinaisons et supprimer les doublons ensuite, la deuxieme partie est simple mais la premiere me gratte les neuronnes et je sais meme pas par ou commencer c est pour ca que je fais appel a des cracks comme vous

si mon explication n est pas claire mon exemple le sera peut etre un peu plus

merci
 

Pièces jointes

  • class comb.xlsx
    14.2 KB · Affichages: 37
  • class comb.xlsx
    14.2 KB · Affichages: 39
  • class comb.xlsx
    14.2 KB · Affichages: 44

laetitia90

XLDnaute Barbatruc
Re : comptabilise et suppr de doublon

bonjour paskikic

en vba mais tu peus le faire directement selection plage données ect...

Code:
Range("$A$2:$A$" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1)

pour la premiere question

Code:
Sub es()
 Dim t(), i As Long, m As Object
  Set m = CreateObject("Scripting.Dictionary")
  t = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
  For i = 1 To UBound(t)
  m(t(i, 1)) = m(t(i, 1)) + 1
  Next i
  [e4].Resize(m.Count) = Application.Transpose(m.keys)
  [f4].Resize(m.Count) = Application.Transpose(m.Items)
End Sub
 
Dernière édition:

Misange

XLDnaute Barbatruc
Re : comptabilise et suppr de doublon

BOnjour
Pas besoin de macro pour cela il te suffit de faire un TCD. En 2 clics tu as ta réponse.
Pour supprimer les doublons, le plus simple = tu copies le tableau (que j'ai mis sous forme de tableau excecl ça simplifie sa manipulation) tu le colles ailleurs puis données/supprimer les doublons.
 

Pièces jointes

  • class comb.xlsx
    17.9 KB · Affichages: 29
  • class comb.xlsx
    17.9 KB · Affichages: 37
  • class comb.xlsx
    17.9 KB · Affichages: 33

Discussions similaires

Réponses
3
Affichages
555

Statistiques des forums

Discussions
312 452
Messages
2 088 541
Membres
103 880
dernier inscrit
rafaelredsc