bordure en couleur

[matthieu]

bonjour
j'ai trouver ce code sur le forum je l'aio un peu modifier pour qu'il fonctionne comme j'en ai envi mais je bloc a un endroit

Set Target = Worksheets('poutre continu').Range('c11:cf11')
Dim cellule As Range
For Each cellule In Target
If cellule.Interior.ColorIndex = 36 Then
cellule.Borders.ColorIndex = 0
Else
cellule.Borders.ColorIndex = 15
End If
Next

ce code mais les bordure noir pour une cellule de couleur 36 et une bordure grise pour les cellule de couleur 15
je souhaiterais que le code mette des bordure noires pour les cellule de couleur 36 ET les cellule de couleur 37

jai essayer de copier la ligne mais ca bug???
pouvez vous maider!
merci

 

[Lionel]

Bonsoir Matthieu,

Pardonne-moi si je n'ai pas tout compris, mais je ne vois pas trop où se trouve la difficulté :

Set Target = Worksheets('poutre continu').Range('c11:cf11')
Dim cellule As Range
For Each cellule In Target
With cellule.Interior
If .ColorIndex = 36 Or .ColorIndex = 37 Then
cellule.Borders.ColorIndex = 0
Else
cellule.Borders.ColorIndex = 15
End If
End With
Next

En espérant que cela réponde à tes souhaits...

Amicalement
Lionel

 

[matthieu]

MERCIIIIIIIIIIII CA MARCHE NIKEL