A voir également:
- Problème de boucle sous VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Redmi note 10 redemarre en boucle - Forum Xiaomi
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Vba attendre 1 seconde ✓ - Forum VB / VBA
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
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
