Discussion :

[victorzecat]

Bonjour à tous,

Je souhaiterais développer une macro pour récupérer les occurences dans une colonne:

Par exemple.

Carotte
Banane
Pomme
Poire
Carotte
Pomme

Résultat de la macro:

Carotte
Banane
Pomme
Poire

Etant débutant, je ne sais pas par ou commencer, pouvez vous m'aider?

En vous remerciant par avance

Cordialement

[fred65200]

bonjour,

je te conseille de lire ce tutoriel sur la gestion de doublons

http://silkyroad.ftp-developpez.com/...s/doublons.pdf

cordialement

[victorzecat]

Merci pour le lien,

J'ai essayer de faire fonctionner la macro suivante (Section IV-A - Créer une liste sans doublons)

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
Option Explicit
Sub Test()
Creer_Liste_SansDoublons Range("A1:A20")
End Sub
Sub Creer_Liste_SansDoublons(Plage As Range)
Dim Cell As Range
Dim Un As Collection
Dim i As Long
Set Un = New Collection
On Error Resume Next
'Boucle sur la plage de cellule
For Each Cell In Plage
'If Cell <> "" Permet de ne pas prendre en compte les cellules vides
'Un.Add Cell, CStr(Cell) Ajoute le contenu de la cellule dans la collection
If Cell <> "" Then Un.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
'Boucle sur les éléments de la collection.
For i = 1 To Un.Count
'Ecrit le résultat dans la fenêtre d'exécution (Ctrl+G)
Debug.Print Un.Item(i)
Next i
Set Un = Nothing
End Sub

Toutefois je ne parviens pas à la faire fonctionner... (je vais essayer de m'y plonger plus longtemps ce soir), en attendant merci pour votre aide...

[victorzecat]

En réponse à ma propre question, il suffit d'utiliser une macro de tri des doublons, (il y en a à foison sur le net).

-Question résolue-