Suppression des bordures inférieures pour une série de cellules

Question

J'ai un problème très simple qui, je l'espère, a une solution très simple. J'essaye de créer une macro pour enlever seulement les frontières inférieures d'une gamme de cellules. Cependant, si je fais quelque chose comme

Range("D21:I28").Borders(xlEdgeBottom).Linestyle = xlNone 

Il supprime seulement la bordure inférieure de la rangée de cellules la plus basse. Y a-t-il un moyen de faire cela pour chaque cellule? Je ne veux pas utiliser une boucle for car elle est lente et vous pouvez voir les frontières de chaque cellule s'effacer - je veux la rendre instantanée.

Answer 1

Reconsidérer votre décision et utiliser une boucle:

Sub UseALoop() 
    Application.ScreenUpdating = False 
    For Each r In Range("D21:I28") 
     r.Borders(xlEdgeBottom).LineStyle = xlNone 
    Next r 
    Application.ScreenUpdating = True 
End Sub