XL 2016 boucles for imbriquées

[meamandine]

Bonsoir, je suis débutante en VBA et je cherche une solution pour écrire plusieurs boucles for imbriquées (360 variables ) et ayant le même début et fin pour avoir toutes les combinaisons possibles de ces variables .
est- ce- que quelqu'un aurait une solution svp?

 

[meamandine]

donc je peux garder que 2 valeurs et réduire le nombre des colonnes au max possible qu'il peut supporter !!!

 

[Dranreb]

Il faudrait surtout nous dire quels calculs sont effectués avec ces valeurs pour aboutir aux résultats à optimiser.
Ou mieux: mettre les formules qui les calcule à partir de valeurs arbitraires et laisser le Solveur minimiser ce résultat.

 

[meamandine]

Ce que je veux faire c'est avoir ces combinaisons dans une feuille, calculer le coût et le rendement pour chaque ligne à l'aide d'une formule excel et ensuite construire un graphe (rendement, coût) mais là je suis bloqué au début !!

 

[Dranreb]

Mais pour que le graph soit lisible ça impliquerait que rendement ne dépende que du coût et non des 360 variables ? …

 

[meamandine]

mais il est calculé sur les 360 variables, je prend un pourcentage de chaque variable

 

[Dranreb]

Un pourcentage fixe et vous faites la somme ?

 

[meamandine]

oui exactement,

 

[Dranreb]

Ça sent le système d'équations linéaires tout bête ça !

 

[meamandine]

donc y a pas moyen de générer ces combinaisons avec la condition??

 

[Dranreb]

Ça n'a surtout pas l'air nécessaire. Mais il faudrait probablement que j'en sache un peu plus …

 

[meamandine]

c'est tous ce que peux expliquer, pour le code en haut j'ai essayé d'ajouter la condition sur chaque ligne mais çela n'a pas marché

 

[meamandine]

svp, j'ai essayée de supprimer les lignes non désirées par rows().delete mais cela ne fonctionne pas , y- t-il une autre solution?
Merci

 

[Dranreb]

Bonjour.
Une dernière proposition, et je me désabonne définitivement de cette discussion.

Option Explicit
Sub Test()
   ListeCombi ActiveSheet.[B2].Resize(2000, 4), NbVal:=11, _
      Pas:=200000, SMin:=300000, SMax:=1000000
   End Sub
Sub ListeCombi(ByVal RngCible As Range, ByVal NbVal As Long, ByVal Pas As Double, ByVal SMin As Double, ByVal SMax As Double)
   Dim T(), TC() As Double, L As Long, C As Long, N As Long, Q As Long, R As Long, S As Double, V As Double
   ReDim TC(2 To RngCible.Columns.Count), T(1 To RngCible.Rows.Count, 1 To RngCible.Columns.Count)
   N = -1
   Do: N = N + 1
      Q = N: S = 0
      For C = UBound(T, 2) To 2 Step -1
         R = Q Mod NbVal
         V = Pas * R
         TC(C) = V
         S = S + V
         Q = Q \ NbVal: Next C
      If S = 0 And N > 0 Then Exit Do
      If S >= SMin And S <= SMax Then
         L = L + 1: T(L, 1) = N
         For C = 2 To UBound(TC): T(L, C) = TC(C): Next C
         End If
      Loop Until L >= UBound(T, 1)
   RngCible.Value = T
   End Sub

Faites attention: Votre prochaine réponse pourrait même me conduire à vous ajouter aussitôt à ma liste d'ignorés 😡