IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA et sommes de colonnes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Inscrit en
    Août 2007
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Août 2007
    Messages : 33
    Par défaut VBA et sommes de colonnes
    Bonjour,
    je sèche honteusement depuis qqtemps sur la fin de ma macro. Il s'agit de faire la somme d'une colonne à la première cellule vide en bas. Cette somme doit se répéter sur 12 colonnes qui se suivent.

    Je suis arrivée à faire la somme de la première colonne, mais je n'arrive pas à faire la boucle qui me permettrait de continuer sur les 11 autres.

    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Formule = "=SUM(AU2: AU" & Nbligne & ")"
    Sheets("feuil2").Range("AU" & Nbligne + 1).Value = Formule
    (je commence la somme à partir de la colonne AU jusqu'à la colonne BF)

    Quelqu'un pourrait il m'aider?

    Merci d'avance

  2. #2
    Membre Expert Avatar de wilfried_42
    Homme Profil pro
    Auto-entrepreneur
    Inscrit en
    Novembre 2006
    Messages
    1 427
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Auto-entrepreneur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 427
    Par défaut
    bonjour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("feuil2").Range("AU" & Nbligne + 1).Formula = Formule

  3. #3
    Membre averti
    Femme Profil pro
    Inscrit en
    Août 2007
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Août 2007
    Messages : 33
    Par défaut
    Merci pour ta réponse wilfried, cela marche bien aussi

    Mais ce qui me bloque le plus c'est d'incrémenter mes colonnes, c'est à dire faire une boucle (donc remplacer AU par Col ou qqchose comme ça) qui me permettrait d'aller de AU à BF.

    Est ce que tu aurais une idée?

    J'ai oublié de préciser que Nbligne renvoie le nombre de ligne remplie sur la feuille2

  4. #4
    Membre chevronné

    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    453
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 453
    Par défaut
    Essayes ça, en ajoutant le Dim rng As Range au début de ta macro.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim rng As Range
     
        Formule = "=SUM(AU2: AU" & Nbligne & ")"
        Set rng = Sheets("feuil2").Range("AU" & Nbligne + 1)
        rng.Value = Formule
        rng.Copy
        Set rng = rng.Offset(0, 1).Resize(1, 11)
        rng.PasteSpecial

  5. #5
    Membre averti
    Femme Profil pro
    Inscrit en
    Août 2007
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Août 2007
    Messages : 33
    Par défaut
    ça marche nickel! MERCI!


  6. #6
    Membre Expert Avatar de wilfried_42
    Homme Profil pro
    Auto-entrepreneur
    Inscrit en
    Novembre 2006
    Messages
    1 427
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Auto-entrepreneur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 427
    Par défaut
    re:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    sub somme_col()
    dim i as integer, ligne as long
    for i = range("AU2").column to range("BF2").column
             ligne = sheets("Feuil2").cells(rows.count,i).end(xlup).row
             Formule = "=SUM(" & cells(2,i).address & ":" & cells(ligne,i).address & ")"
             Sheets("feuil2").cells(ligne+1,i).formula = Formule
    next i
    end sub
    Mais je suis certain de ne pas avoir tout compris

  7. #7
    Membre chevronné
    Inscrit en
    Janvier 2008
    Messages
    483
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 483
    Par défaut
    Bonsoir

    Faire la somme au dessous des colonnes ( AU à BF )
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub SumCol()
        For i = 47 To 58
                    Range(Cells(Rows.Count, i).End(xlUp).Address)(2) _
                    = Application.WorksheetFunction.Sum( _
                    Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp).Address))
              Next
    End Sub
    Abed_H

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. VBA - macro Somme colonne plusieurs feuilles sur feuille globale
    Par Gamack dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 27/05/2014, 21h22
  2. Somme de colonne comme sur Sql Server
    Par Soulama dans le forum Requêtes et SQL.
    Réponses: 8
    Dernier message: 16/06/2010, 13h51
  3. [VBA][Excel] Nom de colonne a partir du numéro
    Par ddams dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/01/2006, 09h43
  4. [VBA-E] somme d'une plage dynamique
    Par Ania dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 30/11/2005, 21h58
  5. [VBA Excel]Somme
    Par ed_dexia dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 21/10/2005, 15h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo