extraction de 2 lignes selon critéres

  • Initiateur de la discussion vince
  • Date de début
V

vince

Guest
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]
 

Pièces jointes

  • test_20060511202959.zip
    2.7 KB · Affichages: 16

porcinet82

XLDnaute Barbatruc
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 :
Code:
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

XLDnaute Accro
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]
 

Pièces jointes

  • Extraction_Vince.zip
    10.7 KB · Affichages: 18
P

perdinch

Guest
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

XLDnaute Accro
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]
 

Pièces jointes

  • Extraction_Vince_20060512082356.zip
    9.4 KB · Affichages: 16

Jocelyn

XLDnaute Barbatruc
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
 
A

AV

Guest
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]
 

Pièces jointes

  • DeuxMeilleursDeChaque.zip
    9.1 KB · Affichages: 25

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla