Somme si ens & Somme nb ens en vba

philippe87420 · 25 Septembre 2015

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 · 25 Septembre 2015

Re : Somme si ens & Somme nb ens en vba

Bonjour,

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

Code:

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

Caillou

philippe87420 · 25 Septembre 2015

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

Code:

[/
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 · 25 Septembre 2015

Re : Somme si ens & Somme nb ens en vba

ok j'ai trouvé
merci pour votre aide

Somme si ens & Somme nb ens en vba

philippe87420

Guest

Pièces jointes

Caillou

XLDnaute Impliqué

philippe87420

Guest

philippe87420

Guest

Discussions similaires

Somme si ens & Somme nb ens en vba

philippe87420

Guest

Pièces jointes

Caillou

XLDnaute Impliqué

philippe87420

Guest

philippe87420

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency