1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)
Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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 !
Signaler
Messages postés
31
Date d'inscription
samedi 7 mars 2015
Statut
Membre
Dernière intervention
11 mars 2015
merci
Réponse 2 / 2
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.
Répondre Posez votre question