VBA Variable dans Range

Bonjour à tous,

Je tente d'optimiser une macro dans laquelle je calcule une moyenne dans une feuille très lourde

La moyenne doit s'effectuer entre les 400 lignes précédentes et suivantes de la ligne courante

Visiblement, mon code ne semble pas fonctionnel

Merci de vos lumières !!!!

    
     xcomp = Range("A" + CStr(i))
    Select Case ligneQ

    Case Is > 400
        rngQ = Range("Q" + CStr(i) - 400 & ":Q" + CStr(i + 400)).Address
        rngA = Range("A" + CStr(i) - 400 & ":A" + CStr(i + 400)).Address
    Case Else
        rngQ = Range("Q1:Q" + CStr(i + 400)).Address
        rngA = Range("A1:A" + CStr(i + 400)).Address
    End Select   

        res = Evaluate("AverageIf(rngQ, " = " & xcomp &, rngA)")

Bonjour

Tu devrais joindre ton fichier...

Bye !

Bonjour,

Il ne faut pas travailler sur des cellules. Il faut utiliser des Arrays (plus rapide)

Boisgontier