Probleme sortie de boucle à condition

Bonjour,

J'ai un petit probleme dans ma boucle, je pense que je dois faire en sorte d'en sortir, pouvez vous m'aider svp

Merci beaucoup!

Sub Calcul_Filtre ()

code calcul.....ETC

'démarrage boucle

'1

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("XD" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("XD" & i).Value = 0 Then

Range("XD" & i & ":AAL" & i).Cells.Clear

End If

Next i

Exit Sub

'dois je mettre exit sub?

'2

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("AAO" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("AAO" & i).Value = 0 Then

Range("XD" & i & ":ADI" & i).Cells.Clear

End If

Next i

'3

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("ADL" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("ADL" & i).Value = 0 Then

Range("AFT" & i & ":ADI" & i).Cells.Clear

End If

Next i

'4

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("AFW" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("AFW" & i).Value = 0 Then

Range("AHS" & i & ":ADI" & i).Cells.Clear

End If

Next i

'5

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("AHV" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("AHV" & i).Value = 0 Then

Range("AJF" & i & ":ADI" & i).Cells.Clear

End If

Next i

'6

Dim cellule

Dim nombre As Integer

Dim i&

nombre = Range("AJI" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("AJI" & i).Value = 0 Then

Range("AKG" & i & ":ADI" & i).Cells.Clear

End If

Next i

'nouveau calcul

'boucle

end sub

Bon jour Marchal, bonjour le forum,

J'ai un petit probleme dans ma boucle, je pense que je dois faire en sorte d'en sortir, pouvez vous m'aider svp

Quel problème ? Quelle serait la condition pour en sortir ?

Ton code raccourci :

Sub Calcul_Filtre()

'code calcul.....ETC
'....................

'démarrage boucle

Dim cellule
Dim nombre As Integer
Dim i As Integer
Dim TN(1 To 3, 1 To 6) As String
Dim J As Byte

TN(1, 1) = "XD": TN(2, 1) = "XD": TN(3, 1) = "AAL"
TN(1, 2) = "AAO": TN(2, 2) = "XD": TN(3, 2) = "ADI"
TN(1, 3) = "ADL": TN(2, 3) = "AFT": TN(3, 3) = "ADI"
TN(1, 4) = "AFW": TN(2, 4) = "AHS": TN(3, 4) = "ADI"
TN(1, 5) = "AHV": TN(2, 5) = "AJF": TN(3, 5) = "ADI"
TN(1, 6) = "AJI": TN(2, 6) = "AKG": TN(3, 6) = "ADI"

For J = 1 To 6
    nombre = Range(TN(1, J) & Rows.Count).End(xlUp)
    For i = 4 To nombre
        If Range(TN(2, J) & i).Value = 0 Then
            Range(TN(2, J) & i & ":" & TN(3, J) & i).Cells.Clear
        End If
    Next i
Next J

'nouveau calcul
'...............
'boucle
'................
End Sub

Ok merci pour avoir raccourci mon code!