[VBA] Enlever les bordure a toutes les cellules d'un tableau

Enlever les bordure a toutes les cellules d'un tableau [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 17-06-2004 à 18:41:06    

Voici mon code. Mais il fonctionne pas. Rien ne se passe. Par contre si je remplace le i par 1, la première ligne n'as pas de bordure.
 

Code :
  1. For i = 1 To i < 11
  2.         Selection.Tables(1).Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNone
  3.         Selection.Tables(1).Rows(i).Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  4.         Selection.Tables(1).Rows(i).Borders(wdBorderRight).LineStyle = wdLineStyleNone
  5.         Selection.Tables(1).Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  6.     Next


Message édité par simoes le 17-06-2004 à 18:44:51

---------------
Donne un poisson à un homme il mangera une journée, Apprends lui à pêcher, il mangera toute sa vie...
Reply

Marsh Posté le 17-06-2004 à 18:41:06   

Reply

Marsh Posté le 18-06-2004 à 00:43:15    

simoes a écrit :

Voici mon code. Mais il fonctionne pas. Rien ne se passe. Par contre si je remplace le i par 1, la première ligne n'as pas de bordure.
 

Citation :


    For i = 1 To 11
        Selection.Tables(1).Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNone
        Selection.Tables(1).Rows(i).Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        Selection.Tables(1).Rows(i).Borders(wdBorderRight).LineStyle = wdLineStyleNone
        Selection.Tables(1).Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Next[/fixed]




Message édité par charly007 le 18-06-2004 à 00:48:12
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed