Recherche valeur + somme résultats

[Hervé_88]

Bonjour à tous,

Je cherche une macro qui dans un premier temps recherche une valeur égal à zéro dans 3 colonnes, puis fait la somme des résultats de la période.

Pouvez-vous m'aider sur le sujet

D'avance merci

Cordialement,
Hervé

 

[Hervé_88]

Re : Recherche valeur + somme résultats

Un grand Merci à Papou

code:
Sub Calculer()
Dim x, y As Integer
plage = Sheets("Format").Range("A65000").End(xlUp).Row
deb = 2
For x = 2 To plage
If Cells(x, 11) = 0 And Cells(x, 12) = 0 And Cells(x, 13) = 0 Then
fin = x
Cells(x, 11) = WorksheetFunction.Sum(Tabelle1.Range("K" & deb & ":K" & fin)): mémo1 = mémo1 + Cells(x, 11)
Cells(x, 12) = WorksheetFunction.Sum(Tabelle1.Range("L" & deb & ":L" & fin)): mémo2 = mémo2 + Cells(x, 12)
Cells(x, 13) = WorksheetFunction.Sum(Tabelle1.Range("M" & deb & ":M" & fin)): mémo3 = mémo3 + Cells(x, 13)
deb = x + 1
fin = ""
Cells(plage + 1, 11) = mémo1
Cells(plage + 1, 12) = mémo2
Cells(plage + 1, 13) = mémo3
End If
Next
End Sub