[VBA/Excel]

Gilou -  
 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
  2. melanie1324 Messages postés 1561 Statut Membre 156
     
    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
    0
  3. 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 ?
    0