extraction de 2 lignes selon critéres

[vince]

bonsoir

A partir du fichier exemple çi-joint je souhaite extraire selon la méthode la + rapide (filtre élaboré ou VBA )2 lignes selon certains critères.Le fichier final est volumineux 45000 lignes à traiter .

merci de votre aide

vonce [file name=test_20060511202959.zip size=2806]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060511202959.zip[/file]

 

[porcinet82]

Salut Vince,

Apres quelques jours passés loind du forum, je reppase faire un petit tour et donc j'en profite pour essayer de t'apporter une solution, meme si je ne suis pas sur que ce sera la meilleur ou la plus rapide.

Voici le code la macro que je te propose :

Sub test()
Dim i As Double

Sheets('tb').Select
For i = 2 To Range('A65536').End(xlUp).Row
    If Not Cells(i, 1).Value = Cells(i + 1, 1).Value Then
        With Sheets('Feuil1')
            .Range('A65536').End(xlUp).Offset(1, 0).Value = Cells(i - 1, 1).Value
            .Range('B65536').End(xlUp).Offset(1, 0).Value = Cells(i - 1, 2).Value
            .Range('A65536').End(xlUp).Offset(1, 0).Value = Cells(i, 1).Value
            .Range('B65536').End(xlUp).Offset(1, 0).Value = Cells(i, 2).Value
        End With
    End If
Next i
End Sub

@+

 

[SergiO]

Bonsoir Vince, Porcinet82

J'ai essayé le code de Porcinet et j'ai constaté une erreur (Voir Feuil1) mais ne sachant pas la corriger, je lui laisse le soin de le faire.

Si un article se trouve seul au milieu de la base, cela génère égalemnt un résultat erroné.

J'ai laissé ma solution version macro excel 4.0 pour info.

@+ [file name=Extraction_Vince.zip size=10990]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Extraction_Vince.zip[/file]

 

[perdinch]

merci ca marche bien

est il possible EN plus du filtre effectué par la macro de récupérer le contenu des colonnes C à G qui contiennent aussi des données et que je n'ai pas évoqué initialement ?

cordialement

perdinch

 

[SergiO]

Bonjour,

Voici ma version mise à jour à tester.

@+ [file name=Extraction_Vince_20060512082356.zip size=9629]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Extraction_Vince_20060512082356.zip[/file]

 

[Jocelyn]

Bonjour le Forum,
Bonjour Vince, porcinet82, SergiO,

Je n'avais pas vu que le post avait été doublé j'ai répondu sur l'autre par formule, alors si ca interesse quelqu'un ma soluce est la :

Lien supprimé

Jocelyn

 

[AV]

Ave,

Avis perso : vu le nombre de lignes annoncé et la possiblité (ultérieure ?) de données non triées, il faut exclure les solutions passant par des boucles et s'orienter vers les filtres (imbattables sur des grandes bases)

AV [aaa] [file name=DeuxMeilleursDeChaque.zip size=9346]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DeuxMeilleursDeChaque.zip[/file]

 

[vince]

merci de votre aide précieuse.
cordialement

vince

 

[vince]

merci de votre aide .

 

[vince]

merci de votre aide .