QUADRILLAGE

Bonjour ,

je vous explique mon problème je suis vraiment nulle sur xls , .J 'ai un fichier client relativement volumineux

et je voudrais savoir s 'il y aurait une possibilité de créer un quadrillage en une seule manip par client différent exactement comme il est indiqué sur le fichier joint

Merci de votre retour

Bonjour,

une solution via une macro.

Sub quadrillage()
    nl = Cells(Rows.Count, 1).End(xlUp).Row
    nc = 15
    i = 4
    pl = i
    While i <= nl
        If Cells(i, 1) <> "" Then
            For j = 1 To nc
            With Range(Cells(pl, j), Cells(i, j))
             .Borders(xlEdgeLeft).Weight = xlThin
             .Borders(xlEdgeTop).Weight = xlThin
             .Borders(xlEdgeBottom).Weight = xlThin
             .Borders(xlEdgeRight).Weight = xlThin
             End With
              Next j
            i = i + 1
            pl = i
        Else
            i = i + 1
        End If
    Wend
End Sub