Discussion :

[CIBOOX]

BONJOUR ,
j'ai un tableau avec 4 colonnes je voudrai par une macro qu' à chaque fois que je rajoute une ligne celle ci soit encadree ( les celules à l'interieur aussi ).

[ouskel'n'or]

Word ? Excel ?
A+

Je suppose que c'est dans Excel et que ça fait suite à "Ajouter un élève"
Tu as plusieurs solutions, dont une très simple qui consiste à utiliser Range("A1").currentRegion
Revient à te placer en A1 et à faire Ctrl *
Reste plus qu'à encadrer

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
Sub Encadrer()
    With Range("A1").CurrentRegion
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End With
End Sub

Pour imprimer, tu fais pareil, en utilisant CurrentRegion et Editer -> sélection

Code :

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

1
2
    Range("A1").CurrentRegion.select
    Selection.PrintOut Copies:=1, Collate:=True

A+

[CIBOOX]

Merci Ca Marche Nickel :p :p