VBA Excel : Erreur 1004 lors de l'utilisation d'un tableau

[Clement76]

Bonjour à tous,
J'ai un problème récurrent lorsque je souhaite exécuter mon macro.
Ce dernier recherche dans une colonne (h6:h11) s'il y a une cellule qui est différente de zero. Si c'est le cas le resutat de la fonction est la multiplication de deux cellules de la meme ligne.
Pour effectuer ma recherche j'ai crée un tableau contenant les cellules en question à savoir (F6:h11) appartenant à la page "Parametres ".
L’erreur se situe au niveau de cette commande :
tableau = Range("Parametres!f6:h11")
Je ne comprend pas ou se situe mon erreur malgré mes tentatives de débogage et lecture de différentes discussions.

Merci d'avance pour vos proposition.

NB : je ne suis pas sur également d’être dans la bonne partie du forum pour poster cette question.

Sub test()
'Function calcul_kp() As Double

Dim i As Integer
Dim result As Double
Dim tableau As Variant

resultat = 0

tableau = Range("Parametres!f6:h11")

For i = 0 To 5
If tableau(i, 3) <> 0 Then
resultat = tableau(i, 3) * tableau(i, 1)
End If

' If Range("h" & (i + 5)) <> 0 Then
' resultat = Range("h" & (i + 5)).Value * Range("f" & (i + 5)).Value
' End If
Next

'calcul_kp = resultat
MsgBox resultat

End Sub

 

[Modeste geedee]

Re : VBA Excel : Erreur 1004 lors de l'utilisation d'un tableau

Bonsour®
essaie plutôt :
tableau = sheets("parametres").Range("f6:h11")

Msgbox tableau créera également une erreur
il faut distinguer chaque élément séparément

 

[Clement76]

Re : VBA Excel : Erreur 1004 lors de l'utilisation d'un tableau

Merci pour la réponse, j'ai testé :

"tableau = Sheets("parametres").Range("f6:h11").Value"

Maintenant, j'ai erreur d’exécution '9': indice n'appartient pas à la sélection. Pourtant j'ai déclaré le tableau en Variant.