mise en forme cellule (bordure) via VBA

Profane · 20 Février 2012

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 · 20 Février 2012

Re : mise en forme cellule (bordure) via VBA

Bonjour,

essaye peut être comme ceci :

Code:

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 · 20 Février 2012

Re : mise en forme cellule (bordure) via VBA

Bonjour,

Si j'ai bien compris:

Code:

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

Code:

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

Profane · 20 Février 2012

Re : mise en forme cellule (bordure) via VBA

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

mise en forme cellule (bordure) via VBA

Profane

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Guest

Guest

Profane

XLDnaute Occasionnel

Discussions similaires

mise en forme cellule (bordure) via VBA

Profane

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Guest

Guest

Profane

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency