calcul de valeurs du mois précédent

bertgrav · 12 Novembre 2008

bonsoir,

je voudrais par vba faire le calcul de valeurs du mois précédent par rapport à la date du jour

dans une feuille en colonne a j'ai des dates
en colonnes b des valeurs
je voudrais additionner toutes les valeurs du mois précédent
j'ai commencé un code mais je me plante à chaque fois, je ne trouve pas le bon code
dans le cas présent le résultat devrait être 325....

merci pour votre aide

chantal

pierrejean · 12 Novembre 2008

Re : calcul de valeurs du mois précédent

bonjour bertgrav

Teste:

Code:

Sub comptage_pour_mois_precedent()
Dim moisencours As String
Dim moisprecedent As String
moisencours = Format(DateSerial(Year(Date), Month(Date), 1), "mm yyyy")
moisprecedent = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mm yyyy")
For x = Sheets("f").Range("a65536").End(xlUp).Row To 1 Step -1
If [COLOR=Red]Format(Range("a" & x), "mm yyyy") [/COLOR]= moisprecedent Then
y = Range("b" & [COLOR=Red]x[/COLOR]).Value + y
End If
Next
MsgBox y
End Sub

bertgrav · 12 Novembre 2008

Re : calcul de valeurs du mois précédent

ah! PierreJean....

tu me sauves encore une fois

c'est comme d'habitude: rapide et excellent

merci encore

chantal

calcul de valeurs du mois précédent

bertgrav

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

bertgrav

XLDnaute Occasionnel

Discussions similaires