Comment faire la Somme de plusieurs cellules ?

Bonjour,

Existe-t-il en VBA une fa on rapide de faire la somme des valeurs situ es
dans diff rentes cellules pas forcement adjacentes suivantes ? Pour viter
de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J2 0:­J21,L20,L21").Value

Autre question :
En reprenant le m me raisonnement je voudrais m'assurer que toutes ces
cellules contiennent bien une valeur num rique.
Peut on faire une action globale qui me retournerait une erreur par exemp le
si une de ces cellules est une chaine de caract re ?

@+
Philippe

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées
dans différentes cellules pas forcement adjacentes suivantes ? Pour éviter de
faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces
cellules contiennent bien une valeur numérique.
Peut on faire une action globale qui me retournerait une erreur par exemple
si une de ces cellules est une chaine de caractère ?

@+
Philippe

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées dans différentes cellules pas
forcement adjacentes suivantes ? Pour éviter de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces cellules contiennent bien une valeur
numérique.
Peut on faire une action globale qui me retournerait une erreur par exemple si une de ces cellules est une
chaine de caractère ?

@+
Philippe

Bonjour,

Nommer la plage de cellule (insertion/nom/définir)
ensuite dans une cellule
=SOMME(plage)
'----------------
Il est toujours préférable de contrôler la saisie (données /validation) que de vouloir travailler sur une
saisie erronée
Ou alors en vba

Ce n'est qu'un avis....
--
Salutations
JJ


"Gouap" <Gouap@free.fr> a écrit dans le message de news: uJXycYW3KHA.4964@TK2MSFTNGP05.phx.gbl...

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées dans différentes cellules pas
forcement adjacentes suivantes ? Pour éviter de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces cellules contiennent bien une valeur
numérique.
Peut on faire une action globale qui me retournerait une erreur par exemple si une de ces cellules est une
chaine de caractère ?

@+
Philippe

Bonjour.
1.
Somme =
Application.Sum(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
2.
If
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
_
<>
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
Then
MsgBox "cellule(s) non numérique(s)"
End If

Cordialement.
Daniel

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées
dans différentes cellules pas forcement adjacentes suivantes ? Pour
éviter de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces
cellules contiennent bien une valeur numérique.
Peut on faire une action globale qui me retournerait une erreur par
exemple si une de ces cellules est une chaine de caractère ?

@+
Philippe

Bonjour Daniel.C,

Ta 1ere proposition pour faire la somme des cellules fonctionne très bien.
Elle additionne tout ce qui peut s'additionner et ne tient pas compte des
cellules contenant du texte.
Par contre je ne comprends n'arrive pas à faire fonctionner et à comprendre
ta 2em proposition.
La condition est toujours juste que je mette du texte ou des nombres dans les
cellules.

@+
Philippe

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23age2cW3KHA.5880@TK2MSFTNGP02.phx.gbl...

Bonjour.
1.
Somme =
Application.Sum(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
2.
If
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
_
<>
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
Then
MsgBox "cellule(s) non numérique(s)"
End If

Cordialement.
Daniel

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées
dans différentes cellules pas forcement adjacentes suivantes ? Pour éviter
de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces
cellules contiennent bien une valeur numérique.
Peut on faire une action globale qui me retournerait une erreur par
exemple si une de ces cellules est une chaine de caractère ?

@+
Philippe

Le copier coller fou a encore sévi !
Ceci devrait aller mieux :

If
Application.CountA(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
_
<>
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
Then
MsgBox "cellules non numériques"
End If

Daniel

Bonjour Daniel.C,

Ta 1ere proposition pour faire la somme des cellules fonctionne très bien.
Elle additionne tout ce qui peut s'additionner et ne tient pas compte des
cellules contenant du texte.
Par contre je ne comprends n'arrive pas à faire fonctionner et à comprendre
ta 2em proposition.
La condition est toujours juste que je mette du texte ou des nombres dans
les cellules.

@+
Philippe

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23age2cW3KHA.5880@TK2MSFTNGP02.phx.gbl...

Bonjour.
1.
Somme =
Application.Sum(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
2.
If
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
_
<>
Application.Count(Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21"))
Then
MsgBox "cellule(s) non numérique(s)"
End If

Cordialement.
Daniel

Bonjour,

Existe-t-il en VBA une façon rapide de faire la somme des valeurs situées
dans différentes cellules pas forcement adjacentes suivantes ? Pour
éviter de faire :
Total = Range("D27").Value + Range("D27").Value + Range("D27").Value

Par Exemple si je veux calculer toutes ces cellules
Range("D27:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C51,J16,J18,J20:J21,L20,L21").Value

Autre question :
En reprenant le même raisonnement je voudrais m'assurer que toutes ces
cellules contiennent bien une valeur numérique.
Peut on faire une action globale qui me retournerait une erreur par
exemple si une de ces cellules est une chaine de caractère ?

@+
Philippe