Transformation d'une formule matricielle en macro

[laskar]

Bonjour,

Qui serai capable de me transformé cette formule matricielle en macro please:

{=MOYENNE(SI(Feuil1!$A$4:$A$1082=A3;(Feuil1!$F$4:$F$1082-Feuil1!$E$4:$E$1082)*24/Feuil1!$J$4:$J$1082))}

 

[CHALET53]

Re : Transformation d'une formule matricielle en macro

Bonjour,

Un essai

J'ai mis la réponse en A2 pour comparer avec A1

a+

 

[Robert]

Re : Transformation d'une formule matricielle en macro

Bonjour Laskar, bonjour le forum,

J'ai trop aimé le ton de ton fil mais bon... Peut-être comme ça :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim nb As Integer 'déclare la variable nb (NomBre)
Dim v As Double 'déclare la variable v (Valeur)
Dim t As Double 'déclare la variable t (Total)

Set pl = Sheets("Feuil1").Range("A4:A1082") 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    If cel.Value = Sheets("Feuil1").Range("A3").Value Then 'si la valeur de la cellule cel est égale à la valeur de la cellule A3
        nb = nb + 1 'définit le nombre nb
        v = (cel.Offset(0, 5).Value - cel.Offset(0, 4)) * 24 / cel.Offset(0, 9).Value 'définit la valeur v
        t = t + v 'définit le total t
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
MsgBox t / nb 'affiche la moyenne dans un message (on pourait placer la moyenne "t/nb" n'importe où ailleurs)
End Sub

[Édition]
Bonjour Chalet on s'est croisé
[Édition 2]
On s'est même croisé dans le raisonnement...

 

[laskar]

Re : Transformation d'une formule matricielle en macro

Salut a tous,

Désolé Robert ci je t'est vexé et je m'en escuse il n'y avais pas de ton particulier ! en tous cas je vous remercie tous pour la réactivité !

Je test et je vous informe après !!!!!

 

[laskar]

Re : Transformation d'une formule matricielle en macro

Bon comme, je suis très mauvais et que je n'est pas compris la macro, j'ai mis en piece jointe le fichier sur lequel ce trouve la formule matricielle que je souhaiterais transformer en macro !

 

[CHALET53]

Re : Transformation d'une formule matricielle en macro

Re,

A voir

 

[laskar]

Re : Transformation d'une formule matricielle en macro

je te remercie, je regarde ca un peut plus tard mais a première vue ça a l'air de fonctionner