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" a écrit dans le message de news: 4d934999$0$5431$
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,
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.
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" a écrit dans le message de news: 4d934999$0$5431$
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
isabelle
bonjour Manu,
Sub Macro1() ActiveCell.Formula = _
"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))" End Sub
Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus de où je me trouve.
Merci
Manu
isabelle
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
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
Sub Macro2() début = Cells(1, ActiveCell.Column).Address fin = ActiveCell.Offset(-1, 0).Address ActiveCell = Application.Sum(Range(début & ":" & fin)) End Sub
Comment puis je dire en VBA fais moi la somme de tout ce qui est au dessus de où je me trouve.
Merci
Manu
Jacquouille
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$
bonjour Manu,
Sub Macro1() ActiveCell.Formula = _
"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))" End Sub
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
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$
bonjour Manu,
Sub Macro1() ActiveCell.Formula = _
"=SUM(INDIRECT(ADDRESS(1,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))" End Sub
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 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
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 ..-(
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 ..-(
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 ..-(
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 ..-(
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
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$
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
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
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 ..-(
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
isabelle
wow bravo jack, j'en veut un ;-) isabelle ------------------------------------------------------------------