Optimisation d'une fonction à plusieurs variables

Krovax, oui on s'est croisés, je suis en train de regarder le fichier.
ça m'a l'air de marcher plutôt bien :king:
En fait les n-uplets générés ne sont pas exactement les bons (le premier devrait être 1-10-100-1000-10000 puisqu'on a 5 hypothèses et non 1-2-3-4.
Mais ça c'est juste un problème de transposé et le principe fonctionne, donc bravo!
Je vais pouvoir me pencher sur la suite... ;)

A mon avis on a pas lut le tableau dans le même sens ;), inverse les ligne et les colonnes en feuil 1 ca devrais marcher

Edit
Pour moi la valeur V1 prendre comme valeur 1-10-100-1000-10 000 et non la deuxième 2-20-200-2000-20000 etc
du coup je génère les possibilité de combinaison V1, V2,V3,V4 chaque ligne est une combinaison
Si V1 peux être 1-2-3-4
il te suffit comme dit d'inverser les ligne et les colonne du tableau en feuille 1

Bravo Krovax,
et merci!
Effectivement, ta macro permet de générer tous les n-uplets voulus!
:hola:
Je vais voir comment on peut automatiser ça pour qu'il reconnaisse tout seul les valeurs de n et de k en fonction du tableau qu'on a en feuille 1.

Puis il faudra que je trouve une façon de tester tous ces n-uplets et de comparer les valeurs rendues par le modèle.
Je regarde ça calmement et je reviens vers vous.
A+

Normalement c'est déja automatisé

Code:

---

1 2	n = Range("A65536").End(xlUp).Row-1 k = Range("IV1").End(xlToLeft).Column-1

---

Il regarde le nombre d ligne du tableau feuille1 pour trouver n colonne pour trouver k

Au passage j'avais oublié un -1 pour k

voilà, je vous transmets une nouvelle version (automatisée) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Sub modu() Dim i As Long Dim j As Long Dim k As Integer Dim n As Integer Dim vari() As Double Dim fl As Integer Dim val Dim nbrligneparonglet As Long Dim t_deb As Single, t_fin As Single, tpass As Single   t_deb = Timer   Sheets("feuil1").Range("B2").Select   'n variables Range(Selection, Selection.End(xlDown)).Select n = Selection.Rows.Count   'k Valeur Range(Selection, Selection.End(xlToRight)).Select k = Selection.Columns.Count   nbrligneparonglet = 60000 'on met suffisament d'onglet   If Sheets.Count < k ^ n \ nbrligneparonglet + 2 Then Do While Sheets.Count < k ^ n \ nbrligneparonglet + 2 Sheets.Add after:=Worksheets(Worksheets.Count) Loop End If   'on remplie le tableau avec les valeur du n-uplet ReDim vari(1 To n, 1 To k) For i = 1 To n For j = 1 To k vari(i, j) = Feuil1.Cells(i + 1, j + 1) Next j Next i   'on ecrit les n uplet dans les différent onglet For i = 0 To k ^ n - 1 For j = 0 To n - 1 fl = 1 + (i \ nbrligneparonglet) + 1 val = (i \ (k ^ j)) Mod (k) + 1 Sheets(fl).Cells(i + 1 - (fl - 2) * nbrligneparonglet, j + 1) = vari(j + 1, val) Next j Next i   t_fin = Timer tpass = CSng(Round(t_fin - t_deb, 2))   MsgBox "Il faut " & tpass & " s pour générer " & k ^ n & " n-uplets"   End Sub

---

avec un petit timer en prime ;)

Krovax : question de détail : est-ce que tu sais comment faire pour réinitialiser le nombre de feuilles générées à 0? Je m'explique : si je fais un test qui me génère 2 feuilles (donc feuil2 et feuil3), puis que j'efface ces 2 feuilles pour refaire un autre test, il va générer feuil4 et feuil5 au lieu de me refaire une feuil2 et une feuil3.
A+

