Lister toutes les valeurs différentes d'une colonne

brice0306 Messages postés 68 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 16 février 2006 - 24 juin 2004 à 14:34
brice0306 Messages postés 68 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 16 février 2006 - 24 juin 2004 à 15:32
Bonjour tout le monde!!
Bon je souhaiterais une petite aide sur qqchose d'assez facile je pense, et qui pourtant me pose des prb...
j'explike:
G une colonne avec différents numéros de clients dedans (certains en double).
et je voudrais avoir la liste de tous les différents numéros de clients sur une autre feuille.

Ma méthode:
je scanne toutes les lignes et j'inscrit ce numéro s'il n'existe pas deja sur mon autre feuille... basique.

Mais je ne sais pas pourquoi cette méthode bug pour un seul numérode client qui se retrouve en double....
En gros auriez vous une autre méthode en utilisant les filtre pe...
merci d'avance.

_______________
www.arsenal.fr.st

3 réponses

cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008
24 juin 2004 à 15:21
Salut,
Donne nous ton code, je pense que ce sera mieux et les controles que tu utilises.

bonne prog
liquide
0
cs_PhilippeE Messages postés 437 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 10 août 2010 2
24 juin 2004 à 15:25
Es-tu sûr que le nom est bien différent ?
Pas d'espace en trop ?
0
brice0306 Messages postés 68 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 16 février 2006
24 juin 2004 à 15:32
bon en fait je viens de trouver le bug.... C un truc con et assez gênant
voici le style de la fonction que j'utilise:

Public Function seek_Area(Code_P As String) As String

Dim lacase As Range
Dim max_l As Integer
Dim plage As String
Dim adresse As String

If Code_P <> "" Then
W_Ref.Activate
W_Ref.Sheets(3).Activate

max_l = W_Ref.Sheets(3).UsedRange.Rows.Count
plage = "b1:b" & max_l

With W_Ref.Sheets(3).Range(plage)
Set lacase = .Find(Code_P, LookIn:=xlValues)
End With

If lacase Is Nothing Then
seek_Area = "Inconnue"
Else

adresse = lacase.Address
adresse = "$a" & Mid(adresse, 3)
seek_Area = W_Ref.Sheets(3).Range(adresse).Value

End If
End If
End Function

et le problème est que je ne sais pouquoi mais lorsque le numéro de client est plus petit que les autres genre: "100" au lieu de "1200" d'habitude je me retrouve avec un "0100" et donc il ne trouve jamais le 100...
voili voilou merci qd mm les gars...

_______________
www.arsenal.fr.st
0