Bonjour,
je rencontre donc une "Erreur d'exécution '13': Incompatibilité de type" au moment de l'exécution de cette procédure (et me renvoie vers la ligne que j'ai surligné en gras plus bas):
Option Base 0
Public Vecteur_PrixH
Public Rentas_1H
Sub Vecteur_Prix_Hebdomadaires()
Range("B2" ).Select
ReDim Vecteur_PrixH(Selection.End(xlDown).Offset(0, 1).Value)
k = 0
Vecteur_PrixH(0) = Log(Selection)
For Each cellule In Range(Selection, Selection.End(xlDown)).Cells
If cellule.Offset(0, 1).Value <> k Then
Vecteur_PrixH(k + 1) = Log(cellule)
k = k + 1
End If
Next cellule
End Sub
Sub Variance_Hebdomadaire()
Range("B2" ).Select
ReDim Rentas_1H(Selection.End(xlDown).Offset(0, 1).Value - 1)
For i = 0 To Selection.End(xlDown).Offset(0, 1).Value - 1 Rentas_1H(i) = Vecteur_PrixH(i+1)-Vecteur_PrixH(i) C'est cette ligne qui semble poser problème!
Next i
End Sub
Je ne comprends pas d'où peut venir l'erreur d'incompatibilité de type...toute aide serait très appréciée!
Bonjour,
est-ce que le message "Incompatibilité de type" n'apparaîtrait pas uniquement quand tu lances Variance_Hebdomadaire sans avoir exécuté Vecteur_Prix auparavant ? Auquel cas le tableau Vecteur_PrixH est vide au moment où on l'appelle et ça bugge.
A suivre...
Jeka
C'était bien ça...il faut que je relance toute les procédures une par une pour que ça fonctionne, et pas la dernière directement.
Merci beaucoup pour l'aide!