[VB.NET][Excel] Bordure de cellule

Version imprimable

Bonjour à tous.

J'essaie actuellement de créer un fichier au format Excel en copiant les données contenues dans un autre fichier Excel.

Je voudrais appliquer une certaine mise en forme à quelques cellules, mais je n'y arrive aboslument pas.
Je cherche dans un premier temps à affecter une bordure à une cellule, et par la suite à copier le style de cette cellule (couleur de fond, police, bordure) pour l'affecter à une autre.

Pour l'instant, voila où j'en suis:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim myExcel As New Excel.Application myExcel.Visible = False Dim classeur As Excel.Workbook = myExcel.Workbooks.Open(PATHMODELE & "troc.xls") Dim feuille As Excel.Worksheet = CType(classeur.ActiveSheet, Excel.Worksheet) Dim rng As Excel.Range = feuille.Range(feuille.Cells(1, 1), feuille.Cells(1, 5)) 'je définis un range feuille.Name = "hop" rng.Merge() ' je fusionne les cellules du range rng.Value = "hop" 'je lui affecte un texte rng.Interior.Color = RGB(255, 0, 0) 'puis une couleur Dim rng2 As Excel.Range rng2 = feuille.Range(feuille.Cells(4, 4), feuille.Cells(4, 9)) 'voici un autre range rng2.Interior.Color = rng.Interior.Color 'je copie la couleur du premier dans le second 'je veux maintenant affecter une bordure et une police au premier range et affecter le style au second range
Si quelqu'un peut m'aiguiller pour trouver la solution, je lui en serait reconnaissant.

PS: Si vous connaissez un bon livre traitant du pilotage d'Excel via .NET ou un bon tutorial, n'hésitez pas à me le faire connaitre. La doc msdn ne m'a pas permis de trouver grand chose à propos de ce que je veux faire

13/03/2006, 06h57
joKED

Personne n'a une petite idée, ni un bouquin qui pourrait m'aider?
13/03/2006, 12h45
HULK

y'a rien qui se passe ou tu as une erreur ?? si oui laquelle ???

C'est bon, j'ai fini par trouver.
Il suffisait de créer un style et de l'affecter à mon range de la manière suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim rng As Excel.Range = ThisApplication.Range("rangeStyles")
    Dim style As Excel.Style
 
    Try
        style = ThisWorkbook.Styles("NewStyle")
    Catch Ex As Exception
        ' Style doesn't exist yet.
        style = ThisWorkbook.Styles.Add("NewStyle")
        style.Font.Name = "Verdana"
        style.Font.Size = 12
        style.Font.Color = RGB(255, 0, 0)
        style.Interior.Color = RGB(200, 200, 200)
        style.Interior.Pattern = Excel.XlPattern.xlPatternSolid
    End Try
 
    rng.Value2 = "'Style Test"
    rng.Style = "NewStyle"

Pour la bordure, je n'ai toujours pas compris comment faire.
C'est rageant, il ne me manque que ça à faire...

14/03/2006, 11h53
joKED
Finalement, j'ai trouvé, et ça fonctionne.

Le code ci dessous permet d'enlever la bordure du bas
Code:

1 2 rng.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.Constants.xlNone
Donc pour en ajouter une, je remplace le Excel.Constants.xlNone par
Excel.XlLineStyle.xlContinuous pour une ligne continue.

Voila, c'est résolu, merci de ton aide Hulk, ton lien m'a bien aidé.
23/05/2014, 09h49
adrien2809

bonjour,

lorsque j'utilise votre ligne de code, pour ma part j'ai mis :

Dim wsexcel, classeur, feuille

wsexcel = CreateObject("Excel.Application")
wsexcel.Visible = True
classeur = wsexcel.Workbooks.Open(pathsauv & "\Base de donnée\Données BD\Heures Tâches.xls")
feuille = wsexcel.ActiveSheet

feuille.range("A2").Borders(wsexcel.XlBordersIndex.xlEdgeBottom).LineStyle = wsexcel.Constants.xlContinuous

Une erreur s'affiche : Public member 'XlBordersIndex' on type 'ApplicationClass' not found.

Je n'arrive pas à trouver la solution, si vous aviez une idée, cordialement