Discussion :

[nicoroth]

salut tout le monde

bon, j ai un truc pas trop evident a faire et j avoue que je suis completement a la ramasse.

En gros j ai une liste de secteur dans une colonne qui se repettent, c'est a dire par exemple il peu y avoir 3 Banque, 2 Services publics, 5 loisirs et je ne sais quoi encore.

je voudrais donc savoir si par l intermediaire d une macro, il, etait possible de faire un petit trie de cet liste pour m'en ressortir une autre avec un seul secteur a chaque fois

sachant que cette liste est situé dans une colonne genre colonne A par exemple
Et que la nouvelle liste suite de la macro sortent en C

[Michel_M]

Bonjour,

Un peu plus de détails et peut-être un fichier joint ne serait pas du luxe...

[nicoroth]

malheureusement je ne pe pas transmettre de piece jointe, je vais donc tenter d expliquer plus simplement ce dont j ai besoin:

Dans la colonne A d'un classeur excel, j ai une suite de mot qui peuvent se repeter et tout ca dans le desordre. C est a dire:

A1: Chimie
A2: Automobile
A3: Industrie
A4: Chimie
A5: Services
A6: Banque
A7: Banque
A8: Chimie
Et cela continue sur plusieurs lignes...

On remarque que la Chimie sort 3 fois, que la banque 2 fois

Il me fodrai une macro qui me permette de trier ca, c'est a dire une nouvelle liste avec les mots mais qui cette fois ne sont cités qu une seul fois.

j espere que je suis plus clair

Merci

[patbou]

bonjour,
je crois qu il y a de nombreuse reponse a ce sujet
dans la recherche tape liste sans doublon ou trie sans doublon
tu devrai trouver assez facilement ton bonheur

[Michel_M]

Par formule, formule matricielle à valider par Ctrl+maj+entrée et à tirer vers le bas
C1 doit rester vide...
=INDEX($A:$A;MIN(SI(Nom<>"";SI(NB.SI(C$2:C2;Nom)=0;LIGNE(Nom)))))&""



Par macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Option Explicit
 
  Sub epurer ()
 
  Dim triage As Collection
  Dim nbre As Long, cptr As Long
 
  'ActiveSheet.Unprotect
  Application.ScreenUpdating = False
 
 
  nbre = Application.CountA(Range("A:A"))
  Set triage = New Collection
 
  On Error Resume Next
  cptr = 1
  While cptr <= nbre
 
          triage.Add Cells(cptr, 1).Value, CStr(Cells(cptr, 1).Value)
          cptr = cptr + 1
  Wend
  On Error GoTo 0
 
  nbre = triage.Count
 
  ' Ecrit la zone épurée (ici dans des cellules mais peut-etre adapté à des listbox et combobox)
  Range("C:C").ClearContents
  cptr = 1
  While cptr <= nbre
      Cells(cptr, 1) = triage(cptr)
      cptr = cptr + 1
  Wend
 
  'ActiveSheet.Protect
 
 
  End Sub

En espèrant que

Edit: excuses moi Patbou, je n'avais pas rafraichis...

[nicoroth]

En espèrant que

merci mon cher michel tu m as sorti d une grosse prise de tete cela fonctionne parfaitement

[Michel_M]

peut être un peu tard...
une toute simple:

Code :

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

1
2
3
4
5
6
7
Sub Extraire_doublons()
Dim lig As Long
 
lig = Range("A2").End(xlDown).Row
Range("A1").AutoFilter
Range("A2:A" & lig).AdvancedFilter Action:=xlFilterCopy, Copytorange:=Range("C1"), Unique:=True
End Sub

[nicoroth]

Il n est jamais trop tard

Merci beaucoup