Discussion :

[Duddy]

Bonjour le forum,

J'espère que ma question concernera ce forum, si ce n'est pas le cas, les modérateurs me dirigeront sur le bon forum.

Voici mon exposé:

J'ai un tableau de 19 variables ou instances ou occurences (je ne connais pas le terme à utiliser) qui me donne un résultat (somme).

Je compare ce résultat à un attendu.

Si le résultat est > à l'attendu, je souhaite que chaque donnée du tableau soit recalculée au prorata de la différence entre le résultat et l'attendu.

Je l'ai écris (papier) comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
(somme(tablo(19))=Res
Diff=Res - attendu
Delta=Diff / attendu
 
For x=1 to ubound(tablo)
  if tablo(x) >0 then tablo(x)=tablo(x) - (delta * tablo(x))
next

La somme obtenue ensuite s'approche de l'attendu mais n'est pas identique

J'ai essayé avec les propriétés .RoundUp et .RoundDown mais cela ne varie pas beaucoup.

Quelqu'un connait il une propriété me permettant de réussir cette équation?

J'ai oublié les maths depuis longtemps.

Merci par avance

[ESVBA]

c'est pas clair.

le problème est là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if tablo(x) >0 then

en français :si la valeur servant au calcul est positive

où est la comparaison

Si le résultat est > à l'attendu, je souhaite

la ligne de "If" doit déjà être en dehors de la boucle.

Je m'avance peut-être...
car c'est pas clair;

m'absnte...

ESVBA

[Duddy]

Bonsoir, ESVBA, le forum,

J'ai juste tenté de traduire mes reflexions pour atteindre le resultat

[Invité]

Bonsoir,

Vous avez écrit :

J'ai essayé avec les propriétés .RoundUp et .RoundDown mais cela ne varie pas beaucoup.

Vous avez donc créé une macro ?

Si c'est la cas, donnez le code.

[mercatog]

Bonsoir,
Algo

If Res>attendu then
For x=1 to ubound(tablo)
tablo(x)=tablo(x)*attendu/Res
next x
endif

exemple
à la place du tableau, une plage A1:A19
somme(plage) en C1
attendu en D1
en B1:B19, valeurs ajustées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim Att As Double, Res As Double
Dim i As Integer
Att = Range("D1").Value
Res = Range("C1").Value
 
If Res > Att Then
    For i = 1 To 19
        Range("B" & i).Value = Att * Range("A" & i).Value / Res
    Next i
End If
End Sub

[Gorfael]

Salut marc58 et le forum
Sans parler de programmation dans un premier temps.

Tu as une différence qui correspond à ton attendu (A), moins une somme de 19 nombres (B).
D=A-B
Pour avoir le résultat attendu, il faut que tu ajoutes 1/19 de la différence à chacun des 19 nombres.
X=X+(D/19)
Comme tu veux une égalité parfaite, les 18 premiers seront de la forme :
X=X+(D/19)
Comme le résultat de la division (D/19) risque d'être arrondi, le 19ème sera de la forme :
X=A-somme(18 premiers nombres modifiés)

Le codage est simple, mais ne disposant que de données fragmentaires, je préfère ne pas le faire, en attendant, si besoin est, le total des données pour faire un code correct.
A+

[Duddy]

Bonsoir à tou(te)s,

Avant que la discussion ne dérive sur des chemins de traverses , je vais tenter de vous apporter un éclaircissement.

Dans un programme, je cumule à l'aide du tablo(19) des temps par action réalisée (19 au maxi).

Je cumule ces temps, et compare le total à un attendu (temps maxi).

Si la différence > à 0, je cherche à recalculer les temps par action pour atteindre mon temps maxi.

J'ai donc essayé comme indiqué dans le post de départ.

J'espère avoir apporté des précisions.

[mercatog]

Re,
pour refaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Res > Attendu Then
    For i = 1 To ubound(tablo)
        tablo(i) = tablo(i)*Attendu/ Res
    Next i
End If

dans Res tu as la somme

le résultat est pile poil (sans arrondi)

[Duddy]

Bonsoir à tou(te)s,

Merci à Mercatog qui a donné la solution que je cherchais. En fait j'essayais de calculer en prenant le mauvais sens (res / attendu)

Encore une fois, je dois reconnaitre vos compétences à toutes et tous, et votre implication à faire évoluer ce forum.

J'essaie de lire tout ce qui m'intéresse et post par énormément car j'arrive toujours à trouver, parfois avec difficultés, des réponses à mes soucis.

J'essaie aussi d'apporter des solutions si la question m'inspire.

Toujours est-il que je savais qu'une réponse me serait apportée en vous demandant de m'aider.

Que le forum continue avec cet esprit le plus longtemps possible.

Je sais, bien évidemment que bientôt on se ré-écrira.

Encore merci à tous