M
matthieu
Guest
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
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