Discussion :

[grisan29]

bonjour a vous tous

comment puis je faire pour qu'une fois la feuille remplie de ses données qui peuvent de 2 a 150 ou plus de lignes écrites
je voudrais pouvoir tracer les bordures par le biais d'un bouton
mais je pèche car je ne sais comment commencer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub bordure()
With Sheets("Feuil1")
 L = .Range("A65536").End(xlUp).Row
 
 'Formatage du tableau
 
 
    .Cells(L, "A").Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Range(.Cells(L, "I"), .Cells(L, "P")).Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Range(.Cells(L, "A"), .Cells(L, "G")).Borders(xlEdgeTop).LineStyle = xlNone
    .Range(.Cells(L, "I"), .Cells(L, "J")).Borders(xlEdgeTop).LineStyle = xlNone
    .Range(.Cells(L, "A"), .Cells(L, "J")).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Range(.Cells(L, "I"), .Cells(L, "J")).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Range(.Cells(L, "D"), .Cells(L, "H")).Borders(xlInsideVertical).LineStyle = xlNone
    .Range(.Cells(L, "D"), .Cells(L, "K")).Borders(xlInsideVertical).LineStyle = xlContinuous
    .Range(.Cells(L, "I"), .Cells(L, "J")).VerticalAlignment = xlCenter
    .Range(.Cells(L, "D"), .Cells(L, "G")).VerticalAlignment = xlCenter
    End With
End Sub

le départ en ligne 12 est bon c'est la fin que je ne connais pas d'avance

auriez vous une idée

Pascal

[jfontaine]

Bonjour,

Il me semble que la variable L contient la dernière ligne, non?

Code :

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

L = .Range("A65536").End(xlUp).Row

[grisan29]

Bonjour Jfontaine

Il me semble que la variable L contient la dernière ligne, non?

oui tu a raison mais ce qui se passe c'est que les bordures ne se font pas comme il faut c'est a dire qu'elles font bien la bordure basse mais ne font que border une cellule en remontant
hors elles devraient remonter jusque le ligne 12
c'est un code que je vais mettre derrière un bouton
cdlt
Pascal

[jfontaine]

Comme cela?

Code :

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

.Range(.Cells(12, "I"), .Cells(L, "P")).Borders(xlEdgeLeft).LineStyle = xlContinuous

[grisan29]

bonjour J Fontaine

Merci de la solution que tu propose même si c'est avec quelques jours de retard, très bonne solution Parfaitement adapter a ce que je désirais faire

Merci

Pascal