Problème de boucle sous VBA
memez
-
amigo -
amigo -
Bonjour, je débute dans la programmation et je souhaites faire une boucle.
Je suis totalement nul et j'aurai besoin d'aide.
Le but est de trouver la valeur de 'en' tel que la cellule en (i, 29) = 0
et je dois le faire sur 20 ligne.
un grand grand merci.
voici mon programme.
Sub Tracer_courbe()
Dim compt As Integer
Dim en As Double
compt = 0
Const preci = 0.01
Application.ScreenUpdating = False
For i = 3 To 23
en = Cells( i , 11).Value
'pour chaque i, je place en dans la cellule
Do
en = 0.01 * compt
compt = compt + 1
Loop Until Abs(Cells(i, 29).Value) <= preci or en = 1
Next i
Application.ScreenUpdating = True
End Sub
Je suis totalement nul et j'aurai besoin d'aide.
Le but est de trouver la valeur de 'en' tel que la cellule en (i, 29) = 0
et je dois le faire sur 20 ligne.
un grand grand merci.
voici mon programme.
Sub Tracer_courbe()
Dim compt As Integer
Dim en As Double
compt = 0
Const preci = 0.01
Application.ScreenUpdating = False
For i = 3 To 23
en = Cells( i , 11).Value
'pour chaque i, je place en dans la cellule
Do
en = 0.01 * compt
compt = compt + 1
Loop Until Abs(Cells(i, 29).Value) <= preci or en = 1
Next i
Application.ScreenUpdating = True
End Sub
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour,
Il y a des incohérences dans ton programme, regarde les commentaires
Je ne comprend pas ce tu essaye de faire.
Sub Tracer_courbe()
Dim compt As Integer' <- il manque la déclaration de i
Dim en As Double
compt = 0
Const preci = 0.01
Application.ScreenUpdating = False
For i = 3 To 23
en = Cells(i, 11).Value
'pour chaque i, je place en dans la cellule
'---->dans quelle cellule?
Do
'---->là tu ecrase la valeur de en=Cells(i, 11).Value
en = 0.01 * compt
' le compteur n'est pas remis à 0 à chaque boucle du For
compt = compt + 1
'---->là si la valeur de (i,29)=0 tu sort de la boucle
Loop Until Abs(Cells(i, 29).Value) <= preci Or en = 1
Next i
'---->ou est affiché le resultat?
Application.ScreenUpdating = True
End Sub
