Discussion :

[madnux]

Bonsoir à tous,


Blondelle, je pense que je vais finir par t'ennerver lol mais bon je me suis un peu avancé hier soir, je t'avais dit que je pensais avoir compris l'OleExcel mais je dois avouer que je suis totalement dans les choux ;-)


J'ai un petit soucis pour encadrer une voir plusieurs cellules ... j'ai consulté la faq mais ça ne m'éclaire pas plus que ça ... il me faudrait un exemple de code qui encadre une cellule ...



Est ce que quelqu'un a ça sous la main ?

Admettons que je veule encadrer la cellule "A1" comment dois-je m'y prendre ?

[blondelle]

Salut madnux:
Cote nerfs ca va a mon age il n'en reste plus beaucoup
Tu a tout dans la FAQ voir ce lien.

http://c.developpez.com/faq/bcb/?pag...elborderaround

Alors cote code et commentaires extrait de ce lien

Code :

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

1
2
3
4
vRange = vWorksheet.OlePropertyGet("Range", "A6");
 
vRange.OleFunction("BorderAround", vLineStyle, vLineWeight);

Les valeurs possibles pour vLineStyle sont à rechercher dans la classe XlLineStyle et les valeurs possibles pour vLineWeight dans la classe XlBorderWeight

Les valeurs possibles pour vValue sont définies dans la classe XlLineStyle dont voici les constantes :
xlContinuous = 1
xlDash = -4115
xlDashDot = 4
xlDashDotDot = 5
xlDot = -4118
xlDouble = -4119
xlLineStyleNone = -4142
xlSlantDashDot = 13

//----------------------------

Les valeurs possibles pour vValue sont définies dans la classe XlBorderWeight dont voici les constantes :
xlHairline = 0
xlMedium = -4138
xlThick = 4
xlThin = 2

Il te reste a remplacer les deux variables "vLineStyle, vLineWeight" par une des valeurs en fonction du trait desire

[madnux]

[mode air ahuri=ON]Haaaaaaaaaaaaaaaan[/mode air ahuri=OFF]




Encore désolé de t'ennuyer pratiquement tous les jours avec ça mais sincèrement les variant, OleExcel and Co ça fait deux avec moi...



Bonne soirée ;-)

[madnux]

Tiens à propos,

Si je veux mettre un trait fin, donc hairline qui à la valeur 0

Comme ça : vRange.OleFunction("BorderAround", 1, 0);

Il me fait une exception ... alors que quand j'essaye avec les autres valeurs, il n'y a pas de problème ... Pourquoi ?

[blondelle]

Essaye avec la valeur 1 a la place de zero

[madnux]

Ah oui effectivement ça fonctionne !


Mais le trait de la cellule est en pointillé ... c'est normal ?


C'est un détail, le plus important c'est que dans la mise en forme ça se détache des autres ! Ce n'est pas très important


Bonne journée.

[blondelle]

C'est effectivement un trait en pointille, le code a ete teste en VBE pour recuperer les valeurs, je vais demander de faire corriger la FAQ.

[madnux]

Tu crois qu'il n'y aurait pas moyen malgré tout d'avoir un trait fin non pointillé ?


Je sais ça peut paraître ridicule de se prendre la tête sur une histoire de trait fin ou pointillé mais le résultat à large échelle avec les traits en pointillés n'est pas assez visible et en plus très moche ...


Comment faire pour avoir la valeur du trait fin ?

[blondelle]

Salut madnux:
Pour l'epaisseur ce sont ces valeurs que tu doit utiliser.

xlHairline = 1
xlMedium = -4138
xlThick = 4
xlThin = 2

les autres valeurs que je t'ai passer sont pour le type de trait, trait continu, pointille, double, il faut juste tester.

Tu peut aussi jouer avec la couleur du trait

auteur : Ricky81
Cette définition est à la fois possible pour un cadre ou une partie d'un cadre.
Prenons par exemple le cas d'une bordure définie par le Variant vBorder.
vBorder.OlePropertySet("Color", vValue);
vValue peut par exemple être un entier codant la couleur dont la représentation hexadécimale est bbggrr.