VBA erreur dépassement de capacité bizarre

VBA erreur dépassement de capacité bizarre - VB/VBA/VBS - Programmation

Marsh Posté le 04-05-2015 à 07:56:19    

Bonjour,
 
Je rencontre un gros problème dur mon projet VBA, un problème plutôt bizarre à vrai dire. Tout d'abord le code sert à extraire des données historiques d'action à partir de Yahoo et calculer le rendement ainsi qu'un différence de gain entre deux stratégie, bref le problème c'est que quand je remplis mon formulaire et que je lance la macro elle ne s’exécute que pour quelques lignes et si je re remplis le formulaire avec les même données et bien là sa le fais jusqu'au boute et correctement. Quelqu'un aurait une idée ? Merci d'avance
 

Code :
  1. Private Sub CommandButton_valider_Click()
  3. 'Determine le nb de la derrniere cellule de la column des prix
  4.        Dim i As Integer
  5.        Dim random_number As Double
  6.        Dim a As Double
  7.      
  8.      
  9. Dim derniereligne, premiereligne As Integer
  10. derniereligne = Range("B" & Rows.Count).End(xlUp).Row
  12. ' si l'utilisateur rentre rien dans le formulaire donc montre un message
  13.   If Initial.Value = "" Then
  14. MsgBox "Entrez une valeur"
  15.  
  16.       ElseIf IsNumeric(Initial.Value) = False Then
  17.     MsgBox "Le Montant initial doit tres un nombre"
  18.            ' if the above conditions is checked then affect the input values into the sheet 1
  19.                            
  20. ' initialisation du portfeuille ˆ la date t 0 au prix de l'action ˆ la date t0
  22. ElseIf TextBox3.Value = "" Then
  23. MsgBox "entrez un ticker"
  25. ElseIf TextBox2.Value = "" Then
  26. MsgBox "saisissez une date"
  28. ElseIf TextBox1.Value = "" Then
  29. MsgBox "saisissez une date"
  31. ElseIf IsDate(TextBox1.Value) = False Or IsDate(TextBox2.Value) = False Then
  32. MsgBox "saisissez une date valide"
  33. Else
  35. Range("k2" ).Value = Mon_userform.TextBox2.Value
  36. Range("k1" ).Value = Mon_userform.TextBox3.Value
  37. Range("k3" ).Value = Mon_userform.TextBox1.Value
  39. a = getdata()
  42. 'Range("B3" ).Value = Mon_userform.TextBox3.Value
  43. Range("F3" ).Value = Mon_userform.Initial.Value ' la valeur du portfeuille au dŽbut est Žgale ˆ un fixŽ dans la textbox
  44. Range("G3" ).Value = Mon_userform.Initial.Value ' la valeur du portfeuille au dŽbut est Žgale ˆ un fixŽ dans la textbox
  45. Range("F3" ).NumberFormat = "0"
  46. 'Range("K1" ).Value = Mon_userform.TextBox1.Value
  47. 'Range("K2" ).Value = Mon_userform.TextBox2.Value
  48. Range("B2" ).Value = Mon_userform.TextBox3.Value
  50. ' Calcul de rendement
  51. For i = 3 To derniereligne - 1
  52. Cells(i + 1, 3).Value = (Cells(i + 1, 2).Value - Cells(i, 2).Value) / Cells(i, 2).Value
  53. Cells(i + 1, 3).NumberFormat = "0.0000, %" ' format %
  54. Next i
  56. 'stratgie ŽlaborŽ
  57. 'naviguer de ligne dans ligne sur la colone rendement
  58. For i = 3 To derniereligne - 1
  59. 'si le rendement est positif on vend l'asset
  60. If (Cells(i + 1, 3).Value > 0) Then
  61. Cells(i + 1, 6).Value = -(Cells(i + 1, 2).Value)
  62. Else 'sinon si il est nŽgatif on l'achete
  63. Cells(i + 1, 6).Value = Cells(i + 1, 2).Value
  64. End If
  65. Next i
  67. 'strategie alŽatoire
  68. For i = 3 To derniereligne
  69. random_number = Rnd
  70. If (random_number > 0.5) Then
  71. Cells(i + 1, 7).Value = -(Cells(i + 1, 2).Value)
  72. Else 'sinon si il est nŽgatif on l'achete
  73. Cells(i + 1, 7).Value = Cells(i + 1, 2).Value
  74. End If
  75. Next i
  77. 'somme des positions strategie elaborŽ
  79. Cells(derniereligne + 1, 6).Value = Application.Sum(Range("F3" ).EntireColumn)
  80. 'somme des positions strategie alŽatoire
  81. Cells(derniereligne + 1, 7).Value = Application.Sum(Range("G3" ).EntireColumn)
  82.     ' Difference de gain entre les deux stratŽgies
  83.     For i = 4 To derniereligne
  84. Cells(i, 8).Value = (Cells(i, 6).Value) - (Cells(i, 7).Value)
  85. Next i
  87. Cells(derniereligne + 1, 8).Value = (Cells(derniereligne + 1, 6).Value) - (Cells(derniereligne + 1, 7).Value)

Reply

Marsh Posté le 04-05-2015 à 07:56:19   

Reply

Marsh Posté le 04-05-2015 à 10:49:44    

 
           Bonjour,
 
           avec un code incomplet et sans les données, difficile de répondre …
 
           Le mieux est de suivre la progression du code en mode pas à pas via la touche F8
           tout en contrôlant le contenu de la fenêtre des Variables locales …
 
           _____________________________________________________________________
           Je suis Charlie   -   Je suis Bardo
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed