Limiter l'action à D138:D152

[ascal44]

Bonjour, je voudrais limiter ce code aux cellules D138😀152

Sub Macro666()


If flag Then Exit Sub 'Controle Affectations
flag = True
 Col = Array("D")
For n = 0 To UBound(Col)
  For Each Cel In Range(Col(n) & "138:" & Col(n) & Range(Col(n) & "152").End(xlUp).Row)
     If Cel.Value <> "" And Cel.Font.Color <> 8421504 Then
         For Each Cell In Sheets("Parc").Range("C7:C300")
           If Cel.Value = Cell.Value Then
             Cell.Copy Destination:=Cel
             Cel.Borders.LineStyle = 7
           End If
           
         Next Cell
     End If
  Next Cel
Next n

flag = False

End Sub

Comment le modifier ?

 

[Pierrot93]

Re : Limiter l'action à D138😀152

Bonjour Ascal,

pas tout compris, mais pour boucler sur une plage définie :

Dim c As Range
For Each c In Range("D138:D152")
    'ton code
Next c

bonne soirée
@+