Formule pour créer un indice max. RESOLU

[JJ1]

Bonjour,

Je souhaiterais dans ma colonne I trouver le moyen de faire ressortir 2 critères à la fois:
1- la somme maximum obtenue I6:I45
2- l'apparition du ou des "0" le plus bas possible dans cette colonne.

Cet indice est en jaune.

Pour l'instant, j'ai juste fait un test si pour ne pas avoir au moins un "0" dans les 4 premières lignes.


ps: droitereg?


merci

a+

 

[job75]

Re : Formule pour créer un indice max.

Bonsoir JJ1,

Ce que tu veux faire n'est pas bien clair.

A priori il faut 2 indices.

Cette macro retient le meilleur tirage sur 1000000 :

Sub MeilleurTirage()
'se lance par Ctrl+A
Dim n&, s As Byte, i As Byte, p As Byte
Dim tirage(39), a(1) As Byte, mem
Randomize
For n = 1 To 1000000 'à adapter
  s = 0: i = 0
  For p = 0 To 39
    tirage(p) = IIf(Rnd < 0.5, 0, 1)
    s = s + tirage(p)
    If i = 0 And tirage(p) = 0 Then i = p
  Next
  If s >= a(0) And i >= a(1) Then
    a(0) = s: a(1) = i
    mem = tirage
  End If
Next
[I6:I45] = Application.Transpose(mem)
End Sub

Fichier joint.

A+

 

[JJ1]

Re : Formule pour créer un indice max.

Bonjour,

Merci Job pour ton code mais je cherche à trouver une formule en E3.
(l'alea est fait uniquement pour tester cette formule avec F9)

Cette formule en E3 devrait renvoyer un indice CROISSANT en fonction de la somme I6:I45 ET de l'éloignement maximum des "0" vers le bas de la colonne I

Pour l'instant, je n'ai qu'un test pour ne pas avoir un 0 dans les 4 premières lignes avec comme indice (important) la somme I6:I45 mais il peut y avoir un 0 en cinquième ligne..je préfère une somme à 35 avec des 0 éloignées du haut de la colonne que 38 avec des 0 dans les premières lignes.

merci
a+

 

[Xwprft]

Re : Formule pour créer un indice max.

Bonjour JJ1, Job75,

Je propose une formule pour la somme et une formule pour la position du premier zéro. Ensuite on combine les 2, en mettant plus de poids sur le critère le plus important.

A+

 

[job75]

Re : Formule pour créer un indice max.

Bonjour JJ1, le forum,

Je ne comprends pas l'intérêt d'une formule, désolé.

Il faut bien voir qu'avec des tirages aléatoires la probabilité d'avoir n "1" à la suite est 2^(-n).

Avec cette solution (2) on recherche d'abord le zéro le plus bas puis la somme la plus grande.

Edit : salut Xwprft

A+

 

[JJ1]

Re : Formule pour créer un indice max.

Re,

Merci à vous deux, j'aime bien la pondération du fichier de Xwprft, (qui rassemble les 2 formules de Job)

je vais étudier les "points" de pondération pour le sommeprod.

merci



(ps pour Job: l'alea est pour le test, la formule en colonne I ne te rappelle rien -- ou(....) ? donc les 1 sont bien plus fréquents qu'avec alea()

a+

 

[job75]

Re : Formule pour créer un indice max.

Re,

Pourquoi une pondération ? S'il s'agit de créer un seul indice croissant avec les 2 valeurs :

=100*EQUIV(0;I6:I45;0)+SOMME(I6:I45)

A+

 

[JJ1]

Re : Formule pour créer un indice max.

Re,

Merci Job pour ton idée, je vais la tester.
Bon WE
a+

 

[mapomme]

Re : Formule pour créer un indice max.

Bonjour à tous,

une autre formule en I3:

=SOMME(I6:I45)  *  SIERREUR(EQUIV(0;I6:I45;0)-1;NB(I6:I45))  /  NB(I6:I45)

• Le coeff. correcteur de la somme vaut 0 si le premier zéro est en I6,
• Le coeff. correcteur de la somme vaut 1/40 si le premier zéro est en I7,
• Le coeff. correcteur de la somme vaut 2/40 si le premier zéro est en I8,
• ........................................................
• Le coeff. correcteur de la somme vaut 39/40 si le premier zéro est en I45,
• Le coeff. correcteur de la somme vaut 40 /40 =1 si pas de zéro,

 

[mapomme]

Re : Formule pour créer un indice max.

Re,

La formule de mon précédent message ne fonctionne que pour Excel 2007 et plus.

Pour excel 2003, utiliser:

=SOMME(I6:I45)* SI(ESTERREUR(EQUIV(0;I6:I45;0));NB(I6:I45);EQUIV(0;I6:I45;0)-1) /NB(I6:I45)

 

[JJ1]

Re : Formule pour créer un indice max.

Bonjour,

Merci MaPomme pour cette solution, il me faut tester aussi sur le vrai fichier.
Pour répondre à Job aussi, j'avais eu l'idée de la concaténation aussi car:
1- je pouvais privilégier la somme ou l'éloignement en concaténant A&B ou B&A
2- avec un format nombre, le nombre allait croissant dans mon status bar et la virgule me séparait les 2 valeurs (je ne confondais pas 333 comme 3,33 et 33,3)

Dommage, Excel ne sait pas (encore) tout faire !

merci à vous
a+