décroissance

[Guesh]

bonjour,

j ai ce code :

For i = 5 To 2
For n = 2 To derlin1
For m = 2 To derlin2

a = Left(Sheets('Feuil1').Range('A' & n), i) & Sheets('Feuil1').Range('B' & n)
b = Left(Sheets('Feuil2').Range('A' & m), i) & Sheets('Feuil2').Range('B' & m)

If a = b And Sheets('Feuil2').Cells(m, 3).Value = '' Then
Sheets('Feuil2').Range('C' & m) = Sheets('Feuil1').Range('C' & n)
Sheets('Feuil2').Range('D' & m) = Sheets('Feuil1').Range('A' & n)
Sheets('Feuil2').Range('E' & m) = Sheets('Feuil1').Range('B' & n)
End If


Next m
Next n
Next i

mais qd je compile, visiblement, VBA ne m'accepte pas la ligne : For i = 5 To 2. Par contre il m accepte For i = 2 to 5.

Comment lui imposer la premiere solution ?

Merci

 

[Qrieux]

les boucles FOR sont réalisées avec un pas de 1 par defaut entre chaque iteration
pour aller de 5 a 2 il faut indiquer un pas de -1

le code doit être

For i = 5 to 2 step -1

A+

 

[pierrejean]

bonsoir guesch

j'attire ton attention sur le fait que c'est la valeur 2 de i qui sera preponderante

tel que ce code est ecrit, les boucles avec i de 5 à 3 ne servent à rien puisque les resultats de la boucle avec 2 (nettement plus nombreux ) couvriront les precedents

je te suggere plutot de faire des recherches successives en essayant de noter l'origine (par une coloration par exemple)