trouver les valeur différentes d'une colonne

Version imprimable

04/05/2011, 09h07
dodo69

trouver les valeur différentes d'une colonne

Bonjour à tous,

J'aimerai pouvoir trouver toutes les valeurs d'une colonne.
Je m'explique:
J'ai sur la colonne A de ma feuille 1 le nom des différents vendeurs de ma boite et en colonne B les produits.

Exemple:

Dupond produit A
Dupond produit B
Martin produit C
Dupond produit D
Martin produit E
Clement produit F

j'aimerai que ma macro soit capable de trouver tous les noms différents qu'ils trouvent en colonne A.
Avec des recherches, il me semble qu'il existe un dictionnaire, mais je comprend pas trop comment ca marche.

merci d'avance pour votre aide.

Cdt
DoDo
04/05/2011, 10h03
pgz

Bonjour.

Tu devrais aimer en FAQ Excel Comment supprimer les doublons contenus dans une plage de cellules ?

Bonne journée,

PGZ
04/05/2011, 10h36
dodo69

salut pgz,

j'ai du mal me faire comprendre, je veux pas supprimer des doublons, mais simplement récupérer les valeurs différentes de la colonne A.

Merci pour ton aide quand même.
Cdt
DoDo

Bonjour,
adaptes cette proposition :

Code:

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
public j as long
Sub Test_doublons()
With Sheets("feuil1")
   j = .Range("a" & .Rows.Count).End(xlUp).Row
   IdentifieDoublons Range("A2:A" & j)
End With
End Sub
 
Sub IdentifieDoublons(Plg As Range)
Dim Un As Collection, x As Long, tb()
Set Un = New Collection
x = 0
On Error Resume Next
With Sheets("references")
   For Each cel In Plg
      If cel <> "" Then
        ReDim Preserve tb(x + 1)
         Un.Add cel, CStr(cel)
         If Err = 0 Then
            tb(x) = cel.Value
         End If
        'Efface toutes les valeurs de l'objet Err.
         Err.Clear
      End If
   Next cel
End With
For x = 0 To UBound(tb()) - 1
    MsgBox tb(x)
Next x
Set Un = Nothing
End Sub

04/05/2011, 11h42
dodo69

Merci pour ta proposition casefayere,

La msgbox me sort juste 1 nom sur ceux inscrit en colonne A.
C'est normal ?

Le top ca serait que le programme me sorte tous les noms en me les ecrivants sur une autre feuille.
C'est possible?

Merci
04/05/2011, 12h25
casefayere

Citation:

Le top ca serait que le programme me sorte tous les noms en me les ecrivants sur une autre feuille.
C'est possible?

bien sur le msgbox, c'est pour l'exemple, tu as raison, c'est normal qu'il ne sorte qu'un nom avec ton exemple, je n'ai pas fait gaffe et regarder pour corriger
04/05/2011, 13h15
pgz
Re,

Citation:

Envoyé par dodo69

Le top ca serait que le programme me sorte tous les noms en me les ecrivants sur une autre feuille.
C'est possible?

AU départ tu cherchais à utiliser un dico, d'où le renvoi en FAQ.

Avec ce que tu dis maintenant :
- tu copies ta colonne dans la feuille (l'"autre feuille")
- tu appliques la méthode Removeduplicates à la nouvelle colonne
.

Cordialement,

PGZ
04/05/2011, 14h50
dodo69

Merci pgz,
ca marche parfaitement :)
Désolé d'avoir parlé du dico qui a tout embrouillé lol ^^

Merci beacoup pour vos proposition en tout cas

Cordialement
DoDo