Discussion :

[tomy7]

bonjour ,
j essaye de faire un tableau qui s aligne automatiquement sur le nombre de colonnes et de lignes utilisee. mais je n arrive pas a ecrire.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Line = activesheet.range(rows.count, "A").end(xlup).row

Range("A1:" & Column.Count & Line).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

Range("A1:" & Column.Count & Line).Select cette ligne est fausse comment puis je l adapter...


Merci
Tom

[tomy7]

voici ma reponse

Code :

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

1
2
Line = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(1, 1), Cells(Line, Columns.Count)).Select