Bordures entre cellules des colonnes A à T

bonjour le forum,

bonjour à tous,

existe t'il une astuce, une case à cocher par exemple dans les rubans, ou un code VBA, pour ne plus avoir ceci à l'impression:

dernière ligne de la première page : les colonnes A et B n'ont pas de bordure (celle ci apparaît sur les deux premières colonnes de la page 2)

8classeur1.xlsx (49.31 Ko)

et à la page 2 ce sont la colonne 3 et les suivantes qui n'ont pas de bordure

comment faire en sorte que les bordures apparaissent à la fois sur les cellules du haut et du bas?

sachant qu'il y a plusieurs épaisseurs de traits et que la dernière ligne de la page peut varier en fonction des données ajoutées ou supprimées.

je travaille avec ce tableau mais il n'est pas de moi à la base.

merci d'avance pour votre aide.

Pedro Dudesson.

Bonsoir Didesson le forum

tu as vraiment besoin de quadrillage avec plusieurs épaisseur de ligne???

Ou c'est simplement pour te faire plaisir??

a+

Papou

Bonjour, non la feuille m'arrive ainsi, j'essaye juste de réduire le plus possible le temps que je passe à corriger la mise.en forme. Dans un autre sujet sur le forum, pas mal de corrections ont déjà été apportées, la dernière (un peu pour que ce soit abouti, je l'avoue) ce sont ces cellules qui n'ont pas de lignes d'une page à l'autre.

Je me demande juste s'il n'a pas une astuce pour y remédier, faire en sorte que la ligne apparaisse à la fois sur la cellule du bas et celle du haut lorsqu'elles sont séparées par les pages à l'impression.

Merci.

PEDRO.

Bonsoir dudesson le forum

Je regarderai demain matin

A plus

Papou

Bonjour @Paritec,

J'ai répondu sur mon mobile sans me rendre compte que c'était vous.... merci bcp.

Pedro.

Bonjour Dudesson le forum

ton fichier avec un essai

a+

Papou

11dudesson-v3.xlsm (63.34 Ko)

bonjour à tous et encore merci @Paritec,

en parcourant le net j'ai dégoté la façon de détecter le saut de page et hop :

For i = 1 To ActiveSheet.HPageBreaks.Count

sp = ActiveSheet.HPageBreaks(i).Location.Row - 1

'MsgBox sp

For col = 1 To 20

Cells(sp, col).Borders(xlEdgeBottom).LineStyle = xlContinuous

Cells(sp + 1, col).Borders(xlEdgeTop).LineStyle = xlContinuous

Next

Next

cette fois, c'est parfait!!!.

Pedro.

Rechercher des sujets similaires à "bordures entre colonnes"