Bonjour, quelqu'un aurait une idée de pourquoi j'ai une incompatibilité de type avec cette ligne

-->
Code : Sélectionner tout - Visualiser dans une fenêtre à part
résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value



Voici le code complet !



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
Public obj_granulometrie() As Object
Dim résultat_granulometrie As Double
 
 
nbr_pièce_testé = Val(nbr_pièces_UserForm.nbr_pièces.Value)
 
 
For k = 0 To 1
For h = 1 To nbr_pièce_testé
 
résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value
Worksheets("Décanteurs_").Range(Chr(caractere) & LaDernièreLigne + h - 1) = résultat_granulometrie
 
Next h
 
caractere = caractere + 1
Next k
Merci de votre aide