OVH Cloud OVH Cloud

Comment faire une somme automatique en VBA

6 réponses
Avatar
infonie
Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment fait-on
en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de plage
grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une plage
de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2 avec
le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez clair.

Merci d'avance

6 réponses

Avatar
Philippe.R
Bonjour infonie,
Ceci fait il ton affaire :

Sub tot_auto()
'MPFE le 28/08/2004
Dim R As Long, N As Long, C As Integer
R = ActiveCell.Row
C = ActiveCell.Column
N = Selection.Rows.Count
Cells(R + N, C).Value = Application.WorksheetFunction.Sum(Selection)
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"infonie" a écrit dans le message de news:cgodp9$u8k$
Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment fait-on
en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de plage
grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une plage
de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2 avec
le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez clair.

Merci d'avance




Avatar
Alain CROS
Bonjour.

Pour inscrire la valeur :

Sub SomAuto1()
[REPERE2].Offset(1) = Application.Sum(Range(Range("REPERE1").Address & _
":" & Range("REPERE2").Address))
End Sub

Pour inscrire la formule :

Sub SomAuto2()
[REPERE2].Offset(1).Formula = "=SUM(" & Range("REPERE1").Address & _
":" & Range("REPERE2").Address & ")"
End Sub

Alain CROS

"infonie" a écrit dans le message de news: cgodp9$u8k$
Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment fait-on
en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de plage
grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une plage
de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2 avec
le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez clair.

Merci d'avance




Avatar
Philippe.R
Bonjour Alain,
Heureusement que certains, comme toi, lisent les questions jusqu'au bout !
;o))))
--
Amicales Salutations

"Alain CROS" a écrit dans le message de news:%
Bonjour.

Pour inscrire la valeur :

Sub SomAuto1()
[REPERE2].Offset(1) = Application.Sum(Range(Range("REPERE1").Address & _
":" & Range("REPERE2").Address))
End Sub

Pour inscrire la formule :

Sub SomAuto2()
[REPERE2].Offset(1).Formula = "=SUM(" & Range("REPERE1").Address & _
":" & Range("REPERE2").Address & ")"
End Sub

Alain CROS

"infonie" a écrit dans le message de news: cgodp9$u8k$
Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment fait-on
en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de plage
grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une plage
de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2 avec
le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez clair.

Merci d'avance








Avatar
EMiLe
Pour la somme entre deux repères, il suffit d'écrire
=somme(repere1:repere2), questions VBA, je crois que tu es servi!!

EMiLe



Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment fait-on
en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de plage
grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une plage
de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2 avec
le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez clair.

Merci d'avance




Avatar
infonie
Je pense avoir la solution du problème grâce à vos différentes contribution.
Merci à tous je vais tester.



"EMiLe" a écrit dans le message de
news:
Pour la somme entre deux repères, il suffit d'écrire
=somme(repere1:repere2), questions VBA, je crois que tu es servi!!

EMiLe



Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment
fait-on


en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de
plage


grace a une REPERE que de nombreux utilisateur du forum m'ont expliquer.
C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par rapport
à la


position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une
plage


de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2
avec


le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez
clair.



Merci d'avance






Avatar
infonie
C'est bon !!! Impeccable la formule d'Alain Cros me convient parfaitement.
Merci à tous ceux qui ont consacré un peu de temps pour m'aider.

Au plaisirs de vous relire

"infonie" a écrit dans le message de
news:cgsb62$r7n$
Je pense avoir la solution du problème grâce à vos différentes
contribution.

Merci à tous je vais tester.



"EMiLe" a écrit dans le message de
news:
Pour la somme entre deux repères, il suffit d'écrire
=somme(repere1:repere2), questions VBA, je crois que tu es servi!!

EMiLe



Bonjour à tous,

Désolé de poluer le forum avec une question de newbies mais comment
fait-on


en VBA pour faire une somme automatique. J'ai une selection qui va par
exemple de A1 à A12 comment faire la somme automatique en A13. ( la
selection n'est pas fixe mais le résultat d'"une selection entre de
plage


grace a une REPERE que de nombreux utilisateur du forum m'ont
expliquer.



C'est pour cette raison que je dois utiliser la fonction somme
automatique. )Avec l'enregistreur de Macro il fait la somme par
rapport



à la
position de la cellule et cela ne me convient pas.

A moins que quelqu'un puisse m'expliquer comment faire la somme d'une
plage


de cellules situé entre 2 repères ( cellule nommée REPERE1 et REPERE2
avec


le menu Insertion/Nom/Définir )

Merci d'avance en espérant que l'exposé de mon problème soit assez
clair.



Merci d'avance