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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
x = Application.Sum(Range("B2:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C 51"))
Les valeurs alpha ne sont pas prises en considération.
JB http://boisgontierjacques.free.fr/
On 16 avr, 15:09, "Gouap" wrote:
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,
x =
Application.Sum(Range("B2:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C 51"))
Les valeurs alpha ne sont pas prises en considération.
JB
http://boisgontierjacques.free.fr/
On 16 avr, 15:09, "Gouap" <Go...@free.fr> wrote:
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 ?
x = Application.Sum(Range("B2:D29,D32:D33,F27:F33,G27:G36,H27:H29,H32:H33,C50:C 51"))
Les valeurs alpha ne sont pas prises en considération.
JB http://boisgontierjacques.free.fr/
On 16 avr, 15:09, "Gouap" wrote:
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
Daniel.C
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.
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 ?
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
Jacky
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" a écrit dans le message de news:
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 ?
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" a écrit dans le message de news:
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
Jacky
re.. En vba '-------------- total = Application.Sum([plage]) MsgBox total '-------------- -- Salutations JJ
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
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
re..
En vba
'--------------
total = Application.Sum([plage])
MsgBox total
'--------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: eWt2kfW3KHA.1660@TK2MSFTNGP04.phx.gbl...
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 ?
re.. En vba '-------------- total = Application.Sum([plage]) MsgBox total '-------------- -- Salutations JJ
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
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
Gouap
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" a écrit dans le message de news: %
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 ?
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" a écrit dans le message de news: %
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
Daniel.C
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" a écrit dans le message de news: %
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 ?
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" a écrit dans le message de news: %
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
Daniel.C
PS. C'est la différence du nombre de cellules obtenue avec les fonctions NB et NBVAL de Excel. Daniel
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" a écrit dans le message de news: %
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
PS. C'est la différence du nombre de cellules obtenue avec les
fonctions NB et NBVAL de Excel.
Daniel
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 ?
PS. C'est la différence du nombre de cellules obtenue avec les fonctions NB et NBVAL de Excel. Daniel
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" a écrit dans le message de news: %
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 ?
