Somme sous condition à reporter

Fermé
elima87 - 18 juil. 2011 à 10:58
Bonjour,
J'ai un soucis sur le calcul de somme par vba.
J'ai essayé de faire une somme sous condition, et de reporter le résultat de cette somme (effectuée pour chaque feuille de mon classeur) sur la dernière feuille de mon classeur.
Les résultats sont égaux à "0" pour toutes mes feuilles.
Pourquoi mon programme ne marche-t'il pas?
Pourriez-vous m'aider? Merci.

Le voici:
Sub sommedonnees()

Dim Datestockee As Date
Dim montanttotal As Variant

Sheets("feuil56").Select
Cells.Select 'on sélectionne toutes les cellules
Selection.ClearContents 'on clean la feuille pour ne pas mélanger les données

Range("A1").Select
Range("B1").Value = "montant" 'on nomme la colonne quantité
Range("C1").Value = "date" 'on nomme la colonne date
montanttotal = 0

For t = 1 To Sheets.Count

Sheets("feuil" & t).Select

Range("A3").Select
If Range("A3").Value <> "" Then
Selection.End(xlDown).Select
lastrow = Selection.Row

Else

Sheets("feuil56").Select
Range("A1").Select
Exit Sub

End If

For k = 3 To lastrow

If Cells(k, 13) <> "" Then

For j = 1 To 12
If Cells(2, j) = "quantite" Then
montant = Cells(k, j).Value
montanttotal = montanttotal + montant
End If
Next j
ElseIf Cells(k, 1) = "VALEUR LIQUIDATIVE" Then
Datestockee = Cells(k, 3).Value
End If
Next k
Sheets("feuil56").Select

lig = t + 1
Cells(lig, 2).Value = montanttotal
Cells(lig, 3).Value = Datestockee

Next t

End Sub