Discussion :

[cynoq]

Bonjour à tous,
je dois tracer les bordures sur une zone définie incluant une variable sur le nombre de lignes à prendre en compte.

Exemple : mon tableau démarre toujours en A15 mais se termine en Lx où x varie à chaque fois que je lance ma macro.

J'ai déjà ce type de code sous VBA mais j'ai une erreur sur ma première ligne (Excel 2003)

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
Worksheets("REQUETE-AGENT").Range("A15:L" & ligne_copie).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Quelqu'un peut m'aider ?
Merci par avance.

[mapeh]

Bonjour,

je suppose que tu as défini la variable (ligne_copie) et que le nom de l'onglet est correct..("REQUETE-AGENT")

essaie avec ce code :

Code :

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

1
2
3
4
5
6
7
With Worksheets("REQUETE-AGENT").Range("A15:L" & ligne_copie)
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With

[Krovax]

QUel est la valeur de ligne_copie au moment de l'erreur, est ce que tu es sur que tu as bien un onglet nommé REQUETE-AGENT (exactement)
Sinon les select c'est le mal

remplace

Code :

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

1
2
 
Worksheets("REQUETE-AGENT").Range("A15:L" & ligne_copie).Select

Par

Code :

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

with Worksheets("REQUETE-AGENT").Range("A15:L" & ligne_copie)

remplace les selection. par .
exemple

Code :

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

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

devient

Code :

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

.Borders(xlDiagonalDown).LineStyle = xlNone

Et rajoute a la fin

Code :

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

end with

[cynoq]

Bonjour,

je suppose que tu as défini la variable (ligne_copie) et que le nom de l'onglet est correct..("REQUETE-AGENT")

essaie avec ce code :

Code :

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

1
2
3
4
5
6
7
With Worksheets("REQUETE-AGENT").Range("A15:L" & ligne_copie)
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With

Génial, ça a l'air de fonctionner.
Merci à vous !
A bientôt (plus vite que je ne pense )