Discussion :

[nicoroth]

a tous,

J ai le code suivant

Code :

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

1
2
3
4
5
 
Dim lig As Long
lig=Worsheets("Dist").Range("CE2").End(xlDown).Row
Worksheets("Dist").Range("CE12").Autofilter
Worksheets("Dist").Range("CE12:CE"&lig).Advancedfilter     Action:=xlfilterCopy, Copytorange:=Range("B15"),Unique=True

qui me permet de creer une liste a partir d une autre

Seuleument, la liste d origine contient des formules qui me donne des valeurs.
Le code ci dessus me fait une nouvelle liste de formules et non de valeurs, je pense qu il faut caller un .Value quelquepart, seuleument apres plusieurs essaye, je ne parvient pas a trouver.



merci d avancea celui qui sait

[nicoroth]

PS:

Je pense qu l on peut ou l on doit passer par un collage speciale (Valeur), seuleument je ne connais pas du tout la syntaxe.....

[alsimbad]

je ne sais pas tout, loin de là, mais je ne pense pas que tu puisses, je ne vois pas la possibilité.

Code :

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

1
2
3
4
5
6
7
sub liste()
Dim lig As Long
lig = Worksheets("Dist").Range("C1").End(xlDown).Row
Worksheets("Dist").Range("C1").AutoFilter
Worksheets("Dist").Range("C1:C" & lig).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True
End Sub

ça marche, mais pas avec les formules. je pense que si il filtre des formules et qu'il suprime les doublons, il perd certaines références.