Citation:

---

Krovax : question de détail : est-ce que tu sais comment faire pour réinitialiser le nombre de feuilles générées à 0

---

je n'ai pas la réponse directe a ta question, en revanche tu peux nommer les feuilles comme tu le veux :

Code:

---

1 2 3

dim Mafeuille as worksheet set Mafeuille = Sheets.Add after:=Worksheets(Worksheets.Count) mafeuille.name = "Lenom que je veux"

---

Merci Aalex38,
effectivement ton code permet de résoudre cet inconvénient.

Sinon je viens de tester la macro sur 10 valeurs pour 7 hypothèses, et au bout d'un moment j'ai un message d'erreur comme quoi les ressources d'excel sont insuffisantes. Quelqu'un a-t-il un moyen de contourner ce problème ou bien je suis réduit à ne tester qu'un petit nombre de valeurs et d'hypothèses à la fois?
(la macro a généré 19 feuilles de 60000 lignes avant de planter)

A+

Cela montre juste qu'effectivement utiliser une génération d'un grand nombre de valeur n'est pas forcément une bonne chose sous VBA ;)

ca fait 1.2 10^6 valeurs seulement, essaye de voir si utiliser un générateur en C/C++ ne serait pas plus adapté :)

Sinon, tu as toujours Access, ou encore non pas passer à une nouvelle page, mais ajouter les valeurs dans les colonnes suivantes ;)

Je n'en sais rien mais ne prenant le code de aalex_38 ca devrais aller au lieu de

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub modu() Dim i As Long Dim j As Long Dim k As Integer Dim n As Integer Dim vari() As Double Dim fl As Integer Dim val Dim nbrligneparonglet As Long Dim t_deb As Single, t_fin As Single, tpass As Single dim Mafeuille as worksheet   t_deb = Timer   'n variables n = Range("A65536").End(xlUp).Row-1   'k Valeur k = Range("IV1").End(xlToLeft).Column-1   'c'est viscérale j'enlève tous les selects   nbrligneparonglet = 65536 'on met suffisament d'onglet   If Sheets.Count < k ^ n \ nbrligneparonglet + 2 Then Do While Sheets.Count < k ^ n \ nbrligneparonglet + 2   set Mafeuille = Sheets.Add after:=Worksheets(Worksheets.Count) mafeuille.name = "Feuil" & Worksheets.Count Loop End If

---

Il devrait fonctionner

Citation:

---

Envoyé par jpcheck

ca fait 1.2 10^6 valeurs seulement, essaye de voir si utiliser un générateur en C/C++ ne serait pas plus adapté :)

---

M%ieu que le C/C++ pour ce genre de chose, FORTAN!
Oui je sais ca fait vieux jeu, mais pour tout ce qui touche vraiment au mathj e ne crois pas que l'on ai fait mieux. ( à part l'assembleur mais là ca devient plus simple de le faire a la main :aie: )


Sinon pour changer de colonne suffit de récupérer le numéro de l'onglet d'enlever 2 de multiplier par 2 et d'ajouter le résultat à j (je dit ca de tête fraudais vérifier)
Ensuite pour passer d'un onglet a l'autre tu modifi un peux la division euclidienne tu divise par le nombre de ligne par onglet multiplié par de nombre de colonne (nbrligneparonglet *256/2 je cois)

Alors, là, C++, Fortran...

je ne connais pas du tout ces langages de programmation. Alors il va bien falloir que je me débrouille avec VBA et Excel. Avec un peu d'astuce je pense qu'on doit pouvoir contourner le problème
Peut-être qu'une solution consisterait à tester le premier n-uplet puis le 2è, comparer les 2 résultats et garder le plus petit des 2 puis passer au 3è, comparer avec le meilleur résultat des 2 premiers et ainsi de suite... sans avoir à générer tous les n-uplets dans les feuilles du classeur. Et au final sortir le n-uplet vainqueur!
Sinon Krovax tu parlais de générer les n-uplets dans un tableau sans les écrire sur les feuilles justement. De quoi s'agit-il exactement?

