Soucis erreur 13 rapport de somme
Résolu
elima87
-
elima87 -
elima87 -
Bonjour,
J'ai des soucis sur un petit programme que j'ai essayé d'écrire.
Le but est de sommer, pour chaque date en colonne 4, l'ensemble des données de la colonne 3 qui correspondent à cette date.
Le programme ne veut pas se lancer.
Pourriez-vous m'aider?
Merci beaucoup!
Le voici:
Sub controle_donnees()
Dim jour() As Date
Sheets("Feuil1").Activate
j = 1
somme = 0
For i = 2 To 28602
Cells(i - 1, 4).Value = hier
If Cells(i, 4).Value <> hier Then
jour = Cells(i, 4).Value
For k = 2 To 28602
If Cells(k, 4).Value = Cells(i, 4).Value Then
If Cells(k, 2).Value <> "Eur Curncy" Then
quantite = Cells(k, 3).Value
End If
End If
somme = somme + quantite
Next
Sheets("Feuil2").Activate
Cells(j, 1).Value = date
Cells(j, 2).Value = somme
j = j + 1
Sheets("Feuil1").Activate
End If
Next
End Sub
J'ai des soucis sur un petit programme que j'ai essayé d'écrire.
Le but est de sommer, pour chaque date en colonne 4, l'ensemble des données de la colonne 3 qui correspondent à cette date.
Le programme ne veut pas se lancer.
Pourriez-vous m'aider?
Merci beaucoup!
Le voici:
Sub controle_donnees()
Dim jour() As Date
Sheets("Feuil1").Activate
j = 1
somme = 0
For i = 2 To 28602
Cells(i - 1, 4).Value = hier
If Cells(i, 4).Value <> hier Then
jour = Cells(i, 4).Value
For k = 2 To 28602
If Cells(k, 4).Value = Cells(i, 4).Value Then
If Cells(k, 2).Value <> "Eur Curncy" Then
quantite = Cells(k, 3).Value
End If
End If
somme = somme + quantite
Next
Sheets("Feuil2").Activate
Cells(j, 1).Value = date
Cells(j, 2).Value = somme
j = j + 1
Sheets("Feuil1").Activate
End If
Next
End Sub
1 réponse
-
Pourquoi ne pas utiliser tout simplement la fonction SOMME.SI ?
Quand on débute en VBA, une très bonne habitude à prendre est de faire systématiquement commencer les modules par :
Option Explicit-
-
Merci beaucoup Patrice.
Là j'ai un nouveau soucis se rapportant au même sujet.
j'ai besoin d'utiliser somme.si (M:M; "<> "" "; G:G) sur 100 feuilles d'un même fichier en reportant ces sommes sur la dernière feuille.
j'ai essayé: cells(1,1).value = "=sumif(M:M, "<> "" ",G:G)", mais ça ne marche pas, j'ai fait une erreur de syntaxe, mais je ne sais pas laquelle....
Pourriez-vous encore m'aider?
Merci!
-
