Accès au format de cellule impossible

Version imprimable

02/07/2014, 11h40
Patnel

Accès au format de cellule impossible

Bonjour,

voilà j'ai fait une feuille de calcul avec pour un ensemble de cellule des formules intégrées à ces cellules

si je veux mettre en forme une de ces cellules, des bordures, je ne peux pas avoir accès au format de cellule par le clic droit
et si je fais une macro pour faire une bordure j'ai une erreur:
"Impossible de définir la propriété linestyle de la classe border"
lors de l’exécution

en dehors de ça mes formules fonctionnent bien

j' ai accès au "format de cellule" pour celles qui ne contiennent pas de formule et les macro de bordure fonctionnent bien.

comment dois je aborder ce problème ?
02/07/2014, 12h02
jfontaine
Bonjour,

Citation:

si je veux mettre en forme une de ces cellules, des bordures, je ne peux pas avoir accès au format de cellule par le clic droit

Apparemment, tu as protégé certaines cellules. Si c'est bien le cas, il te faut déprotégé la feuille le temps de l'exécution de la macro puis remettre la protection
Code:

1 2 3 4 5 6 Me.Unprotect "pass" ... Me.Protect "pass"

merci pour ta réponse jfontaine, mais malheureusement ce n'est pas le cas
je peux modifier comme je veux les valeurs, je peux installer une formule et la formule fonctionne

c'est vraiment spécifique au format de bordure, car par exemple je veux centrer par macro et ça marche bien
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Set z_bilan = Range(Cells(lg, "J"), Cells(lg + 2, der_col)) With z_bilan ' .Borders(xlEdgeLeft).LineStyle = xlMedium ' .Borders(xlEdgeTop).LineStyle = xlDouble ' .Borders(xlEdgeBottom).LineStyle = xlDouble ' .Borders(xlEdgeRight).LineStyle = xlMedium ' .Borders(xlInsideHorizontal).LineStyle = xlThin .VerticalAlignment = xlCenter End With
z_bilan est la zone que je veux habiller
ce qui plante est en commentaire
z_bilan est bien prise en compte
j' ai teste avec z_bilan.Select

z_bilan est bien prise en compte
j' ai teste avec z_bilan.Select

03/07/2014, 11h07
Menhir

Dans l'aide VBA, je ne vois ni xlMedium, ni xlThin dans la liste des constantes XlLineStyle.
Tu as essayé de remplacer tous tes styles par xlContinuous ?
04/07/2014, 09h47
Patnel

Ah !!:lol: Voilà une réponse qu'elle est bonne
j' ai essayé et ça marche
bon maintenant comment je fais comment pour avoir le haut et le bas de ma zone en double trait
et est -il possible de mettre une couleur dans cette bordure ?

Merci Menhir
04/07/2014, 10h14
Menhir

L'enregistreur automatique de macro est ton ami.

merci Menhir
c'est ce que j’avais fait au début avant de poster cette discussion , je te montre

code obtenu pat l’enregistreur de macro

Code:

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
 
'
' Macro1 Macro
'
 
'
    Range("E4:G7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .Color = -16727809
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Color = -16727809
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("J17").Select
End Sub

si je veux améliorer un peut en y mettant des variables

Code:

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
 
Sub essayons()
 
x1 = 5
y1 = 10
x2 = 10
y2 = 15
Set zone = Range(Cells(x1, y1), Cells(x2, y2))
zone.Select
 
    With zone.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With zone.Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .Color = -16727809
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With zone.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Color = -16727809
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With zone.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With zone.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With zone.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
 
End Sub

les deux code marchent très bien dans un tableur neuf

on voit bien
.LineStyle = xlDouble tel que je l'ai mis dans mon code qui plante, mais pas là
donc LineStyle admet bien xlDouble

d'où mon désarroi

si je mets
.LineStyle = xlDouble ça plante

si je mets
.LineStyle = xlContinuous ça marche , mais ça ne fait pas ce que je veux

tu comprends mieux maintenant l'objet de ma discussion

04/07/2014, 11h12
Menhir

Citation:

Envoyé par Patnel

si je mets
.LineStyle = xlDouble ça plante

Quel est l'empilement complet de tes objets ?
Quel message d'erreur ça renvoie ?
04/07/2014, 14h20
Patnel

regarde au début de la conversation ya le message d'erreur et le code que j'utilise
"Impossible de définir la propriété linestyle de la classe border"

Essaye :

Code:

1
2
3
4
5
6
7
8
Set z_bilan = Range(Cells(lg, "J"), Cells(lg + 2, der_col))
 
z_bilan.Borders(xlEdgeLeft).LineStyle = xlMedium
z_bilan.Borders(xlEdgeTop).LineStyle = xlDouble
z_bilan.Borders(xlEdgeBottom).LineStyle = xlDouble
z_bilan.Borders(xlEdgeRight).LineStyle = xlMedium
z_bilan.Borders(xlInsideHorizontal).LineStyle = xlThin
z_bilan.VerticalAlignment = xlCenter

07/07/2014, 10h36
Patnel

j'ai la même erreur

j'ai lu ça chez microsoft

http://support.microsoft.com/kb/2775...AArwAAAMXNEAA=

manifestement le pb est connu et ya pas de soluce vraiment évidente

je crains fort de m'asseoir sur mes habillages
je laisse la conversation ouverte encore un peu des fois qu'un miracle se produise
07/07/2014, 10h47
Menhir

Juste au dessus je t'ai mis une solution qui fonctionne. :roll:
Il suffit d'éviter le With.
07/07/2014, 13h42
Patnel

je suis désolé je n'ai pas été assez clair
j'ai essayé ta solution et ça me renvoie la même erreur

as tu vu ce que dit microsoft ?
10/07/2014, 10h01
Patnel

bon vu que je n'ai pas eu vraiment de réponse j’abandonne
il faudrait prévoir un tag "NON Résolu"

Merci à Menhir
10/07/2014, 10h35
Menhir

Si je comprends bien, tes xlMedium et xlThin, c'est pour définir l'épaisseur de trait et non son style.
Tu devrais donc prendre un Style xlContinuous et ensuite jouer sur la propriété Weight de Border.
10/07/2014, 14h28
Patnel

je pense que c'est le fait d'avoir intégré des fonctions personnalisées dans les cellules que je veux border, car quand je les supprime ces fonctions, ça marche impec

donc je ne comprends toujours pas pourquoi, sice n'est que mes fonctions sont trop complexes et excel se ramasse.
donc je vais faire autrement avec l'évenement Worksheet_Change
qui me pose d'autres problèmes mais ça fera l'objet d'une autre discussion

Merci Menhir
10/07/2014, 15h00
Menhir

J'ai déjà fait des fonctions avec plus de 500 lignes et appel à des sous-fonctions. Ca mettait un peu de temps à se calculer, mais ça marchait.
Je ne sais pas s'il y a une limite à la quantité d'opérations qu'on peut mettre dans une fonction mais je doute que ce soit une poignée de mise en forme qui puisse la caler.
Comme disait Fox Mulder, "la vérité est ailleurs".