Discussion :

[Invité]

tu as testé ce code uniquement sans rien d'autre?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim x As Integer
 For x = -2 To 9
    Debug.Print x 'Affiche le résulta dans la fenêtre d'exécution [CTRL]  + [G]
Next
end sub

[Marc-L]

[…] ce qui fait que j'ai infiniment A2<B

Donc la logique est bien en cause :
le code a dû être attaqué sans réflexion couchée sur papier afin de résoudre la problématique, non ?

Et si tel est le cas, une fois cette réflexion menée, la solution n'en sera que plus évidente …

__________________________________________________________________________________________
If you can’t explain it simply, you don’t understand it well enough … (Albert Einstein)

[eliamat]

Merci à vous
rdurupt je ne sais pas exactement à quoi correspond le sub donc je n'ai pas testé...cependant j'ai résolu mon problème de curseur mais un autre problème est apparu ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
If A <B Then
  Do Until A2 >= B 'les conditions de mon problème ont changé comparé à mon message d'hier ou je devais avoir A=B
    For x = -2.17 To 9.22       
     (mes instructions pour calculer A2)
    Next
 If A2 >=B Then Exit Do
  Loop
End If

rdurupt , tu avais mentionné dans tes précédents post le if...then Exit Do..j'avais oublié d'ajouter ça à mon code, Merci.
Seulement en mettant cette condition, le calcul (que jai vérifié pas à pas) continue quand même lorsque A2>B..

[Invité]

(mes instructions pour calculer A2) ou tu modifies A2?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 A2 = 1
 B = 5
 
  Do While A2 < B 'les conditions de mon problème ont changé comparé à mon message d'hier ou je devais avoir A=B
    For x = -2.17 To 9.22 Step 0.01 'Je défini le pas de l'incrémentation
 
     '(mes instructions pour calculer A2)
    Next
  A2 = Round(x, 2) - 0.01
  Loop
End Sub

[eliamat]

oulaa désolée mais je n'ai absolument pas compris le code..
Pour répondre à ta question dans un premier temps je calcule A avec une valeur de x que je pose par hypothèse. Ensuite si et seulement si A<B je fais varier l'un des paramètres intervenant dans le calcul de A: ce paramètre c'est x. je connais les limites de ce x : -2.17 et 9.22. Je calcule le nouveau A que j'appelle A2 pour ne pas écraser la valeur dans A. Et donc des que j'obtiens un x qui me permet d'avoir A>=B (la condition a changé, au départ je voulais uniquement A=B mais peu importe maintenant) la boucle Do doit s'arrêter..

rdurupt : en fait en mettant do while A2<B j'ai pas besoin de ce exit for non? mais visiblement je suis vraiment nulle parce que j'ai testé cette méthode et pourtant la boucle continue!

[Invité]

si tu fais une boucle du type For x = -2.17 To 9.22 x va prendre la valeur -2.17 puis -1.17, 0.17 1.17.
toi tu veux de -2.17 à 9.22 si je définis un pas de 0.01 step 0.01 ton compteur de x est -2.17,-2.18,-2.19.....,9.20,9.21,9.22.

rdurupt : en fait en mettant do while A2<B j'ai pas besoin de ce exit for non? mais visiblement je suis vraiment nulle parce que j'ai testé cette méthode et pourtant la boucle continue!

le problème est que je ne vois physiquement si A2 change ta condition de sortie est elle conforme si je ne le vois pas je peux pas répondre!
dans notre cas la condition de sortie est la contre partie de do while A<B donc A>=B OK?

[eliamat]

oui merci pour cette indication j'ai changé dans mon programme
mais je comprends vraiment pas pourquoi lorsque le while n'est plus respecté la boucle continue

[Invité]

Vois tu A2 être plus grand ou égale B.
ton traitement ce fait dans la même sub ou un autre?

[eliamat]

oui je te joins une capture écran:

Ni2 correspond au A2 en fait.
J'ai Ni2=11.82 alors que Ne=10...

[eliamat]

Après moult essais depuis plus d'une heure j'ai enfin réussi! Voilà ce que ça donne si ça en intéresse quelques uns:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
If A < B Then
  Do
    For x = -2.17 To 9.22 'Step 0.1
(mes instrcutions permettant de calculer A2)
A2=...
If A2 >=B Then
Exit Do
End If
    Next
   Loop While Ni2 < Ne
End If