Somme au dessus

Bonjour,

Essaie ceci
'----------------
Sub jj()
debutlig = ActiveCell.Row + 1
col = ActiveCell.Column
fin = Cells(Rows.Count, ActiveCell.Column).End(3).Row
If fin >= debutlig Then
resultat = Application.Sum(Range(Cells(debutlig, ActiveCell.Column), Cells(fin, ActiveCell.Column)))
MsgBox resultat
End If
End Sub
'-----------------------

--
Salutations
JJ


"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d934999$0$5431$ba4acef3@reader.news.orange.fr...

Bonsoir,

Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus de où je me trouve.

Merci

Manu

bonjour Manu,

Sub Macro1()
ActiveCell.Formula = _

"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))"
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-30 11:17, Manu a écrit :

Bonsoir,

Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus
de où je me trouve.

Merci

Manu

ou en dur,

Sub Macro2()
début = Cells(1, ActiveCell.Column).Address
fin = ActiveCell.Offset(-1, 0).Address
ActiveCell = Application.Sum(Range(début & ":" & fin))
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-30 12:08, isabelle a écrit :

bonjour Manu,

Sub Macro1()
ActiveCell.Formula = _

"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))"
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-30 11:17, Manu a écrit :

Bonsoir,

Comment puis je dire en VBA fais moi la somme de tout ce qui est au
dessus
de où je me trouve.

Merci

Manu

Pffff
Moi j'ai fait en dessous
Je change mes lunettes
;o)
--
Salutations
JJ


"isabelle" <i@v.org> a écrit dans le message de news: imvkhg$fbk$1@speranza.aioe.org...

bonjour Manu,

Sub Macro1()
ActiveCell.Formula = _
"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))"
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-30 11:17, Manu a écrit :

Bonsoir,

Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus
de où je me trouve.

Merci

Manu

Bonjour Isabelle
Peux-tu m'expliquer, svp, le fonctionnement de ta formule?
Comment XL interprète-t-il cela pour faire la somme à partir de la ligne 1 ?
Je vois que tu te sers de l'adresse d'où tu es, puis ligne-1 .....
NO COMPRENDO ..-(



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
imvkhg$fbk$1@speranza.aioe.org...

bonjour Manu,

Sub Macro1()
ActiveCell.Formula = _

"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))"
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-30 11:17, Manu a écrit :

Bonsoir,

Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus
de où je me trouve.

Merci

Manu

hello jacques,

pour ActiveCell.Formula

ADDRESS(1,COLUMN())
c'est comme
cells(1, ActiveCell.Column)
donc la ligne 1 de la colonne ou on est

et ADDRESS(ROW()-1,COLUMN())
c'est comme
cells(ActiveCell.Row - 1, ActiveCell.Column)
donc la ligne ou on est, moin 1 et la colonne ou on est

isabelle
------------------------------------------------------------------

Le 2011-03-30 13:12, Jacquouille a écrit :

Bonjour Isabelle
Peux-tu m'expliquer, svp, le fonctionnement de ta formule?
Comment XL interprète-t-il cela pour faire la somme à partir de la
ligne 1 ?
Je vois que tu te sers de l'adresse d'où tu es, puis ligne-1 .....
NO COMPRENDO ..-(



Jacquouille

Hello

Voilà pour te dire merci.

<http://www.youtube.com/watch_popup?v=P9Fyey4D5hg>

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
imvos8$qm0$1@speranza.aioe.org...

hello jacques,

pour ActiveCell.Formula

ADDRESS(1,COLUMN())
c'est comme
cells(1, ActiveCell.Column)
donc la ligne 1 de la colonne ou on est

et ADDRESS(ROW()-1,COLUMN())
c'est comme
cells(ActiveCell.Row - 1, ActiveCell.Column)
donc la ligne ou on est, moin 1 et la colonne ou on est

isabelle
------------------------------------------------------------------

Le 2011-03-30 13:12, Jacquouille a écrit :

Bonjour Isabelle
Peux-tu m'expliquer, svp, le fonctionnement de ta formule?
Comment XL interprète-t-il cela pour faire la somme à partir de la ligne 1
?
Je vois que tu te sers de l'adresse d'où tu es, puis ligne-1 .....
NO COMPRENDO ..-(



Jacquouille

Dis, Isabelle, pour savoir où on est, c'est pas plus facile avec un GPS ?


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
imvos8$qm0$1@speranza.aioe.org...

hello jacques,

pour ActiveCell.Formula

ADDRESS(1,COLUMN())
c'est comme
cells(1, ActiveCell.Column)
donc la ligne 1 de la colonne ou on est

et ADDRESS(ROW()-1,COLUMN())
c'est comme
cells(ActiveCell.Row - 1, ActiveCell.Column)
donc la ligne ou on est, moin 1 et la colonne ou on est

isabelle
------------------------------------------------------------------

Le 2011-03-30 13:12, Jacquouille a écrit :

Bonjour Isabelle
Peux-tu m'expliquer, svp, le fonctionnement de ta formule?
Comment XL interprète-t-il cela pour faire la somme à partir de la ligne 1
?
Je vois que tu te sers de l'adresse d'où tu es, puis ligne-1 .....
NO COMPRENDO ..-(



Jacquouille

wow bravo jack, j'en veut un ;-)
isabelle
------------------------------------------------------------------

Le 2011-03-30 15:46, Jacquouille a écrit :

Hello

Voilà pour te dire merci.

<http://www.youtube.com/watch_popup?v=P9Fyey4D5hg>

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

Le 2011-03-30 15:48, Jacquouille a écrit :

Dis, Isabelle, pour savoir où on est, c'est pas plus facile avec un GPS ?

voui, vaudra en fournir un au facteur, j'crois qu'il s'est perdu ;-)
isabelle