[VBA] Rupture d'un boucle for
Bonjour,
j'ai une boucle for que je voudrais pouvoir interrompre si une variable donnée prend la valeur 4.
For j = 3 To 6 Step 3
'on parcour toutes les lignes
For i = 5 To 30
If nbrcopie = 4 Then
MsgBox ("Il y a plus de 3 produits en promotion, c'est pas prévu dans mon programme !")
BREAK
End If
's'il y a quelque chose on copie, nbrcopie prend +1 pour vérifier qu'on ne dépasse pas les 3 emplacements prévus
If Not Sheets("Bureau").Cells(i, j).Value = "" Then
Sheets("Saisie").Cells(isaisie, jsaisie).Value = Sheets("Bureau").Cells(i, j - 2).Value
Sheets("Saisie").Cells(isaisie + 1, jsaisie).Value = Sheets("Bureau").Cells(i, j).Value
nbrcopie = nbrcopie + 1
isaisie = isaisie + 2
End If
Next i
Next j
Merci d'avance !
A +
Bonjour
Remplace Break, par Exit Sub ou par Exit Next tout dépend du niveau de ta boucle dans ta macro.
@+Jean-Marie
Merci beaucoup !
ça marche avec exit for
A plus