Fonction Excel et .net 2008

Question

Bonjour,

A partir d'un programme créés en VB.net 2008, je génére des rapports Excel 2003.
Je bute sur l'intégration des fonctions mathématiques d'Excel.

Voici un exemple:

Imports Microsoft.Office.Interop

Dim MyExcel As Excel.Application
Dim MyWorkBook As Excel.Workbook
Dim MyWorkSheet As Excel.Worksheet
Dim Ligne as integer = 1
Dim col as integer = 0

For Col = 5 to 10
MyWorkSheet.Cells(ligne, col) = ....
Next Col

Maintenant, je souhaite intégrer dans la cellule (ligne 1 colonne 15), la somme des valeurs de (ligne 1 colonnes 5 à 10) grace à la fonction "SUM" d'Excel.

Comment dois je faire ? 

Merci beaucoup d'avance.
Yannick

grosdur59 · Answer

Bonjour 
voila moi j'ai fai ceci pour accéder a mes lignes excel 
 For n As Integer = 0 To Me.Grille.RowsCount - 1


                If Me.Grille(n, 0).Text <> "" Then

                    For i As Integer = 1 To Me.Grille.RowsCount - 1
                        ligneM = ligneM + 1


                        For j As Integer = 1 To Me.Grille.ColsCount - 1
                            Select Case j
                                Case 1
                                    colAnnexe6m = "A"

                                Case 2
                                    colAnnexe6m = "C"

                                Case 3
                                    colAnnexe6m = "E"

                                Case 4
                                    colAnnexe6m = "I"

                            End Select
                            coordoneAnnexe6M = colAnnexe6m & ligneM
                            annex6_1.Cells.Range(coordoneAnnexe6M).Value = Grille(i, j).Text
                        Next j
                    Next i
                End If
            Next n

cs_yaya60 · Answer

Oui, effectivement une boucle est possible.
Ce que je cherche, c'est à utiliser les fonctions d'Excel.
Dans mon exemple, c'est une somme, mais ça pourrait etre toute autre fonction.
Merci quand même

cs_yaya60 · Answer

Voici un nouveau code que j'essaye:

[i]Dim calcul As Excel.WorksheetFunction
Dim debut As Excel.Range
Dim fin As Excel.Range
Dim resultat As Excel.Range

debut = CType(MyWorkSheet.Cells(1, 5), Excel.Range)
fin = CType(MyWorkSheet.Cells(1, 10), Excel.Range)
resultat = CType(MyWorkSheet.Cells(1, 15), Excel.Range)

resultat.Value = calcul.Sum(debut, fin)/i

mais à la derniere ligne, j'ai une erreur: 
"La référence d'objet n'est pas définie à une instance d'un objet."
Et il n'est pas possible d'instancier "Calcul" ....

Quelqu'un à une idée ????

Fonction Excel et .net 2008

3 réponses

Votre réponse

Discussions similaires