Pb boucle pour filtre élaboré

Fermé
Duks - 30 juin 2010 à 12:34
Bonjour,

J'ai un problème avec ma boucle qui ne marche pas. Je ne suis pas très forte en vba, je commence à peine !
Alors en fait je voudrai faire une filtre élaboré sans doublons pour chaque colonne de la plage. Le but étant de faire la liste de toutes les valeurs différentes pour chaque colonne.

La plage que j'aimerai filter va de B4 à H45.

J'ai essayé avec ce code mais ça ne marche pas :S

Sub FiltreSansDoublons()

Dim cCopy As Integer
Dim c As Integer


c = 2
cCopy = 10

For c = 2 To 8

[c & 4: c & 45].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[cCopy & 4], Unique:=True
c = c + 1
cCopy = cCopy + 1

Next c

End Sub

Si quelqu'un a une petite idée !!!

Merci d'avance !!

Duks