Traduire un algorithme en code VBA

Bonjour,
Quelqu'un peut me traduire cet algorithme en code VBA

Déclarer 2 entier i et i


pour i allant de 2 à 8000 faire 
      pour j allant de 3 à 1000 faire 

      si valeurderange(B , i) > valeurderange(G, 3) 
          et si valeurderange(B , i) < valeurderange(H, 3) 
         
        Alors valeurderange(K, j) = valeurderange(B , i) 

t=i+1 

      valeurderange(L, j) = valeurderange(B , t) 
              Fin Si 
      Fin Si 



UN COUP DE MAN SVP

Merci

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Au lieu de donner l'algorithme, si tu expliquais exactement ce que tu veux faire?

    Parce que là, tu fais pas loin de 800 000 boucles.....

    Peut-être existe-t-il une autre manière d'arriver à ton résultat?

    Le mieux serait que tu mettes un fichier exemple sur cjoint, avec quelques données bidons, et en expliquant ce que tu veux au final...

    Bon courage