Discussion :

[lio62]

bonjour,

j'ai un tableau que je voudrai encadrer ce tableau avec "CURRENT REGION"
je voudrai le faire par macro car avec la macro automatique j'ai 43000 lignes de code !!! merci

[AlainTech]

Rien compris...

[illight]

Rien compris...

pas mieux

[lio62]

je reformule, dans une feuille excel j'ai un tableau que je voudrais encadrer autrement qu'en passant par l'enregistreur de macro quie donne ceci :

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
With Range("A5").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

[ninajams]

salut,

J'ai le même probleme si quelqu'un a la solution ?

Cordialement

[pgz]

Bonjour.

Il n'y a pas de quoi fouetter un chat. 43 000 lignes (?!). Ca fait galéjade...

Bon si on part avec aucun trait, on peut raccourcir, mais suivant la situation de départ, cela peut ne pas être bon. Pour un encadrement sans quadrillage interne, peut-être

Code :

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

1
2
3
4
5
6
With Range("A5").CurrentRegion
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeRight).LineStyle = xlContinuous
End With

Intérêt très limité.

PGZ

[Didier Gonard]

Bonjour,

Vu le code que tu donnes, c'est le quadrillage de chaque cellule que tu souhaites, tu peux faire ainsi :

Code :

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

1
2
3
Sub Quadrillage()
 Range("A5").CurrentRegion.Borders.LineStyle = xlContinuous
End Sub

cordialement,

Ormonth