Discussion :

[eurekgeez]

Bonjour,

Je souhaiterai copier les lignes d'un tableau situé sur une Feuil1, dans une Feuil3, si un attribut de l'enregistrement est present dans une liste de données situées sur une Feuil2.

J'ai deja reussi une ébauche avec un foreach :

Code :

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

1
2
3
4
5
For Each y In Feuil2.Range("blabla")
For Each x In Feuil2.Range("balals")
If x = y Then x.Offset(0, 1) = x
Next x
Next y

Mais seulement le foreach prend trop de temps à mon gout.

Avez vous des idées autres qu'un foreach ?

Et comme vous l'avez remarqué, dans mon exemple je ne copie pas l'enregistrement entier, mais juste la case que l'on compare, et encore je la copie juste a coté et pas dans une nouvelle feuille.

Merci d'avance pour vos réponses.

Cordialement,

[jfontaine]

Bonjour,

Pour accélérer les traitements, on bloque les calculs et on désactive la mise a jour de l'affichage

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
'Ton code
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

[eurekgeez]

Bonjour jfontaine,

Même si c'est encore long, c'est effectivement beaucoup plus rapide qu'avant et je m'en contenterai pour l'instant !

Merci beaucoup pour ta réponse.

Cordialement,

[delphine35]

Tu peux remplacer la deuxieme boucle x .. Next x par un FIND (range.Find)