lenteur dans l'extraction de données

[Hugues]

Bonjour Le Forum,

Tout d'abord merci aux dépanneur qui ont pu trés vite remettre sur pied ce super site. Je me sentais perdu.
Mon problème est le suivant :
Dans la feuille (1), j'ai
- en colonne A les N° de comptes
- en colonne B l'affectation (une vingtaine de type d'affectation)
- en colonne C les montants

Je souhaiterais extraire de cette feuille et les positionner en feuille (2), tous les N° de comptes et les montants répondant à deux types d'affectation (Ex Paris et Val de Marne).
Pour cela, j'ai confectionné une macro à l'aide d'une boucle qui s'incrémente de 1 (N° de ligne) suivit de 2 conditions (2 fois If ....then).
Pour traiter 600 lignes je mets 2 minutes.
Auriez - vous une autre astuce ?

Merci par avance,

Hugues

 

[Jacques87]

bonjour Hugues

Pourquoi 2 boucles If .. End If, alors que ton test est basé sur le même champ : affectation ?
Il te suffit d'écrire :

For I = 1 To Range('A65536').End(XlUp).Row
If Range('C' & I).Value = 'Paris' or Range('C' & I).Value = 'Val de Marne' Then
..... (ton code) ......
End If
Next I

Bon courage

 

[michel_m]

Bonjour,

Et pourquoi pas un TCD qui éviterait une macro et serait (pratiquement) instantané ?

A+
Michel_M

 

[Hugues]

Merci à vous pour votre aide.

Hugues

 

[herrator]

pourquoi pas un filtre?