Somme si ens & Somme nb ens en vba

[philippe87420]

bonjour

pour alléger mon fichier je souhaiterai mettre fonction en VBA

donc j'ai essayé d'écrire ça le probléme ça me copie ce que j'ai écrie

Code: Tout sélectionner

Sub Macro1()
'
Dim ligne As String

ligne2 = 5
Do While Cells(ligne2, 21).Value <> ""
Cells(ligne2, 22).Value = "Application.WorksheetFunction.COUNTIFS(R21C4:R9978C4,""=cuts"",R21C19:R9978C19,""=""&RC20,R21C18:R9978C18,""<>oui"")"

Cells(ligne2, 23).Value = "Application.WorksheetFunction.SumIfs(R21C14:R9978C14,R21C4:R9978C4,""=cuts"",R21C19:R9978C19,""=""&RC20,R21C18:R9978C18,""<>oui"")"

ligne2 = ligne2 + 1
Loop
End Sub


je joins le fichier et merci d'avance pour votre aide

philippe

 

[Caillou]

Re : Somme si ens & Somme nb ens en vba

Bonjour,

A mon avis ça doit plutôt ressembler à ceci :

 Cells(ligne2, 22).Value = Application.WorksheetFunction.CountIfs(Range("D21:D9978"), "=cuts", Range("S21:S9978"), "=" & Cells(ligne2, 20), Range("R21:R9978"), "<>oui")

Caillou

 

[philippe87420]

Re : Somme si ens & Somme nb ens en vba

bonjour Caillou

merci pour ta réponse pour la "somme nb ens" c'est ok, par contre pour la "somme si ens" aurais tu une solution
j'ai essayé ce code mais j'ai une erreur

[/
Cells(ligne2, 23).Value = Application.WorksheetFunction.SumIfs(Range("R21C14:R9978C14"),Range("R21C4:R9978C4"), "=cuts", Range("R21C19:R9978C19"), "=" & Cells(ligne2, 20), Range("R21C18:R9978C18"), "<>oui")

CODE]

cordialement
philippe

 

[philippe87420]

Re : Somme si ens & Somme nb ens en vba

ok j'ai trouvé
merci pour votre aide