Discussion :

[Nishruu05]

Bonjour, je débute dans le VBA et j'aimerais faire un calcul de somme.
Néanmoins, j'ai un document Excel avec deux colonnes. La première avec le "Montant des opérations" et la deuxième avec "La date des opérations".

L'idéal serait de pouvoir calculer la somme de toutes les opérations effectuées la même année. Donc en rentrant 2009 par exemple, le programme sélectionnera toutes les cases avec 2009 dans la colonne "Date des opérations" ensuite, il additionnera les cellules correspondantes dans la colonne "Montant des opérations"
Le résultat final sera noté dans une seconde feuille du classeur excel.

Voici le code VBA que j'ai pour l'instant, mais je n'arrive pas à la faire fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub resultat()
 
Dim annee As String
Dim somme As Integer
Dim i As Integer
Dim z As Integer
 
While ThisWorkbook.Worksheets("feuille1").Cells(b, i)
i = i + 1
Wend
 
annee = Mid(Range("bi"), 7, 4)
MsgBox "L'année dérisrée est " & annee
 
If annee = InputBox("L'année dérisrée est : ") Then
Worksheets("Ventes").Range("Di").Select = z
somme = somme + z
End If
 
Worksheets("feuille2").Range("a5").Value = somme
 
End Sub

Pouvez-vous m'aider en me donnant quelques conseils?

En vous remerciant d'avance!

Ps: j'ai mi mon document Excel en pièce jointe pour plus de compréhension