Discussion :

[lio62]

bonjour,
j'ai plantage pour encadrer un tableau a ce niveau je suis dans un module et j'ai ce message

IMPOSSIBLE DE LIRE LA PROPRIETE CURRENTREGION DE LA CLASSE RANGE

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
Range("a1").Select
 
    With Range("A2").CurrentRegion  '-------->  plantage
        .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

N'existe t il pas quelque chose de plus simple pour encadrer car ca c'est l'enregistrement automatique d'excel

Merci

[SfJ5Rpw8]

ben le range A1 select ...ne sert à rien ... puis précise la feuille au cas ou ...

Code :

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

1
2
3
 
   With ThisWorkbook.Sheets("Feuil1").Range("A2").CurrentRegion  '-------->  plantage
..

[lio62]

bonjour,
le plantage se fait maintenant sur la 2 eme ligne .borders

"reference incorrecte ou non qualifiée.