Optimisation d'une durée de procedure vba excel

Bonjour à tous !

J'ai une petite question pour optimiser un programme qui met trop de temps à se derouler. j'ai 2 feuilles excel nommée PE (nombre de ligne = l) et RSA non orienté (nombre de ligne = k) que je dois croiser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

For i = 2 To k     For j = 2 To l       If Sheets("RSA Non orienté").Cells(i, 18) = Sheets("PE").Cells(j, 2) Then   Sheets("RSA Non orienté").Cells(i, 20) = "Inscrit PE"   End If   Next j       If Sheets("RSA Non orienté").Cells(i, 20) = "" Then   Sheets("RSA Non orienté").Cells(i, 20) = "Non inscrit PE"       End If     Next i

---

En gros si la colonne 18 de la feuille RSA et la colonne 2 de PE sont égale alors la colonne 20 de RSA = "Inscrit PE" et si elle est vide alors on écrit "non inscrit PE"

J'aimerais bien qu'il passe au i suivant dès qu'il trouve l'égalité histoire qu'il ne parcours pas tout le fichier à chaque fois par éxemple, ce qui ferait gagner du temps.

Des idées ?

Merci d'avance

Bonjour,

Code:

---

1 2 3 4 5 6

If Sheets("RSA Non orienté").Cells(i, 18) = Sheets("PE").Cells(j, 2) Then   Sheets("RSA Non orienté").Cells(i, 20) = "Inscrit PE" Exit For   End If

---

Merci beaucoup en effet j'ai gagné du temps :)

Y'a-t-il d'autres moyens pour optimiser où est ce optimisé au maximum ?

Dans la cellule T2 de la feuille "RS non orienté", mets la formule suivante :

Code:

---

=SI(SIERREUR(RECHERCHEV(R2;'Inscrit PE'!B:B;1;FAUX);"X")=R2;"Inscrit PE";"Non inscrit PE")

---

Recopie cette formule sur toute la colonne (jusqu'à la ligne l).

Plus de code VBA, le résultat est automatiquement à jour.

merci beaucoup !