Formule pour créer un indice max. RESOLU

job75

XLDnaute Barbatruc

• 18 Juillet 2014

• #2

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 :

Code:

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+

 

Pièces jointes

• Meilleur tirage(1).xls

  31.5 KB · Affichages: 17

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Juillet 2014

• #3

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+

 

Dernière modification par un modérateur: 19 Juillet 2014

Vote positif 0 Vote négatif

X

Xwprft

Guest

• 19 Juillet 2014

• #4

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+

 

Pièces jointes

• indice max v1.xlsx

  11.2 KB · Affichages: 25

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juillet 2014

• #5

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+

 

Pièces jointes

• Meilleur tirage(2).xls

  37 KB · Affichages: 23

Dernière édition: 19 Juillet 2014

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Juillet 2014

• #6

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juillet 2014

• #7

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Juillet 2014

• #8

Re : Formule pour créer un indice max.

Re,

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2014

• #9

Re : Formule pour créer un indice max.

Bonjour à tous,

une autre formule en I3:

Code:

=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,

 

Dernière édition: 19 Juillet 2014

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2014

• #10

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:

Code:

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

 

Pièces jointes

• JJ1-classeur3 v1.xls

  31 KB · Affichages: 20

Dernière édition: 19 Juillet 2014

Vote positif 0 Vote négatif

J

JJ1

Guest

• 20 Juillet 2014

• #11

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+

 

Vote positif 0 Vote négatif