Problème sur une boucle for next

Question

Voici le code qui pose problème depuis quelques jours:

For i = 1 To 12

    For j = 1 To 9

    Set rg = Worksheets(1).Cells(2, 1).Resize(n, 73)

    If Worksheets(1).Cells(i + 1, 4 * j + 4).Value = WorksheetFunction.Small(rg.Columns(4 * j + 4), 1) And       Worksheets(1).Cells(i + 1, 4 * j).Value = WorksheetFunction.Small(rg.Columns(4 * j), 1) Then Worksheets(1).Cells(i + 1, 4 * j + 5).Value = Worksheets(2).Cells(i + 16, 5).Value * Worksheets(1).Cells(i + 1, 4 * j + 3).Value * (4 / 3)

    Next j

Next i

Le compilateur m'indique une erreur sur la partie surlignée, ce qui me parait bizarre car après avoir tenté de comprendre le souci, je me suis aperçue que l'erreur retentissait dès lors que l'indice de l'objet "rg" est différent de "4*j", ce qui me semble étrange.

Si quelqu'un pourrait m'aider ca serait un grand soulagement, ca fait 3 nuits que je bloque dessus.

Merci à tous.

PS: le code au centre fait l'objet d'une ligne de calcule.

eriiic · Answer

Comment veux-tu que l'on cherche qcq chose sans un fichier et les manip à faire pour provoquer l'erreur ? eric...