calculer la somme à partir d'une cellule variableRésolu

Question

Bonjour, 

j'ai un autre problème 
je veux calculer la somme de mon tableau excel 
voici mon code : 
Dim lastrow As Integer 
Dim lastcol As Integer, thiscol As Integer = CInt(j) 
xlWorkSheet =CType(xlWorkBook.Sheets(ComboBox1.Text),Excel.Worksheet) 
xlWorkSheet.Activate() 
xlApp.Visible = True 


With xlWorkSheet 
xlWorkSheet.Select() 
j = (xlApp.Cells.SpecialCells(2).Row + 1 & vbCrLf & xlApp.Cells.SpecialCells(2).Column) 
lastrow = .Cells(.Rows.Count, 1).End(Excel.XlDirection.xlUp).Row 
lastcol = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToLeft).Column 
For thiscol = j To lastcol 
.Cells(lastrow + 1, thiscol).Value = _ 
xlApp.Sum(.Range(.Cells(1, thiscol), .Cells(lastrow, thiscol))) 
Next 
End With 
je veux utiliser le variable 'j' as integer non string pour que je peux calculer la somme

ucfoutu · Answer

Bonjour,
1) Qu'écrirais-tu en Excel/VBA, depuis Excel/VBA directement (donc hors pilotage depuis VB.Net) pour atteindre ton résultat ?
2) j = (xlApp.Cells.SpecialCells(2).Row + 1 & vbCrLf & xlApp.Cells.SpecialCells(2).Column) 
et
For thiscol = j To lastcol 
me laissent sans voix ! (trop, c'est trop).

pamelatheo · Answer

désolé mais je n'est rien compris

ucfoutu · Answer

Oui ?
Bon ... 
Moi, je vais à la pêche. Les poissons, même lorsque les conditions s'y prêtent mal, sont apparemment plus aptes à comprendre...
Bonne chance.

pamelatheo · Answer

salut 
voici un code modifier 
 Dim lastrow As Integer
        Dim lastcol As Integer
        'Dim x As Integer = CInt(j)

        xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
        xlWorkSheet.Activate()
        xlApp.Visible = True
        
        With xlWorkSheet
            xlWorkSheet.Select()
            j = (xlApp.Cells.SpecialCells(2).Row + 1 & xlApp.Cells.SpecialCells(2).Column)
            lastrow = .Cells(.Rows.Count, 1).End(Excel.XlDirection.xlUp).Row
            lastcol = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToLeft).Column
            MsgBox(j)
            For thiscol As Integer = j To lastcol
                .Cells(lastrow + 1, thiscol).Value = _
                    xlApp.Sum(.Range(.Cells(1, thiscol), .Cells(lastrow, thiscol)))
            Next
        End With
je veux calculer la somme d'un tableau
merci de me aider

ucfoutu · Answer

Je suis vraiment désolé, mais :
- 1) même débutant dans n'importe quel langage que ce soit, il ne me viendrait pas à l'idée de faire une boucle avec j alors que :
j est la concaténation d'une ligne et d'une colonne
!!!!
- 2) la "somme d'un tableau" ne veut rien dire ainsi exprimé
- 3 je ne sais pas si tu es débutant en VB.Net, mais même ainsi : si c'est vrai, il faut que tu saches que dès que l'on pilote une application qui admet l'automation, on doit nécessairement connaître à la presque perfection l'application pilotée.
Si, à la fois, tu ne maîtrises pas les rudiments de l'application qui pilote, d'une part, et que, d'autre part, tu ne maîtrises pas non plus l'application pilotée, tu ne vas nulle part.

Enfin quoi ! Si, comme je le pense, c'est la comme de chaque colonne d'une plage, que tu veux mettre en bas de chaque colonne (t non "la somme d'un tableau" !!!), J ne doit être que le n° d'une colonne, déjà.
Je te laisse là.

ucfoutu · Answer

Tu vas, oui ou non , libérer comme il se doit ? par un clic sur le tag RESOLU au niveau de ton premier message ?
Il faut que l'on te fasse aussi un dessin pour ce geste ?

Calculer la somme à partir d'une cellule variable

6 réponses

Votre réponse