Problème lors de l'initialisation d'un tableau

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:

---

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:

---

.Borders(xlInsideVertical).LineStyle = xlNone

---

Julien.

Bonjour,

Ajoute la ligne :

Code:

---

MsgBox .Address

---

sous la ligne :

Code:

---

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.

Le message est le suivant :

Code:

---

$A$4:$I$54

---

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

Le voici.

Merci d'avance.

Julien.

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

J'espère que je n'ai rien oublié.

Je ne sais pas comment utiliser ce fichier qui possède une liaison :cry:

Exact, ce doit être suite à une de mes bidouilles... Clique sur l'onglet Données, "Modifier les liens" et "rompre la liaison".

J'ai enregistré le fichier sur mon bureau puis j'ai rompu la liaison.

Je reste en mode développeur et ne peux exécuter la macro. L'activation du bouton "mode création" ne fonctionne pas. :cry:

J'avais oublié de mettre la macro du bouton. Je remets le classeur en PJ.

Parfait, merci ! :ccool: