Limitation à l'aide d'un code

[isa44]

Bonjour , j'ai un code que je voudrais modifer afin de limiter son action.

If flag Then Exit Sub 'Controle Affectations
flag = True
 Col = Array("C", "H", "M", "R")
For n = 0 To UBound(Col)
  For Each cel In Range(Col(n) & "1:" & Col(n) & Range(Col(n) & "41").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

Je voudrais qu'il travaille sur la plage nommée "Bus1r"

J'ai essayé ceci :

If flag Then Exit Sub 'Controle Affectations
flag = True
 Col = [COLOR="#FF0000"]Bus1r[/COLOR]
For n = 0 To UBound(Col)
  For Each cel In Range(Col(n) & "1:" & Col(n) & Range(Col(n) & "41").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

 

[Pierrot93]

Re : Limitation à l'aide d'un code

Bonjour,

peut être en modifiant la boucle comme ceci :

For Each cel In Range("NomPlage")

sans plus de détails...

bon après midi
@+

 

[isa44]

Re : Limitation à l'aide d'un code

Merci , je vous remercie c'est bien cela.