Bonjour,

Je souhaite réinitialiser les valeurs et la mise en forme d'un tableau avant de le renseigner.

Je parviens à l'initialiser via un clearcontents mais j'ai un problème lors de la suppression de la mise en forme.

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 0 To 4
      ' Suppression des lignes des différentes feuilles
      With Worksheets(NomTableau(i)).Range("A4:I" & Worksheets(NomTableau(i)).Range("B65536").End(xlUp).Row)
        .ClearContents
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
      End With
   Next i
J'ai l'erreur "Impossible de définir la propriété linestyle de la classe border" sur ce morceau de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Borders(xlInsideVertical).LineStyle = xlNone
Julien.