Bonjour,
J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des
fonctions de base!
Existe t'il une formule pour calculer une somme dans VBA, du style :
toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout
pas passer par une cellule d'une feuille excel (c'est pour cela qu'une
solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des
cellules, mais ca risque de ne pas être très performant en cas de grande
plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le
sujet!
Cordialement
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
Daniel
Bonjour. Il y a peut-êtree plus rusé, mais toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1))) le fait. Cordialement. Daniel "Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement
Bonjour.
Il y a peut-êtree plus rusé, mais
toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1)))
le fait.
Cordialement.
Daniel
"Frédéric" <Frédéric@discussions.microsoft.com> a écrit dans le message de
news: A5CD2148-3BF7-4D86-AA21-D18E01ACB878@microsoft.com...
Bonjour,
J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur
des
fonctions de base!
Existe t'il une formule pour calculer une somme dans VBA, du style :
toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite
surtout
pas passer par une cellule d'une feuille excel (c'est pour cela qu'une
solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble
des
cellules, mais ca risque de ne pas être très performant en cas de grande
plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le
sujet!
Cordialement
Bonjour. Il y a peut-êtree plus rusé, mais toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1))) le fait. Cordialement. Daniel "Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement
Frédéric
Simple... mais efficace! "WorksheetFunction" manquait à mon répertoire! Merci beaucoup pour votre aide. A+
"Daniel" wrote:
Bonjour. Il y a peut-êtree plus rusé, mais toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1))) le fait. Cordialement. Daniel "Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement
Simple... mais efficace!
"WorksheetFunction" manquait à mon répertoire!
Merci beaucoup pour votre aide.
A+
"Daniel" wrote:
Bonjour.
Il y a peut-êtree plus rusé, mais
toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1)))
le fait.
Cordialement.
Daniel
"Frédéric" <Frédéric@discussions.microsoft.com> a écrit dans le message de
news: A5CD2148-3BF7-4D86-AA21-D18E01ACB878@microsoft.com...
Bonjour,
J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur
des
fonctions de base!
Existe t'il une formule pour calculer une somme dans VBA, du style :
toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite
surtout
pas passer par une cellule d'une feuille excel (c'est pour cela qu'une
solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble
des
cellules, mais ca risque de ne pas être très performant en cas de grande
plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le
sujet!
Cordialement
Simple... mais efficace! "WorksheetFunction" manquait à mon répertoire! Merci beaucoup pour votre aide. A+
"Daniel" wrote:
Bonjour. Il y a peut-êtree plus rusé, mais toto = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 1))) le fait. Cordialement. Daniel "Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement
michdenis
Bonjour Frédéric,
2 autres façons de faire :
Dim MyVar As Double MyVar = [sum(FEuil1!A1:A10)]
'ou
Dim Adr As String With Worksheets("Feuil1") Adr = .Name & "!" & Range(Cells(1, 1), Cells(10, 1)).Address MyVar = Evaluate("Sum(" & Adr & ")") End With
Salutations!
"Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement
Bonjour Frédéric,
2 autres façons de faire :
Dim MyVar As Double
MyVar = [sum(FEuil1!A1:A10)]
'ou
Dim Adr As String
With Worksheets("Feuil1")
Adr = .Name & "!" & Range(Cells(1, 1), Cells(10, 1)).Address
MyVar = Evaluate("Sum(" & Adr & ")")
End With
Salutations!
"Frédéric" <Frédéric@discussions.microsoft.com> a écrit dans le message de news:
A5CD2148-3BF7-4D86-AA21-D18E01ACB878@microsoft.com...
Bonjour,
J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des
fonctions de base!
Existe t'il une formule pour calculer une somme dans VBA, du style :
toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout
pas passer par une cellule d'une feuille excel (c'est pour cela qu'une
solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des
cellules, mais ca risque de ne pas être très performant en cas de grande
plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le
sujet!
Cordialement
Dim Adr As String With Worksheets("Feuil1") Adr = .Name & "!" & Range(Cells(1, 1), Cells(10, 1)).Address MyVar = Evaluate("Sum(" & Adr & ")") End With
Salutations!
"Frédéric" <Frédé a écrit dans le message de news:
Bonjour, J'écris pas mal de macros, mais pourtant, j'arrive encore à bloquer sur des fonctions de base! Existe t'il une formule pour calculer une somme dans VBA, du style : toto= somme(range(cells(1,1),cells(10,1))) ?
Je veux uniquement le résultat dans une variable VBA, et ne souhaite surtout pas passer par une cellule d'une feuille excel (c'est pour cela qu'une solution de type Cellule.FormulaLocal = "=somme..." ne me convient pas).
Après, il y a bien sur la possibilité de faire une boucle sur l'ensemble des cellules, mais ca risque de ne pas être très performant en cas de grande plage.
Merci beaucoup à celui ou celle qui pourrait avoir un avis éclairé sur le sujet! Cordialement