Discussion :

[jords]

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 :

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

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

[Daniel.C]

Bonjour,

Code :

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

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

[jords]

Merci beaucoup en effet j'ai gagné du temps

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

[Denis la Malice]

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

Code :

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

=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.

[jords]

merci beaucoup !