Discussion :

[lou93]

Bonjour,

J'ai réalisé un code qui me met en forme un tableau. Celui ci ajoute des bordures verticales sur toutes les colonnes de mon tableau.

Cependant, je souhaiterai enlever les bordures intérieures noires présentes au niveau des lignes "total" (colonne "société"). Mais je n'y arrive pas. Quelqu'un a une idée?

Ci-dessous se trouve le code me permettant d'avoir mes bordures noires verticales et horizontales. Le "If not Range" ne fonctionne pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
If Not Range("C" & i) Like "Total*" Then
  For Each cell In Range("D6:H" & derLn - 1)
        For i = 7 To 10 
            With cell.Borders(i)
                .LineStyle = xlContinuous
                .Color = RGB(0, 0, 0) 
                .Weight = xlThin
            End With
        Next i
    Next cell
End If