filtre elaboré et tri aléatoire

[enzop]

Bonsoir,
A partir d'une extraction à l'aide d'un filtre élaboré j'obtiens des résultats avec un nombre de ligne variant suivant les critères choisis .
A partie des résultats du filtre élaboré je souhaite de nouveau extraire une sélection de 20 lignes au hasard et exporter le résultat sur une autre feuille et cela par VBA .

merci de votre aide

.

 

[Sylvain]

Bonjour,

Si ton extraction n'est pas au même endroit que la plage initiale, voici ce que je ferais :
dans une colonne supplémentaire O par exemple, je mettrai en titre hasard et comme valeurs :

lignes_extraites=range('A6553').end(xlup).row
range('o2:o' & lignes_extraites).formulalocal='=alea()'

Puis tu fais un tri sur cette colonne O

range('a:o').sort Key1:=Range('o2'), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Enfin tu copies tes valeurs :

Range('a1:n21').copy

Message édité par: Sylvain, à: 31/03/2006 10:56

 

[perdinch]

merci

j'ai pu adapter le code proposé et ca marche.

merci