Création d'une boucle VBA

Question

Bonjour,

je débute en VBA et j'essai depuis bien longtemps déjà de créer une petite macro me permettant de faire la chose suivante : 

=> faire une boucle qui fait défiler tous les chiffres de 0 à 15 000 avec un step de 0.1 et qui s'arrète lorsque la cellule change de couleur. ( la cellule changera de couleur lorsque le chiffre atteint par la boucle sera un de ceux que j'aurais préalablement choisit, pas la peine d'insister sur ce point j'ai déjà trouver :p ). En résumé, la boucle stop lorsque le chiffre affiché par la boucle sera le bon. ( la cell changera alors de couleur ).

J'ai déjà cru trouver qqch mais le problème c'est que la macro ne s'arrète pas même lorsque je suis sur le bon chiffre :/

Merci de votre aide et si vous y arriver bravo!

:)

jmfmarques · Answer

Bonsoir,

Essaye :

Private Sub Command1_Click()
  Dim VBAahbon As Integer, vbnet As Double
  VBAahbon = 1
  vbnet = 15000
  For I = VBAaahbon To vbnet Step 0.1
    If I >= 30 Then
      MsgBox "on a atteint " & I & " et on est sous VBA, pas sous VB.Net où tu as posté"
      Exit For
    End If
  Next
End Sub

econs · Answer

Salut,

Il te manque a priori juste un "Exit For" quand le bon nombre est trouvé.
Ainsi, la boucle ne se poursuit pas.





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

jmfmarques · Answer

Oserais-je faire remarques qu'en plus, si l'on sait (et apparemment c'est bien le cas)  à quel valeur sortir, il suffit de donner cette valeur à la borne supérieure de la boucle  ? (même plus besoin d'xit for)

itax8325 · Answer

Bonsoir et merci à tous pour vos réponses ( même Jmfmarques :p ).

Dans ma macro l'exit for était bien là...et j'avais placé une borne supérieure, mais puisque j'avais utilisé un do while, alors la macro ne s'arrétait pas ...
Enfin, je n'y arrive pas mais je vais persisté :)

Merci bcp et si vous avez d'autres suggestions n'hésitez pas.

cs_MPi · Answer

Si tu utilises une boucle Do...While, il te suffit alors de mettre un Exit Do lorsque la valeur est trouvée.

MPi

Création d'une boucle VBA

5 réponses

Votre réponse

Discussions similaires