Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA_UserForm_Formule_Variable

  • Initiateur de la discussion simyrom
  • Date de début
S

simyrom

Guest
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
 

Pièces jointes

  • Forum.xls
    36 KB · Affichages: 43
  • Forum.xls
    36 KB · Affichages: 40
  • Forum.xls
    36 KB · Affichages: 44
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…