Discussion :

[alex.a]

bonjour à tous,

Voilà je voudrais faire une mise en page,
mais lors mon exécution j'ai une Erreur d'exécution '1004'
Impossible de définir la propriété Line Style de la classe Border
La ligne renvoyée est celle-ci:

Code :

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

.LineStyle = xlContinuous

ce qui est bizard, c'est que cette erreur n'apparait qu'une fois lors de ma première exécution, après la mise en page est bonne.

voici mon code de mise en page (en rouge la ligne ou ca bloque)

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
    'mise en page de la feuille composant manquant
        sh.Range("A1").Select
    Selection.Font.Bold = True
    Columns("A:A").EntireColumn.AutoFit
    Cells.Select
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
    sh.Range("A1").Select
    Selection.Interior.ColorIndex = 37
    Range(Selection, Selection.End(xlDown)).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
    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(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

J'ai toujours la possibilité de mettre un Goto line sur l'erreur pour la première exécution, en espérant que personne ne remarque les mise en page d'ifférente

quelqu'un a t-il une idée?
merci d'avance

[dadavyvy]

Code :

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

1
2
3
4
5
6
7
8
9
sh.Range("A1").Select
'...
Range(Selection, Selection.End(xlDown)).Select
'...
With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

Bah apparemment tu ne sélectionnes des cellules que dans une seule colonne, pas étonnant qu'il n'y ait pas de bordures verticales inter-colonnes (xlInsideVertical)...

Rem. au départ tu travailles avec une feuille Sh que tu appelles plusieurs fois, puis après tu l'oublies... C'est dommage ça aurait permis de se passer de tous ces Select et Selection...

[alex.a]

Merci dadavyvy pour ta réponse,
je vais regarder ça, donc si je sélectionne qu'une colonne je ne peux pas faire de quadrillage en vba parce qu'il n'y ait pas de bordures verticales inter-colonnes (xlInsideVertical). Manuellement pourtant ça marche

merci pour ta remarque j'y avais pas pensé.