Bonjour archer,
Ce que je souhaites en fait, c'est 1 seule grille sur une seule ligne au départ:
Sub EfaceCellEncadrer()
Application.ScreenUpdating = False
Cells.Borders.LineStyle = xlNone
Rows("3:3").RowHeight = 25
Range("A3:G3").Borders.Weight = xlMedium
Columns(1).ColumnWidth = 4.75
Columns(2).ColumnWidth = 28
Columns(3).ColumnWidth = 3.75
Columns(4).ColumnWidth = 11
Columns(5).ColumnWidth = 4.75
Columns(6).ColumnWidth = 28
Columns(7).ColumnWidth = 3.75
Columns("A:G").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Name = "Calibri"
.Font.Size = 13
.Font.Bold = True
End With
Application.Goto [A1], True
End Sub
avec une boucle qui rappelle cette procédure 1 fois, 2 fois, n fois, Etc... en n'ayant que la valeur de "i" ("i" = nombre de rappels) à changer...
"i" remplace:
pour 2 fois:
Range("A5:G5").Borders.Weight = xlMedium ' i = 1
Range("A6:G6").Borders.Weight = xlMedium ' i = i + 1
et pour 3 fois:
Range("A9:G9").Borders.Weight = xlMedium ' i = 1
Range("A10:G10").Borders.Weight = xlMedium ' i = i + 1
Range("A11:G11").Borders.Weight = xlMedium ' i = i + 2
J' espères être plus clair,
Merci à toi,
A+