[VBA/Excel]

Gilou -  
Bonjour,

Comment peut-on traduire dans VBA la formule excel "=Somme(D3:D106)", c'est à dire la formule pour additionner les valeurs des cases D3 à D106 ?

Merci
Gilou

4 réponses

  1. Info
    Bonjour, 

    Option Explicit

Sub SommePlage()

    Dim Plage As Range, Cible As Range
    Dim Resul As Double
    
    Set Plage = Range("D3:D106")
    
    For Each Cible In Plage
        Resul = Resul + CDbl(Cible.Value)
    Next Cible
    
    MsgBox Resul
    
End Sub


    Info
    1. melanie1324
      bonjour,

      tu fais outils, macro, enregistrer une nouvelle macro.
      dans ta cellule, tu mets "=somme(d3:D106)".
      Tu arrêtes l'enregistrement.
      Tu vas dans outils macro, vba, et le module 1 contient ta formule en vba
      1. Gilou
        Merci

        Mais sans passer par la macro et une cellule particulière de la feuille, il n'y a pas un moyen de calculer une somme de cellules ?

        Je veux dire, je peux faire une ligne indiquant que la variable V

        V = Range("B3")+...+Range("B106")

        On ne peut pas indiquer plus simplement cette ligne ?