XL 2016 Mise en forme array affichage

[BARNS]

Bonjour je souhaite modifier la mise en forme d'un array

avec

Worksheets("User").Range(Cells(derniereL + 2, 3), Cells(derniereL + 10, 9)) = matmont

J'ai

Je souhaite

Je ne connais pas à l'avance l'emplacement de l'array qui est défini par des choix user.

Merci

 

[tbft]

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...

 

[BARNS]

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.

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

 

[Phil69970]

Bonjour @BARNS, @tbft

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

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

@Phil69970

 

[BARNS]

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