Bonjour a tous,
Voila mon probleme : je veux faire deux "boucles" avec dans la deuxieme une condition qui si elle est vraie arrête la boucle et affiche le resultat et ensuite on doit passer au next de la premiere boucle...Mon code VBA fonctionne tres bien avec sans le :
FOR i=1 to 3
si j'ajoute cette boucle il ne fait pas le next j puisque l'exit sub arrete la procedure..Voici mon code pour mieux comprendre
Sub NxtToPurchase()
Dim x, y, z, NbT As Variant
Dim i, j As Integer
For j = 1 To 3
NbT = 0
Range("a7").Value = Range("a" & j + 1).Value
For i = 0 To 1000
'z = z + z
x = 2 + (Range("c" & j + 1).Value * (i))
y = Range("Value_Price_en_Devise").Value / (x)
z = Range("F8") / y
NbT = NbT + z
If NbT > Range("k8").Value Then
Range("e14").Value = y
Range("e15").Value = z
Exit Sub
'Else
' j = j + 1
End If
Next
Next
End Sub
Un grand merci pour votre aide
Plumazon
Voila mon probleme : je veux faire deux "boucles" avec dans la deuxieme une condition qui si elle est vraie arrête la boucle et affiche le resultat et ensuite on doit passer au next de la premiere boucle...Mon code VBA fonctionne tres bien avec sans le :
FOR i=1 to 3
si j'ajoute cette boucle il ne fait pas le next j puisque l'exit sub arrete la procedure..Voici mon code pour mieux comprendre
Sub NxtToPurchase()
Dim x, y, z, NbT As Variant
Dim i, j As Integer
For j = 1 To 3
NbT = 0
Range("a7").Value = Range("a" & j + 1).Value
For i = 0 To 1000
'z = z + z
x = 2 + (Range("c" & j + 1).Value * (i))
y = Range("Value_Price_en_Devise").Value / (x)
z = Range("F8") / y
NbT = NbT + z
If NbT > Range("k8").Value Then
Range("e14").Value = y
Range("e15").Value = z
Exit Sub
'Else
' j = j + 1
End If
Next
Next
End Sub
Un grand merci pour votre aide
Plumazon
