Optimisation RECHERCHEV sur Excel

[mchiadmi]

Salut tout le monde,

Je travail sur un fichier excel qui contient 2 colonnes de 500 000 lignes. (Le fichier fait 8Mo)

Dans ce fichier j'utilise la fonction recherchev pour comparer les 2 colonnes. Comme vous vous en douter l'utilisation de la fonction recherchev prends du temps. D'ou les questions suivantes:

- Avez vous des astuces que je pourrais utiliser pour que la fonction recherchev prennent moins de temps?
- Quels outils serez plus adéquat à ce genre de comparaison?

Merci d'avance

 

[mutzik]

Re : Optimisation RECHERCHEV sur Excel

bonjour

comparer quoi dans ces deux colonnes ?
les valeurs de la colonne A existent dans la B ? l'inverse ? autre chose ?
sinon, VBA

 

[mchiadmi]

Re : Optimisation RECHERCHEV sur Excel

Je veux savoir si les valeurs de la colonne B sont dans la colonne A?
Comment je pourrais faire sur Excel ?(plus rapidement^^) ou sinon sur VBA?

 

[gosselien]

Re : Optimisation RECHERCHEV sur Excel

Bonjour le forum;

un très bon exemple de JB ici:

P.

 

[merinos-BernardEtang]

Re : Optimisation RECHERCHEV sur Excel

le plus simple est de TRIER les données à chercher puis de chercher avec l'option "vrai" ...

la formule sera du type

=if(vlookup(A44;mon_tabl_trié;1;vrai)=A44; vlookup(A44;mon_tabl_trié;2;vrai);"absent")

 

[gosselien]

Re : Optimisation RECHERCHEV sur Excel

le plus simple est de TRIER les données à chercher puis de chercher avec l'option "vrai" ...

la formule sera du type

=if(vlookup(A44;mon_tabl_trié;1;vrai)=A44; vlookup(A44;mon_tabl_trié;2;vrai);"absent")

sur 200 ou 500.000 lignes ça doit être relativement lent non ?

 

[BOISGONTIER]

Re : Optimisation RECHERCHEV sur Excel

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Cellules/Doublons2colonnes3.xls

Sub DoublonsRapide2col()
  Application.ScreenUpdating = False
  Set d1 = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  Set plage1 = Range("A1", [a65000].End(xlUp))
  Set plage2 = Range("B1", [B65000].End(xlUp))
  [A:B].Interior.ColorIndex = xlNone
  a = plage1
  For Each c In a
    If c <> "" Then d1(c) = ""
  Next c
  b = plage2
  For i = 1 To UBound(b)
    If d1.exists(b(i, 1)) Then plage2.Cells(i, 1).Interior.ColorIndex = 3
    If b(i, 1) <> "" Then d2(b(i, 1)) = ""
  Next i
  For i = 1 To UBound(a)
    If d2.exists(a(i, 1)) Then plage1.Cells(i, 1).Interior.ColorIndex = 4
  Next i
End Sub

0,5sec pour 20.000 lignes

Repérage des doublons entre 2 colonnes


JB

 

[urbanito1]

Re : Optimisation RECHERCHEV sur Excel

le forum
bonsoir à tous
pour ce type de comparaison j'ai utilisé le fichier de Boisgontier ( sans être grand connaisseur des macros )
urbanito1

 

[urbanito1]

Re : Optimisation RECHERCHEV sur Excel

Désolé
je n'avais pas vu le post de gosselien
même idée

 

[merinos-BernardEtang]

Re : Optimisation RECHERCHEV sur Excel

sur 200 ou 500.000 lignes ça doit être relativement lent non ?

oui, c'est lent... et la solution de BOISGONTIER est de loin la meilleure... a condition de la comprendre ou d'accepter de ne pas comprendre ce qu'on fait.

 

[gosselien]

Re : Optimisation RECHERCHEV sur Excel

Elle n'est pas si compliquée à comprendre, il y a pire 🙂