Discussion :

[Stef.proxi]

J'ai une colonne du genre :

Code :

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

1
2
3
4
5
6
7
8
9
412
412
412
413
414
414
415
416
416

et je souhaiterais ecrire une macro qui me permette de sortir la meme colonne mais sans les doubles ! C'est à dire:

Code :

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

1
2
3
4
5
412
413
414
415
416

J'ai essayé de construire la macro avec des test mais c'est un caffouillage terrible... N'y-aurait-il pas plus facile???

Merci beaucoup d'avance!!!

[zazaraignée]

Salut

Je crois bien que tu devra passer par un tableau (variable array) pour queuillir les valeurs de ta colonne, faire les tests sur ce tableau et envoyer le résultat dans un secon tableau. Ensuite efface la colonne et réécris la avec ton deuxième tableau. Une fois fait, si tout est OK, les tableaux se videront à la fin du Sub. Si c'est pas OK, tu peux toujours récupérer le premier tableau, avant la fin du Sub, bien sur! A moins d'utiliser une variable globale (niveau module).

Va voir ici, c'est instructif!

En fait c'est pas seulement une question de rapidité. Dans bien des cas, ça facilite la manipulation des données.

[DarkVader]

:
zazaraignée, pense vba et non vb

Code :

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

Columns(1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

[zazaraignée]

:o Ha! C'était trop simple! pourquoi, j'y ai pas pensé!
Oui, c'est vrai, encore une fois, j'ai pensé VB!

[Stef.proxi]

Oui mais avc ça tu ne mets qu'un filtre.. les valeurs ne sont pas supprimées

[DarkVader]

Il ne reste plus qu'à faire une copie de la plage dans une nouvelle feuille
supprimer l'original et renommer la feuille temporaire -
Il y a peut-être moyen de le faire directement, mais je ne vois pas pour l'instant.

[Stef.proxi]

Merci beaucoup! Je n'y avais pas pensé! Ca marche très bien!