Boucle et itération

machin · 21 Août 2011

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 · 21 Août 2011

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 · 21 Août 2011

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 · 21 Août 2011

Re : Boucle et itération

Bonjour,

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

Cordialement

Code:

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

Boucle et itération

machin

Guest

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

Pièces jointes

machin

Guest

machin

Guest

Discussions similaires

Boucle et itération

machin

Guest

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

Pièces jointes

machin

Guest

machin

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency