Conditions If et boucle for imbriqués

With Sheets("Capacité").Select
MsgBox "dans capacité"

For CompteurV = 5 To 20
MsgBox "boucle machine ligne " & CompteurV
If Cells(CompteurV, 1) = Inter4 Then <== CETTE CONDITION NE VEUT PAS SE VALIDER
MsgBox "Machine trouvée ligne " & CompteurV
For CompteurH = 3 To 31 <== ET IL NE VEUT PAS RENTRER DANS CETTE BOUCLE
MsgBox "BoucleOp colonne " & CompteurH
If Cells(CompteurV, CompteurH) = 1 Then
Inter6 = Inter6 + 1
MsgBox Inter6
Inter5 = Cells(4, CompteurH)
With Sheets("étapes").Select
If Inter6 = 1 Then
ActiveCell.Offset(-1, 4).Select
End If
ActiveCell.Offset(1, 0).Select
.Value = Inter5
End With
End If
Next CompteurH
End If
Next CompteurV
End With

Cliquez pour agrandir...