Discussion :

[juju05]

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.

[Daniel.C]

Bonjour,

Ajoute la ligne :

Code :

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

MsgBox .Address

sous la ligne :

Code :

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

With Worksheets(NomTableau(i)).Range("A4:I" & Worksheets(NomTableau(i)).Range("B65536").End(xlUp).Row)

et poste le résultat de la dernière message box.

[juju05]

Le message est le suivant :

Code :

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

$A$4:$I$54

[Daniel.C]

Peux-tu mettre le classeur - sans données confidentielles - en pièce jointe ?

[juju05]

Le voici.

Merci d'avance.

Julien.

[Daniel.C]

Ton classeur est corrompu. Je le retape et je te le retourne.