Vba fonction somme si

[Binouf]

Bonjour, bonsoir même 😀

Ma question n'est pas révolutionnaire et même surement très souvent posé et concerne une fonction SUMIF dans VBA...

Je voudrais tout simplement faire :

Sub SOMMEPARDIVISION()

Sheets("Feuil1").Select
Application.WorksheetFunction.SumIf(Range("A1:A7"), "CRDM", Range("B1;B7"))

End Sub

A1:A7 = Contient des noms de division
"CRDM" = Correspond à une division
B1:B7 = Contient les prix à additionner

J'ai le message suivant qui s'affiche :

Erreur de compilation
Attendu:=

...

Je vous remercie pour votre aide, car je galère.....

Benjamin

 

[Regueiro]

Re : Vba fonction somme si

Bonsoir.
Tu veux mettre ou le résultat de ton somme.si

Sub SOMMEPARDIVISION()
 Sheets("Feuil1").Select
 MsgBox Application.WorksheetFunction.SumIf(Range("A1:A7"), "CRDM", Range("B1:B7"))
 End Sub

ou

Sub SOMMEPARDIVISION()
 With Sheets("Feuil1").Activate
 Range("C1") = Application.WorksheetFunction.SumIf(Range("A1:A7"), "CRDM", Range("B1:B7"))
 End With
 End Sub

 

[Robert]

Re : Vba fonction somme si

Bonsoir Binouf et bienvenu, bonsoir le forum,

Essaie comme ça (non testé) :

Sub SOMMEPARDIVISION()
Dim S As Double

With Sheets("Feuil1")
   S = Application.WorksheetFunction.SumIf(.Range("A1:A7"), "CRDM", .Range("B1;B7"))
End With
End Sub

Le résultat sera stocké dans la variable S. À toi de voir après ce que tu en fait...

[Édition]
Bonsoir Regueiro, on s'est croisé...

 

[Regueiro]

Re : Vba fonction somme si

Bonsoir à Tous, Robert
Ta formule ne fonctionne pas.
Erreur

Sub SOMMEPARDIVISION()
Dim S As Double

With Sheets("Feuil1")
S = Application.WorksheetFunction.SumIf(.Range("A1:A7"), "CRDM", .Range("B1;B7"))
End With
End Sub

Range("B1:B7") il faut : et non pas ;
Je pense que tu n'as pas essayer ?

Formule qui fonctionne également si vous lancer la sub
depuis une autre feuille

Sub SOMMEPARDIVISION3()
 Dim S As Double
Set F = Sheets("Feuil1")
    S = Application.WorksheetFunction.SumIf(F.Range("A1:A7"), "CRDM", F.Range("B1:B7"))
    MsgBox S
    F.[C1] = S
 End Sub

A+

 

[Robert]

Re : Vba fonction somme si

Bonsoir le fil, bonsoir le forum,

Je pense que tu n'as pas essayer ?

Tu penses bien ! je l'avais même écrit

(non testé)

...