problème de boucle sous VBA Fermé

Question

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

amigo · Answer

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

Problème de boucle sous VBA

1 réponse

Discussions similaires