ajouter un titre sommeRésolu

Question

Bonjour, 
voici mon code :
 xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
        xlWorkSheet.Activate()
        xlApp.Visible = True

Dim j As Integer
        Dim lastrow As Integer
        Dim lastcol As Integer

With xlWorkSheet
            .Select()
            j = xlApp.Cells.SpecialCells(2).Column
            lastrow = xlApp.Cells.SpecialCells(2).Rows.End(XlDirection.xlDown).Row
            lastcol = xlApp.Cells.SpecialCells(2).Columns.End(XlDirection.xlToRight).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 ajouter le mot "somme" à la fin du tableau

EDIT: Ajout de la coloration syntaxique.

ucfoutu · Answer

Bonjour,
et tu veux l'ajouter dans quelle colonne ? 
Tu connais déjà la ligne, non ?
soit 1 cette colonne ===>> 
cells(1,lastrow).value = "somme"

PS tu as deux autres discussions laissées sans suite ni tag RESOLU ! A ne pas les libérer, tu encombres !

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 ?
Il est incroyable qu'il faille te le répéter à chaque discussion. 
Si tu ne le fais pas (tant pour cette discussion que pour les autres), je te promets que tes nouvelles discussions resteront sans réponse aucune.

Ajouter un titre somme

2 réponses

Votre réponse