Somme sur plusieurs colonnes

[plumpony531]

Hello le Forum

Je progresse de jour en jour grace à XLD néanmoins je rencontre encore de petits pb.

Voici donc mon pb

Je ne sais pas bien comment faire pour faire une somme de valeurs présente dans une colonnes sachant qu'il y a plusieurs colonnes pour lesquelles je souhaiterais faire une somme.

Tout les essais sont infructueux jusqu'à présent alors je vous joins un petit ex en fichier joint


Merci bcp


[file name=exemples_20050614142316.zip size=4465]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemples_20050614142316.zip[/file]

 

[PascalXLD]

Bonjour

Je ne sais pas si j'ai bien compris

Tu desires la somme de la colonne a et c ??

si oui

=SOMME(A2:A10;C2:C10)

Si non

je suis bon pour le ZOp 😉 🙂

BOn courage

 

[jeromegmc]

Lors de la sélection des cellules utilise la touche 'ctrl'

:whistle:

Message édité par: jeromegmc, à: 14/06/2005 14:32

 

[plumpony531]

Merci,

Je voudrais en fait faire la somme des colonnes des colonnes a et c

En fait j'ai une application en VBA et je souhaiterais faire ca non pas via l'interface excel mais via du code

Merci


Plum'

 

[jeromegmc]

Essaye ça, macro qui somme toutes les cellules de la colonne A et B:

Sub somme()
Dim somme
somme = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(65536, 2)))
MsgBox somme
End Sub

A+

 

[2passage]

Bonjour,

Je m'etais amusé à faire ça hier mais un plantage réseau m'a empêxhé de 'livrer'. Cette macro totalise en colonne 4 les nombres des colonnes 1 et 3 dans la selection courante (n lignes).

Private Sub CommandButton1_Click()
Dim origL, origC As Integer
origL = ActiveWindow.RangeSelection.Row
origC = ActiveWindow.RangeSelection.Column

If ActiveWindow.RangeSelection.Columns.Count <> 4 Then
    MsgBox 'Sélection Incorrecte : veuillez selectionner une zone sur 4 colonnes'
    Exit Sub
End If

For i = origL To (origL + ActiveWindow.RangeSelection.Rows.Count - 1)
    Cells(i, origC + 3).Select
    ActiveCell.Value = ActiveCell.Offset(0, -3).Value + ActiveCell.Offset(0, -1).Value
Next i

End Sub

enjoy
😛