Bonjour,
J'aurais besoin de votre aide car je commence à désesperer pour debugger une partie de mon code:
Je n'arrive pas à passer mon argument en paramètre. VBA me renvoye l'erreur "Objet Requis" or toutes mes variables sont déclarées.
l'erreur se trouve au niveau de Split = ...... et je pense qu'elle se trouvera de nouveaux à chaque passage de paramètre.
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
21
22
23 Dim Split As Double 'TabDataCl est un tableau de Variant/Double et TabRegle Variant/double aussi For i = 1 To UBound(TabDataCl, 2) Step 2 Split = ChoixSplit(TabRegle(1, i).Value) FX = ChoixFX(TabName(1, i + 1).Value) For j = 1 To UBound(TabDataCl, 1) TabRatioA_S(j, i) = CalculRatioADRdivS(TabDataCl(j, i).Value, TabDataCl(j, i + 1).Value, Split, TabFX(j, FX).Value) TabRatioS_A(j, i) = CalculRatioSdivADR(TabDataCl(j, i).Value, TabDataCl(j, i + 1).Value, Split, TabFX(j, FX).Value) Next j Next i Public Function ChoixSplit(Regle As Double) As Double Dim i As Long 'Split Dim TabSplit As Variant i = 1 TabSplit = Range("TabSplit") While Regle <> TabSplit(i, 1) i = i + 1 Wend ChoixSplit = TabSplit(i, 2) End Function
Merci de votre aide
Partager