PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 2024 → quadrillage sur un ensemble de cellules !!!
quadrillage sur un ensemble de cellules !!!
Started by Nard, Feb., 04 2005 6:14 PM - 2 replies
#1
Posted on February, 04 2005 - 6:14 PM
Merci
Cela fonctionne bien mais il me reste une chose :

Je n'arrive pas à mettre le quadrillage sur un ensemble de cellules !!!

Pouvez vous m'aider

Merci de votre réponse

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
#2
Posted on February, 05 2005 - 10:56 AM
Ajoute une méthode à la classe cExcel:
PROCEDURE CExcel::Bordure4Cotes(sPlage,sCouleur,sEpaisseur,sStyle)
SI sPlage<>"" ALORS
:SelectionnerCellules(sPlage)
FIN
:m_xExcel>>Selection>>Borders>>Color = :nConstCouleur(sCouleur)
:m_xExcel>>Selection>>Borders>>Weight = sEpaisseur
:m_xExcel>>Selection>>Borders>>LineStyle = sStyle

Appel méthode:
X1 est un objet cExcel
Plage est une chaîne
Plage="A1:K50"
X1:Bordure4Cotes(Plage,"NOIR",1,7)
// Visionner :nConstCouleur(sCouleur) pour couleurs autorisées
// Varier les valeurs de sEpaisseur et sStyle pour voir ce que ça donne (j'ai perdu les valeurs autorisées et les résultats qu'elles donnent: trait plein, pointillés, double trait, ...)
#3
Posted on February, 06 2005 - 10:50 AM
Merci pour votre réponse

j'ai résolu mon problème de la facon suivante :

feuil est une chaine

xlContinuous est un entier = 1
xlEdgeLeft est un entier= 7
xlEdgeTop est un entier= 8
xlEdgeBottom est un entier= 9
xlEdgeRight est un entier= 10
xlInsideVertical est un entier= 11
xlInsideHorizontal est un entier= 12

feuil="A3"+":"+"K"+SansEspace(NumériqueVersChaine((nb_ligne)))

xl>>Range(feuil)>>Borders(xlEdgeLeft)>>LineStyle = xlContinuous
xl>>Range(feuil)>>Borders(xlEdgeTop)>>LineStyle = xlContinuous
xl>>Range(feuil)>>Borders(xlEdgeBottom)>>LineStyle = xlContinuous
xl>>Range(feuil)>>Borders(xlEdgeRight)>>LineStyle = xlContinuous
xl>>Range(feuil)>>Borders(xlInsideVertical)>>LineStyle = xlContinuous
xl>>Range(feuil)>>Borders(xlInsideHorizontal)>>LineStyle = xlContinuous

encore Merci
A+
Bernard

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
→ Go back to WINDEV 2024