Menu déroulant et valeurs

[Marco]

Re à tous,

Ce coup-ci, je souhaiterais faire un peu de ménage dans mes listes.
Je m'explique :

J'ai des données dans une liste qui proviennent d'une base de données qu'un opérateur alimente au fur et à mesure.
Lorsque je souhaite consulter les données, je me retrouve avec plusieurs fois la même donnée (même orthographe, même majuscule...).

Comment pourrais je faire pour les classer par ordre alphabetique et supprimer les doublons ?

Merci encore pour votre aide, vous êtes formidables.

A+

 

[Staple1600]

Bonjour


Filtre élaboré
cocher la case Sans doublons

Plus exactement Extraction sans doublons

Message édité par: staple1600, à: 22/08/2005 17:38

 

[Marco]

Et quand c'est fait avec VBA, quelle est la commande ?

 

[Staple1600]

Faire la manip en utilsant l'enregistreur de macro

et le code VBA apparaitra...

 

[Marco]

Merci pour le conseil, mais je dois la mettre où cette partie du code :

Range('A1:AZ12').AdvancedFilter Action:=xlFilterInPlace, Unique:=True.

Pour être plus clair, j'ai plusieurs listes de choix dont les codes sont à peu près les suivants :

'Paint_type
If Cbo_paint_type.ListIndex <> -1 Then
Paint_type = Cbo_paint_type.Value
Critere = Critere & '(values!D2 = ''' & Paint_type & ''') * '
End If

C'est donc sur les données qui apparaissent dans ces listes (issues au préalable d'une saisie manuelle) que je souhaiterais faire un tri par ordre alphabetique ainsi que supprimer les doublons.

Comment puis je faire ?

Merci pour votre aide et votre patience...