Option Explicit Sub For_Each_Next_Plage() Dim FL1 As Worksheet, Cell As Range, Plage As Range Dim i As Integer i = 1 Set FL1 = Worksheets("Feuil1") With FL1 'Détermination de la plage de cellules à lire 'Peut s'écrire en utilisant l'objet range de la plage 'For Each Cell In .Range("B3:E15") 'ou en utilisant l'objet Plage (range) de la plage Set Plage = .Range("A1:AF20") For Each Cell In Plage Cell.Value = i i = i + 1 If Cell.Column = 32 Then MsgBox "Fin de ligne" End If Next End With Set FL1 = Nothing Set Plage = Nothing End Sub
Sub For_Each_Ligne_Dans_Plage() Dim Plage As Range, Ligne As Range, Cell As Range With Worksheets("Feuil1") Set Plage = .Range("A1:AF20") For Each Ligne In Plage.Rows For Each Cell In Ligne.Cells Cell.Value = "x" Next MsgBox "Fin de ligne" Next End With End Sub