With Worksheets("Feuil1").UsedRange.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTu pourrais utiliser toute autre plage
Tu pourrais utiliser toute autre plage
With Worksheets("Feuil1").plage.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With
Dim plage As Range With Worksheets("Feuil1") juska = .Range("A7:A" & Rows.Count).SpecialCells(xlCellTypeBlanks).Row - 1 Set plage = .Range("A7:G" & juska) With plage.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With End With