VBA_UserForm_Formule_Variable

[simyrom]

Bonjour le forum,
Je suis desole, j'ai encore un probleme. Celui a l'air d'etre simple mais... Je me sers d'un userform/RefEdit (merci Stephane) pour qu'1 utilisateur saississe 2 plages de mesures a analyser.
Apres je veux injecter ces 2 plages de mesures dans un calcul etendu a un tableau. Et la, ca bloque.
Pour les plus courageux, j'ai mon fichier en piece jointe. Sinon je mets une partie de mon code en dessous.
Je pense que cela doit etre un probleme de variable (perd et hgt sont des plages de donnees que je ne sais pas trop en quoi declarer).
Merci d'avance
Romain

Option Explicit
Dim perd As Variant
Dim hgt As Variant
Dim l As Integer
Dim M As Integer
Dim n As Integer
Dim o As Integer

Private Sub CommandButton1_Click()

Unload Me
Set perd = Range(Me.RefEdit2.Value)
Set hgt = Range(Me.RefEdit1.Value)

M = 23
o = 37
perd.Interior.ColorIndex = 15

For n = Cells(6, 7).Column To Cells(6, M - 1).Column
For l = Cells(6, 7).Row To Cells(o - 1, 7).Row
Cells(l, n).Value = [SUMPRODUCT((hgt >= Cells(l, 4)) * (hgt < Cells(l, 6)) * (perd = Cells(37, n))]
Next
Next
Application.EnableCancelKey = xlErrorHandler

End Sub