[XL-2010] Erreur 1004 Propriété bordure [Résolu]

[domibigoudi]

Bonjour,

Par rapport à des dates et des données de cours, j'ai réalisé un calendrier dynamique de Gant. En version 2003, il fonctionnait sans erreurs.

En version 2010, il me donne parfois l'erreur 1004 "Unable to set the weight property border...." sur la dernière ligne du code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'-----------------------------
    '  Quafdrillage
    '-----------------------------
 
 
    'Ligne gauche en A4
    Range(Cells(4, 1), Cells(NombreDeLignes, 1)).Borders(xlEdgeLeft).Weight = 3
    'Ligne gauche en B4
    'Range(Cells(4, 2), Cells(NombreDeLignes, 2)).Borders(xlEdgeLeft).Weight = 3
 
    'Ligne droite en b2
    Range(Cells(2, 2), Cells(NombreDeLignes, 2)).Borders(xlEdgeRight).Weight = 3
    'ligne en dernièrecolonne2
    Range(Cells(2, DerniereColonne), Cells(NombreDeLignes, DerniereColonne)).Borders(xlEdgeRight).Weight = 3
    'Ligne bas en A3 et B3
    Range("A3:B3").Borders(xlEdgeBottom).Weight = 3 '(1=....../2=ligne continue/3=ligne épaisse)

J'ai constaté qu'en arrêtant le programme, et en voulant modifier manuellement la bordure de la cellule en cause (B3), il est impossible de la modifier. (Modifier A3 est possible)

De plus, en faisant un clique droit souris (en B3), et au menu déroulant sélectionner "Format celulle", le panneau n'apparaît pas non plus.

Je peux par exemple modifier la couleur de fond, entrer du texte mais plus modifier la bordure.

Auriez-vous une idée du problème?

Merci et bonne journée.

[AlainTech]

Bonjour,

Cellules fusionnées?

[domibigoudi]

Bonjour,

Cela peur arriver pour des celulles fusionnées ou non.

Le problème est que pour une celulle non fusionnée, il est impossible de modifier la propriété bordure. En direct, le format bordure ne change pas même si l'on choisit une bordure différente.

En VBA (par macro), il y a l'erreur 1004 qui apparaît lors du changement de bordure.

Merci et bonne journée.

[AlainTech]

Dans ce cas, il me semble qu'il serait intéressant de voir le classeur posant problème.
Peux-tu le joindre s'il ne contient pas de données confidentielles?

[domibigoudi]

Bonjour,

Trouvez en pièce jointe le résultat de l'erreur.

En B4 et C4, il est impossible de modifier la bordure, ce qui donne parfois l'erreur 1004.

Merci et bonne journée.

[AlainTech]

Bonjour,

Je n'ai pas d'explication pour l'erreur mais tu peux essayer

Code :

Cells(4, 2).Borders.LineStyle = xlNone

Suivi de la mise en forme que tu veux.

Je l'ai tenté sur ton fichier et ça a fonctionné.

[domibigoudi]

Bonjour et merci pour ta réponse.

Maintenant, cela fonctionne. J'ai voté +1 car ta solution m'aide énormément.

Bonne journée.