Bonjour,
J'ai une moyenne géométrique à calculer sur une plage variable.
Les coordonnées de la plage variable, sont retrouvées grace à des chiffres entrés par l'utilisateur (par textbox) et que j'ai demandé d'afficher en "B999" et "B1000".
Grace au formule "nbl" et "dnbl" j'obtiens respectivement le numéro de début de la plage et le numéro de fin de la plage.
"DestNf" étant le tableau pour afficher le résultats de la moyenne géométrique.
Voici le code :
J'ai utilisé le code qui m'a été fournit en enregistrement automatique de macro. J'ai surement fait des erreurs et c'est peut être pas la meilleure façon de procéder, mais j'essaye de faire de la façon dont je comprend le mieux
merci de votre aide
J'ai une moyenne géométrique à calculer sur une plage variable.
Les coordonnées de la plage variable, sont retrouvées grace à des chiffres entrés par l'utilisateur (par textbox) et que j'ai demandé d'afficher en "B999" et "B1000".
Grace au formule "nbl" et "dnbl" j'obtiens respectivement le numéro de début de la plage et le numéro de fin de la plage.
"DestNf" étant le tableau pour afficher le résultats de la moyenne géométrique.
Voici le code :
Dim nbl As Byte 'nbl = permet de retrouver la première ligne
Dim dnbl As Byte 'dnbl = permet de retrouver la dernière ligne
nbl = ([B1000].Value + [B999].Value + 2)
dnbl = ([B1000].Value + 2)
MsgBox ([nbl] & [dnbl])
DestNf.Select
Set DestNf = tb.Offset(1, 1).Resize(tb.Rows.Count - 1, tb.Columns.Count - 1)
DestNf.Select
ActiveCell.Offset(0, 0).Select
ActiveCell.FormulaR1C1 = "=GEOMEAN(R[-nbl]C:R[-dnbl]C)"
Selection.AutoFill Destination:=DestNf, Type:=x1filldefault
J'ai utilisé le code qui m'a été fournit en enregistrement automatique de macro. J'ai surement fait des erreurs et c'est peut être pas la meilleure façon de procéder, mais j'essaye de faire de la façon dont je comprend le mieux
merci de votre aide