Discussion :

[PierreL]

Bonjour,

j'essaie de faire tourner le code très simple ci-dessous et je récupère une erreur 6 "dépassement de capacité" que je ne comprends pas. Quand je passe en debug, la console pointe vers l'instruction en rouge ci-dessous. Pas de problème si j'exécute pas à pas.

Merci.

Sub vba_loop_range()
Dim iCell As Range
Dim rowNum, colNum As Integer
Dim TopAccounts(9) As String
Dim Values(9) As Double
Dim Account As String
Dim Invoicing As Double
Dim Bottom10 As Double
Dim i As Integer

Bottom10 = 0

For Each iCell In Range("H:H").Cells
rowNum = iCell.Row
Account = iCell.Value
If Account = "Total général" Then
Exit For
End If
If rowNum > 1 Then
colNum = iCell.Column
Invoicing = Cells(rowNum, colNum + 1).Value
Debug.Print Account & " " & Invoicing & " " & Bottom10
If Invoicing > Bottom10 Then
Call insert_value(TopAccounts, Values, Account, Invoicing)
Bottom10 = Values(9)
Debug.Print "Bottom10 " & Bottom10
End If
End If
Next iCell
For i = 0 To 9
Worksheets("VBATests").Cells(i + 1, 1).Value = TopAccounts(i)
Worksheets("VBATests").Cells(i + 1, 2).Value = Values(i)
Next
End Sub

Sub push_values_down(TopAccounts() As String, Values() As Double, startRow As Integer)
Dim i As Integer
If startRow >= 0 And startRow < 9 Then
For i = 8 To startRow Step -1
TopAccounts(i + 1) = TopAccounts(i)
Values(i + 1) = Values(i)
Next
End If
End Sub

Sub insert_value(TopAccounts() As String, Values() As Double, Account As String, Invoicing As Double)
Dim i As Integer
Debug.Print "In insert_value " & Invoicing
For i = 0 To 9
If Invoicing > Values(i) Then
Debug.Print "In insert_value " & i & " " & Values(i)
Call push_values_down(TopAccounts(), Values(), i)
TopAccounts(i) = Account
Values(i) = Invoicing
Exit Sub
End If
Next
End Sub

[Franc]

Bonjour, une piste pourrait être que le type double n'est pas adapté, tu as essayé currency ou decimal ?

[Philippe Tulliez]

Bonjour,
Personnellement, je n'ai pas rencontré de problème en faisant tourner votre procédure mais comme je ne sais pas ce que vous avez entré comme valeur, c'est difficile de se prononcer
Si vous pouviez publier une illustration de quelques données ce serait plus facile pour comprendre