Interop.Excel Bordure cellulesRésolu

Question

Bonjour le Forum, 
 
Dans un tableau Excel, je souhaite mettre une bordure à toutes les cellules.

Le code ci-dessous "encadre" bien la cellule E9.
J'ai essayé en vain d'utiliser UsedRange, CurrentRegion et Borders.
Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application()Dim xlWorkBook As Excel.WorkbookDim xlWorkSheet As Excel.WorksheetDim chartRange As Excel.RangexlWorkBook = xlApp.Workbooks.Open(MyFilePDP)xlApp.DisplayAlerts = FalsexlWorkSheet = xlWorkBook.Worksheets("Applications")chartRange = xlWorkSheet.Range("E9")'chartRange = xlWorkSheet.Range("A1").CurrentRegion.Select()  'chartRange = xlWorkSheet.UsedRange.SelectchartRange.BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin) 

Merci pour vos suggestions,
jean-marc

ucfoutu · Answer

Bonjour, Jean-Marc,
ta question relève avant tout de ce que tu sais faire depuis VBA/Excel directement. Tu ne pourras "piloter" valablement Excel qu'à partir de là.
Voici ce que tu écrirais en VBA (sans pilotage) sur la feuille en cours ===>>>
Dim chartrange As Range, c As RangeSet chartrange = UsedRangechartrange.BorderAroundFor Each c In chartrange c.BorderAround XlLineStyle.xlContinuous, XlBorderWeight.xlThinNext
Il n'y a plus qu'à "piloter" maintenant sur cette base.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Je te fais par ailleurs observer que (connaissance Excel et non VB.Net là encore) que la propriété BorderAround ne peut concerner qu'une cellule (d'où le for each).
Pour toutes les cellules d'une plage (ici le UsedRange), il est plus judicieux d'éviter de boucler et d'utiliser la propriété Borders de la plage ! ===>>
Dim chartrange As Range, c As RangeSet chartrange = UsedRangeWith chartrange.Borders        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = 0End With
Conclusion (une fois de plus) : ne pas se lancer dans le pilotage avant de maîtriser directement (sans pilotage).
Ta question aurait préférablement du être posée dans le sous-forum VBA.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

cs_JMO · Answer

Bonjour ucfoutu,

D'abord merci, Jacques, de t'être penché sur mon problème.
J'ai testé le "For Each c In chartrange" avec usedRange.
Le fichier Modèle sur lequel je m'appuie ayant été modifié le usedrange inclût toutes les cellules et par conséquence + de 5 minutes pour traiter 2 feuilles (150 lignes pour 25 colonnes et 1600 lignes pour 30 colonnes).
Donc banni le UsedRange !!!
Je vais continuer mes recherches sur l'utilisation du Select.

jean-marc

ucfoutu · Answer

1) fais donc précéder la détermination du usedrange par sa "remise en état" ===>>
ActiveSheet.UsedRangeSet chartrange = UsedRange
2) ceci étant dit : le principe reste le même, quelle que soit la plage à traiter (issue de l'utilisation du UsedRange ou autre)

3) ceci étant également dit : tu dois bien avoir un moyen de déterminer la plage que tu dois traiter.
Par exemple (si pas de formules présentes sur la feuille) :
Dim laplage_a_traiter As RangeSet laplage_a_traiter = Cells.SpecialCells(xlConstants)MsgBox laplage_a_traiter.Address
mais ce n'est qu'un exemple et le choix à faire de la méthode est très largement dépendant de ce que tu as sur la feuille.

Whismeril · Answer

Bonsoir,

        Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim chartRange As Excel.Range

xlApp.Visible = True
        xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\exemple.xlsx")
        xlApp.DisplayAlerts = False
        xlWorkSheet = xlWorkBook.Worksheets("exemple")

chartRange = xlWorkSheet.Range("A1", "V10")
        'chartRange = xlWorkSheet.Range("E9")

'chartRange = xlWorkSheet.Range("A1").CurrentRegion.Select()  
        'chartRange = xlWorkSheet.UsedRange.Select

chartRange.Borders.LineStyle = Excel.XlLineStyle.xlContinuous
        chartRange.Borders.Weight = Excel.XlBorderWeight.xlThin
 

J'ai remplacé le fichier par le mien....


Pour d'autres exemple (en c#) voir ici

Whismeril · Answer

Bonsoir Uc, ben oui en fait interop sert à piloter excel de la même façon qu'une macro le ferait mais depuis  un exécutable autre qu'excel.
La syntaxique diffère un peu.

Whismeril · Answer

Quel version de visual studio utilises tu?

ucfoutu · Answer

Bon. Revenons à la demande de départ (le 1er message).
Je vais illustrer tout ce que j'ai dit plus haut ===>>
 Je rappelle que je fais mon apprentissage en VB.NET.
Quant qu'au VBA Excel, je ne l'utilise pas ou très peu dans mes scripts. 
 
C'est bel et bien là le problème et la raison de tout ce que j'ai dit plus haut.
Maintenant : où en es-tu de ton quadrillage à limiter à tes cellules ?
Tout dépend de la feuille en cause (de ce qu'elle contient).
Avec ce que je t'ai dit plus haut, par exemple, et en admettant 
- que tu n'aies pas d'autres colonnes (sur toute ta feuille) que la dernière remplie  en ligne 1
- que tu n'aies pas de lignes (sur toute ta feuille) au delà de la dernière remplie en colonne A
Disons que pour piloter, tu as créé les objets : (exemples)
 apxl pour l'appli Excel
clxl pour le classeur Excel concerné
fxl pour la feuille concernée de ce classeur

que tu as déclaré dercol et derlig en integer ou long (comme l'attend VB.Net)
===>>
With fxl  dercol = .cells(1, apxl.Columns.Count).end(-4159).Column ' ==>> -4159 = valeur de xlToLeft  derlig = .range("A" & apxl.rows.Count).end(-4162).row ' ' ==>> -4162 = valeur de xlUp  With .range(.cells(1, 1), .cells(derlig, dercol)).borders        .LineStyle = 1 ' (valeur de xlContinuous)        .Weight = 2 ' (valeur de xlThin)        .ColorIndex = 0 ' (valeur du noir)  End WithEnd With
le fait, ton quadrillage.
voilà pourquoi je m'acharne à dire : Excel d'abord, pilotage ensuite.

EDIT : je reviens de bon matin ajouter quelques petites explications ===>>
vous avez probablement observé l'utilisation de valeurs numériques en lieu et place du nom Excel de certaines constantes.
Pourquoi ? ===>>> parce qu'autant une ouverture en "early binding" permet d'utiliser directement les constantes de Excel, autant une ouverture en "late binding"+++ ne le permettrait pas et il faut donc dans ce cas utiliser directement leur valeur et non leur nom.
En choisissant d'utiliser les valeurs et non les noms des constantes de Excel, on "a bon" dans tous les cas de figure (early or late binding). Pourquoi alors s'en priver ?



+++ rappelons qu'une ouverture en liaison tardive (late binding) présente l'avantage, en cas de distribution de l'appli, d'éviter les erreurs pouvant résulter de versions différentes de Microsoft Office.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Interop.Excel Bordure cellules

8 réponses

Votre réponse

Discussions similaires