Depassement de capacite ereur 6

bonjour j 'aurais besoin de votre aide concernant l'erreur cite en tittre

voila le code : je vous ai mis en gras ou ca cloche

Dim tTabO, tTabF() As Double

'

With Worksheets("Extract")

iRow = .Range("A" & Rows.Count).End(xlUp).Row

tTabO = .Range("A1").Resize(iRow, 8) " en jaune sur cette ligne ?

End With

'

For x = 1 To UBound(tTabO, 1)

If Left(CStr(tTabO(x, 2)), 4) = "VISA" Then

iIdx = iIdx + 2 ' saut de ligne (2)

ReDim Preserve tTabF(6, iIdx)

tTabF(0, iIdx - 1) = tTabO(x, 2)

For y = x To UBound(tTabO, 1)

If CStr(tTabO(y, 1)) = "TOTALS" Then

tTabF(1, iIdx - 1) = "TOTAL PIECES"

tTabF(2, iIdx - 1) = tTabO(y + 0, 4)

tTabF(3, iIdx - 1) = "LBS KGS"

tTabF(4, iIdx - 1) = tTabO(y + 0, 6)

tTabF(5, iIdx - 1) = tTabO(y - 12, 1)

x = y + 3

Exit For

End If

Next

End If

Next

With Worksheets("Results")

.Cells.ClearContents

.Range("A4").Resize(iIdx, 6) = WorksheetFunction.Transpose(tTabF)

.Columns("A:F").AutoFit

End With

'

End Sub

Merci

Bonsoir,

Si tu utilisais la balise Code, cela éviterait l'apparition de smiley au milieu !

Il manque le début de la procédure, mais apparemment iRow n'est pas déclarée... Il serait cependant bon de savoir quelle est sa valeur au moment de l'erreur !

tTabO : Variant accueillant un tableau. On ne voit pas dans le code de source d'erreur 6 sur cette ligne...

Bonjour,

Il m'est arrivé d'avoir atteint une limite avec l'instruction resize (lié à une version particulière d'excel ?), Probablement que iRow dépasse cette limite.

pour contourner le problème.

TabO = .Range("A1:H" & irow)