erreur 1004 impossible de définir la propriété weight de la classe border

Question

je suis stagiaire et je dois résoudre un pb de VB: aider svp voici le programme: 'Si on écrit la date sur la dernière ligne, on ajoute une ligne k = 8 Do While Worksheets("Historique AMDEC").Cells(k, 5) <> "" k = k + 1 Loop If Worksheets("Historique AMDEC").Cells(k - 1, 2) <> "" Then Worksheets("Historique AMDEC").Range(Cells(k, 2), Cells(k, 12)).Insert shift:=xlShiftDown Worksheets("Historique AMDEC").Cells(k, 5) = "Pilote :" Worksheets("Historique AMDEC").Cells(k, 7) = "Animateur :" Worksheets("Historique AMDEC").Cells(k, 9) = "Participants :" Worksheets("Historique AMDEC").Cells(k, 11) = "Commentaires :" With Worksheets("Historique AMDEC").Range(Cells(k, 2), Cells(k, 12)) .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeTop).Weight = xlThin .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeRight).Weight = xlMedium .Borders(xlInsideVertical).Weight = xlThin .Borders(xlInsideHorizontal).Weight = xlThin End With End If Voilà, le truc c qu une nouvelle ligne d un tableau doit s insérer automatiquement à la suite de la dernière ligne, et la il y environ 200 lignes qui viennent s'insérer et le programme bug en affichant " erreur d'exécution 1004 impossible de définir la propriété weight de la classe Border"

cs_bouf · Answer

salut,
j'ai regarder ton code. Al a fin, tu lui faire entourer de ligne plus ou moins epaisse la derniere ligne. Mais c'est QUE LA DERNIERE LIGNE donc la commande 
Borders(xlInsideHorizontal).Weight = xlThin
ne peut pas s'appliquer. Retirer la et cela fonctionnera. Cette ligne ne peut exister que si il y a PLUSIEURS lignes (Inside=interieur) 

a+

ps : il y a plus rapide pour aller en bas d'une BD
regarde  : end(xldown).offset(1,0)
*
a+
Cliff le bouffeur

valtrase · Answer

Salut,
es-tu obliger de faire un insert dans ton tableau j'ai comme un pr&#233;sentiment ...
Si tu n'est pas obliger vires le

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Erreur 1004 impossible de définir la propriété weight de la classe border

2 réponses

Discussions similaires