mise en forme cellule (bordure) via VBA

[Profane]

Bonjour a tous
j'aimerai me simplifier le code pour la mise en forme de bordure
en clair j'ai ce code
.Range("J19:N19").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With

le seul hic c'est comment faire une boucle pour l'appliquer du range J9:N19 au range J31:N31 sans repeter ce code 12 fois....

merci de m'avoir lu, et j attends vos lumieres 🙂

 

[Pierrot93]

Re : mise en forme cellule (bordure) via VBA

Bonjour,

essaye peut être comme ceci :

Dim i As Byte
For i = 19 To 31
    With Range("J" & i & ":N" & i).Borders(xlEdgeTop)
    .Weight = xlThin
    End With
Next i

bon après midi
@+

 

[Guest]

Re : mise en forme cellule (bordure) via VBA

Bonjour,

Si j'ai bien compris:

With .Range("J19:N31").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
        End With

A+

[Edit] Hello Pierrot😀, je pense que tu as mieux compris que moi.

[Edit2] en prenant une ligne plus haut et sans boucle on obtient la même chose puisque xlEdgeTop de la 19 = xlInsidehorizontal des 18:19

With Range("J18:N31").Borders(xlInsideHorizontal)
         .LineStyle = xlContinuous
         .ColorIndex = xlAutomatic
         .TintAndShade = 0
         .Weight = xlThin
End With

 

[Profane]

Re : mise en forme cellule (bordure) via VBA

Merci a tous les deux, j ai opté pour la boucle de Pierrot
a bientôt