Boucle et itération

[machin]

Bonjour à tous,

Je suis nouveau sur le Forum et en programmation VBA.
J’essaye en vain depuis plusieurs jours de concevoir une boucle itérative pour trouver la ou toutes les valeurs de H1 les plus importantes en fonction de H6 lorsque le Nb total H4 > 200
Le fichier joint est un exemple car il existe 2 cas possibles. L’augmentation de la valeur H6 fait croitre ou décroitre le nombre total H4.
Si quelqu’un pouvait me créer un petit programme, ce serait génial.

Merci

 

[Grand Chaman Excel]

Re : Boucle et itération

Bonjour machin,

Suggestion : Tu pourrais arriver à ton résultat sans passer par des macros, en utilisant la fonction "Analyse de scénarios"

Voir exemple et instructions dans ton fichier

A+

 

[machin]

Re : Boucle et itération

Bonjour et merci Grand Chaman.

Ta proposition est très intéressante mais on m’impose le VBA

Cordialement

 

[machin]

Re : Boucle et itération

Bonjour,

Voila mon petit bout d’essai, le test <100 ne fonctionne pas.

Cordialement

Sub Proto_iteration()
Dim A As Double

Range("L1:L6").ClearContents

For A = 0.01 To 10 Step 0.01
Range("H6") = A

If Range("H1").Value > Range("L1").Value Then
Range("L1:L6").Value = Range("H1:H6").Value
End If
If Range("H4").Value < 100 Then
End If
Next

End Sub