Boucle do

Bonjour,

Je suis débutant en VBA, j'ai écrit un code avec une boucle. Je souhaite faire ceci:

Si K2<0 on passe à K3, sinon on remplace la valeur de K2 par 0. La boucle doit s'arrêter quand Kn = ""

Ma boucle ne s'arrête pas et ça fait planter excel.

Voici mon code:

sub semivariance ()

i = 1

Do

If Cells(i + 1, 11) < "0" Then

i = i + 1

Else

Cells(i + 1, 11).Value = "0"

End If

If Cells(i + 1, 11) = "" Then

Exit Do

Else

If Cells(i + 1, 11) = "" Then

Exit Do

End If

End If

Loop

End Sub

Merci d'avance si quelqu'un peut m'aider à résoudre ce problème

Bonjour,

Dans ton code, tu ne prends pas en compte le cas où K2 contient la valeur 0.

Essaie comme cela

Sub semivariance()
    i = 2
    Do While Cells(i, 11) <> ""
        If Cells(i, 11) <= 0 Then
            i = i + 1
        Else
            Cells(i, 11) = 0
        End If
    Loop
End Sub

A+

Ok merci beaucoup, ça marche.

Le code est allegé comme ça, c'est plus compréhensible.

Et j'ai mieux compris comment marche une boucle grâce a toi.

Merci encore, a+