Somme colonnes par VBA

[Ch3ayba]

Bonjour,

Dans l'exemple ci-joint j'aimerai inserer une macro qui me permettera de calculer la somme de chaque colonne, à savoir que dans la réalité dans mon ficher le nombre de lignes et de clonnes sont variable.

Merci d'avance pour votre aide

 

[mth]

Re : Somme colonnes par VBA

Bonjour,

Un petit essai par formule (qui ne te conviendra donc pas si tu veux absolument une macro ? )

En A4 et copiée vers la droite:

=SOMME(INDIRECT(CAR(COLONNE()+64)&"7:"&CAR(COLONNE()+64)&Derlig))

Avec le nom défini Derlig égal à (par le menu Insertion/Nom/Définir) :

=EQUIV(9^9;Feuil1!$A:$A;1)

Bien à toi,

mth

 

[robyostar]

Re : Somme colonnes par VBA

et les valeurs à sommer comence tjr à la ligne 6 ???

 

[Ch3ayba]

Re : Somme colonnes par VBA

merci pour ton aide, le soucis c'est que moi j'ai déjà une grande macro tout ce qu'il me faut c'est inserer la la somme en bas des colonnes vu que le nombre de lignes n'est pas constant. donc par macro ça sera classe .

Merci comme pour ton aide. mais si quelqu'un d'autres à une autre solution je suis pronneur

 

[mutzik]

Re : Somme colonnes par VBA

bonjour,

pourquoi une macro ?
alors qu'une simple formule suffit

 

[Ch3ayba]

Re : Somme colonnes par VBA

et les valeurs à sommer comence tjr à la ligne 6 ???

Oui toujours mais par contre le nombre de valeurs à sommer change

 

[robyostar]

Re : Somme colonnes par VBA

tiens:

Sub sommeColonnes()
Dim FirstRow As Long, LastRow As Long, LastCol As Long
Dim i As Integer

    
    With ActiveSheet
        FirstRow = Range("A1").End(xlDown).Row
    End With

With ActiveSheet
        LastCol = .Cells(FirstRow, .Columns.Count).End(xlToLeft).Column
    End With
    
    For i = 1 To LastCol
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, i).End(xlUp).Row
    End With
    Cells(LastRow + 1, i).Value = WorksheetFunction.Sum(Range(Cells(FirstRow, i), Cells(LastRow, i)))
    

    Next
End Sub

 

[Ch3ayba]

Re : Somme colonnes par VBA

Merci pour ton aide

 

[YANN-56]

Re : Somme colonnes par VBA

Bonjour Ch... (Désolé pas facile ), aux participants, et à ceux qui passeront par ici,

Si tu veux le faire en VBA, ainsi que tu sembles le souhaiter:

Tu crées un Bouton sur ta page avec comme code:

Private Sub CommandButton1_Click()

With ActiveSheet
 L = .Range("A65536").End(xlUp).Row + 1
 
   For i = 1 To .UsedRange.Columns.Count
  .Cells(L, i).Formula = "=SUM(" & .Range(.Cells(7, i), .Cells(21, i)).Address & ")"
   Next i
 
End With
End Sub

Voir exemple joint.

Attention si le nombre de lignes est différent suivant les colonnes!

Amicalement.

Yann

 

[Ch3ayba]

Re : Somme colonnes par VBA

Merci yann c'est top. merci tout le monde

 

[YANN-56]

Re : Somme colonnes par VBA

A la relecture de la discussion;

je ne puis m'empêcher de dire à robyostar que nos méthodes se ressemblent.

(La tienne est un peu plus académique, notamment par la déclaration des variables)

Le plus dans mon Post aura été de dire "Bonjour" et finir par "Amicalement".

Ce n'est qu'un détail, mais il est de bon ton de le pratiquer ici.

Amicalement.

Yann

 

[robyostar]

Re : Somme colonnes par VBA

tout à fait exact yann. et toute mes excuse . c'est juste que je bossait sur plusieurs choses en même temps donc je suis allé au plus court.

je tacherais de penser au salutation.
pour nos methodes il est vrai qu'elles se ressemblent ( mais je prends en compte la différence de ligne par colonne )

amicalement

 

[YANN-56]

Re : Somme colonnes par VBA

Re robyostar

Pas de souci!

Effectivement tu prends en compte la longueur des colonnes.

J'avais pensé à le faire avec "UsedRange.Rows.Count
mais encore faudrait-il que les Sommes soient écrites sur une même ligne.

Il restera à notre ami à gérer suivant ce qu'il souhaite.

Amicalement, et au plaisir de te croiser à nouveau par ici.

Yann

 

[robyostar]

Re : Somme colonnes par VBA

j'étais actif sur un autre forum (vbfrance) et ayant trouver une solution à un de mes pb ici ... je m'installe donc à une prochaine