Bonjour, auriez vous une idée sur l'origine de mon bug:
Erreur d'exécution '28': Espace pile insuffisant.
Pour info "TabActionsFonds" fait référence à une plage définit dans le fichier excel.
La fonction s'arrete systématiquement à l'une de ces 2 lignes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Nb = Range("TabActionsFonds").Rows.Count
Code : Sélectionner tout - Visualiser dans une fenêtre à part
TabActionsFonds = Range("TabActionsFonds")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function TriActionsFonds() As Variant
 
Dim TabActionsFonds As Variant
Dim DateValtrans As String
Dim Auj As Double
Dim Nb As Integer
Dim i As Double
Dim j As Double
Dim k As Double
Dim col As Double
Dim test As Double
Dim ActionsFonds As Variant
 
ReDim ActionsFonds(1 To 10, 1 To 2)
 
Nb = Range("TabActionsFonds").Rows.Count
 
ReDim TabActionsFonds(1 To Nb, 1 To 4)
 
TabActionsFonds = Range("TabActionsFonds")
Un grand merci par avance