Macro Bordures

Bonjour le forum,

Je dispose de la macro suivante :

Sub bordures()

Dim cellule As Range

With Range("B2:Q9")

                        .Borders(xlEdgeLeft).LineStyle = xlContinuous
                        .Borders(xlEdgeRight).LineStyle = xlContinuous
                        .Borders(xlInsideVertical).LineStyle = xlNone
                        .Borders(xlInsideHorizontal).LineStyle = xlNone

End With

End Sub

Mon but c'est de créer une macro qui permettrait de dessiner les bordures d'une plage de cellules donnée. Cependant, je souhaiterais que ces bordures soient dessinées uniquement toutes les 4 colonnes et c'est là où je bloque.

Je travaille actuellement sur la création d'un planning sur Excel et mon but c'est d'adapter cette macro afin de pour pouvoir faire une mise en page de mon planning.

Je vous ai mis en pièces jointes un fichier Excel illustrant ce que je veux faire.

Je vous remercie d'avance pour votre aide !

Barrym

Bonjour,

une méthode à tester

Pierrot

Bonjour

déjà une seule ligne pour ta macro

Range("B2:Q9").Borders.LineStyle = xlContinuous

A+

Maurice

Bonsoir, Maurice

pratique ta seule ligne de code

mais comme moi, tu ne tiens pas compte de bordures toutes les quatre colonnes

Amicalement

Pierrot

bonjour

déjà il faut qui comprenne la macro

bon voila par colonne

Sub Test2()
Range("B2:Q9").Borders.LineStyle = xlNone
Range("B2:Q2").Borders.LineStyle = xlContinuous
   For C = 1 To 17 Step 4
      Range(Cells(2, C), Cells(9, C)).Borders.LineStyle = xlContinuous
   Next
End Sub

A+

Maurice

Bonsoir, Maurice,

C'est plus clair pour moi aussi

merci et bonne soirée

Pierrot

Bonjour Pierrot, Bonjour Maurice,

Merci pour votre aide, je vais pouvoir avancer dans mon travail !

Bonne journée à vous.