XL 2016 Mise en forme array affichage

tbft

XLDnaute Accro

• 9 Juillet 2021

• #2

Bonjour

Je vous conseil d'essayer de faire un enregistrement automatique de macro en faisant la mise en forme que vous voulez.
Puis de la modifier pour qu'elle colle avec le reste de votre code...

 

Vote positif 0 Vote négatif

B

BARNS

XLDnaute Junior

• 9 Juillet 2021

• #3

Ouais merci du conseil, je me disais juste qu'il y avait une fonction déjà existante pour les arrays. Je mets le code de cette solution pour ceux que ca intéresse.

VB:

sub contourrange ()
With Range("E7:I16")
.Select
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Juillet 2021

• #4

Bonjour @BARNS, @tbft

On peut l'écrire plus court comme ça :

VB:

Sub contourrange()
Range("E7:I16").BorderAround LineStyle:=xlContinuous, Weight:=xlThin
End Sub

@Phil69970

 

Vote positif 0 Vote négatif

B

BARNS

XLDnaute Junior

• 12 Juillet 2021

• #5

Merci pour votre réponse, toujours agréable de gagner en ligne de code.

 

Vote positif 0 Vote négatif