Citation:

---

Sinon, tu as toujours Access, ou encore non pas passer à une nouvelle page, mais ajouter les valeurs dans les colonnes suivantes

---

Le fait de remplir les colonnes d'une même feuille au lieu de feuilles différentes ne devrait pas permettre un gain significatif de ressources puisque le nombre de données à générer reste le même, vous ne croyez pas?

A+

Tu crée une variable tableau que tu garde en mémoire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

'ta déclaration de variable dim tableau() as double   n = Range("A65536").End(xlUp).Row - 1 k = Range("IV1").End(xlToLeft).Column - 1 nbrligneparonglet = 400   'tu redimentionne redim tableau(1 to k ^ n, 1 to n) 'puis tu met le code   'on met suffisament d'onglet   If Sheets.Count < k ^ n \ nbrligneparonglet + 2 Then Do While Sheets.Count < k ^ n \ nbrligneparonglet + 2 Sheets.Add after:=Worksheets(Worksheets.Count) Loop End If   'on remplie le tableau avec les valeur du n-uplet ReDim vari(1 To n, 1 To k) For i = 1 To n For j = 1 To k vari(i, j) = Feuil1.Cells(i + 1, j + 1) Next j Next i   'on ecrit les n uplet dans les différent onglet For i = 0 To k ^ n - 1 For j = 0 To n - 1 fl = 1 + (i \ nbrligneparonglet) + 1 val = (i \ (k ^ j)) Mod (k) + 1 tableau(i + 1 , j + 1) = vari(j + 1, val) Next j Next i End Sub

---

Par contre à la fin de ta subroutine la variable tableau est perdu il faut donc que tu la teste dans la subroutine

Par contre l'idée de tester a chaque fois le n-uplet suivant et de garder le plus petit résoud ton problème de taille
Tu écrit toujours le nuplet suivant en ligne 2 tu test tu met le plus petit des 2 en ligne 1 etc...

Par contre le fortran ressemble beaucoup au VBA mais sans excel, faut utiliser des variable du début à la fin

Re,
le code pour créer des feuilles avec un nom choisi plante.

Code:

---

1 2 3 4 5 6 7 8 9

dim Mafeuille as worksheet If Sheets.Count < k ^ n \ nbrligneparonglet + 2 Then Do While Sheets.Count < k ^ n \ nbrligneparonglet + 2   set Mafeuille = Sheets.Add after:=Worksheets(Worksheets.Count) mafeuille.name = "Feuil" & Worksheets.Count Loop End If

---

ça a l'air de planter au niveau de

Code:

---

set mafeuille...

---

Sinon Krovax, peux-tu illustrer ton dernier post avec un exemple?
Supposons une fonction toute bête du style :

f(H1,H2,H3) = H3*ln(H1/H2) dont le résultat est donné dans la feuil1 (par ex)

chacune des 3 hypothèses peut prendre 6 valeurs (je te laisse choisir ce que tu veux, au hasard).
Dans la feuille 1 on a donc sur la plage B2:H4 mes hypothèses avec les différentes valeurs qu'elle peut prendre.
En B20-B21-B22 on rentre successivement les triplets à tester.
En B24 on a la formule :

Code:

---

=SI(ESTNUM(B22*LN(B20/B21));B22*LN(B20/B21);10^10)

---

qui renvoie le résultat. On veut comparer successivement les résultats donnés quand on rentre successivement les triplets.

Comment trouves-tu le triplet qui donne le min de cette fonction?

Merci d'avance

Edit : la fonction f est donnée à titre d'exemple uniquement pour générer un résultat. On ne s'intéresse donc pas à son étude.

Le code ci-dessous fonctionne :

Code:

---

