XL 2010 Bordure sur une plage de cellule en VBA

[thunder23]

Bonjour le forum,

Je souhaiterais que quand une cellule n'est pas vide une bordure épaisse se met en place en bas d'une plage de cellule. J'ai déjà fait un bout de code mais ça ne fonctionne pas.

If Range("F38").Value <> "" Then
        Range("F38:J38").Borders (xlEdgeBottom)
                .LineStyle = xlContinuous
                .Color = RGB(0, 0, 0)
                .Weight = xlMedium
End If

Merci d'avance pour votre aide

 

[James007]

Bonjour,

Si tu n'as besoin que de l'instruction

Sub TaMacro()
 If Range("F38").Value <> "" Then Range("F38:J38").Borders(xlEdgeBottom).Weight = xlMedium
End Sub

 

[thunder23]

Bonjour,

Si tu n'as besoin que de l'instruction

Sub TaMacro()
If Range("F38").Value <> "" Then Range("F38:J38").Borders(xlEdgeBottom).Weight = xlMedium
End Sub

Bonjour,

Effectivement je n'avais besoin que de l'instruction car c'est pour rajouter dans une macro par ailleurs ça s'effectue comme je le souhaitais, merci beaucoup

 

[James007]

Content que cela puisse t'aider