Ajouter un titre somme [Résolu]

Signaler
Messages postés
31
Date d'inscription
samedi 7 mars 2015
Statut
Membre
Dernière intervention
11 mars 2015
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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.

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
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 !
Messages postés
31
Date d'inscription
samedi 7 mars 2015
Statut
Membre
Dernière intervention
11 mars 2015

merci
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
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.