1 2 3 4 5 6 7

Dim F1 As Worksheet dim MySheet as string MySheet = "Le Nom de ma feuille"   Set F1 = Sheets.Add(After:=Sheets(Sheets.Count)) F1.Name = MySheet

---

Attention car tu utilises

Code:

---

Worksheets.Count

---

ce qui n'est pas la même chose que

Code:

---

sheets.Count

---

Edit : je viens de comprendre pourquoi ça plante tu ne mets pas les parenthèses après le ADD

Bonsoir aalex_38,

merci pour ta correction, effectivement mon erreur était d'utiliser :

Code:

---

Worksheets.Count

---

alors que j'aurais dû utiliser :

Code:

---

Sheets.Count

---

Maintenant ça marche. Merci encore.

A+

Citation:

---

Envoyé par kokoVBA

Maintenant ça marche.

---

Résolu, donc?

:mrgreen:
ben pas tout à fait : la première partie consistait à générer tous les n-uplets possibles, et ça c'est fait et bien fait! :D
Maintenant il reste à voir comment on peut les tester. Krovax avait l'air d'avoir une idée là-dessus (sur la façon de tester les n-uplets sans avoir à les écrire dans excel, puisqu'il y a un problème de ressource disponible) alors j'attends que le problème soit complètement résolu avant de cliquer :resolu:

En fait je penser que tu utiliserais une fonction mathématique, qui aurais pu être amusante a programmer (quoi moi malade mais non, c'est juste que ca rejoins bien ma formation et du coup je me sent un peu plus alaise qu'en programmation pure)

Dit nous comment tu comptais appliquer ta formule au n-uplet, on va essayer de l'adapter à un test des n-uplet deux par deux avant de générer le suivant. A mon avis un gros gain de mémoire et pratiquement pas de limitation de nombre de n-uplet, enfin si le temp de calcul pour le test mais c'est tout

Salut Krovax,
et bien je pensais faire comme décrit dans mon post d'hier à 18h11 : rentrer successivement les nuplets générés dans les cellules excel et tester les résultats. Je pense qu'il faudrait un onglet où on met les hypothèses et les valeurs possibles pour ces hypothèses (l'actuelle feuil1) et une autre feuille où on rentre les hypothèses avec les valeurs à tester et le résultat.
Je vais essayer de te faire un fichier pour l'exemple.
A+

Ce que je propose c'est de toujours écrire dans la meme ligne (ici feuil 2 ligne 2) et d'apeler un fonction test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

'ta déclaration de variable dim tableau() as double   n = Range("A65536").End(xlUp).Row - 1 k = Range("IV1").End(xlToLeft).Column - 1   'tu redimentionne redim tableau(1 to k ^ n, 1 to n) 'puis tu met le code     'on remplie le tableau avec les valeur du n-uplet ReDim vari(1 To n, 1 To k) For i = 1 To n For j = 1 To k vari(i, j) = Feuil1.Cells(i + 1, j + 1) Next j Next i   'on ecrit les n uplet dans les différent onglet For i = 0 To k ^ n - 1 For j = 0 To n - 1 val = (i \ (k ^ j)) Mod (k) + 1 feuil2.cells(2 , 2) = vari(j + 1+1, val) 'je rajoute 1 pour libérer la première colonne pour la valeur de la fonction testmin Next j Next i End Sub

---

Imaginons maintenant que le résultat de ta fonction sit calculé par excel et mis en première colonne

et tu fais quelque chose comme ca

Code:

---

1 2 3 4 5 6 7 8 9

Sub testmin() With Feuil2 If .Cells(1, 1) = "" Or Cells(2, 1) < Cells(1, 1) Then .Rows(2).Copy .Rows(1) ElseIf .Cells(2, 1) = .Cells(1, 1) Then 'je ne sais absolument pas ce que tu peux bien vouloir faire en cas d'égalité End If end with End Sub

---