Somme de cellules du mois précédent

[degap05]

Bonsoir,

Dans un classeur comportant une feuille par mois, j'ai besoin de votre aide pour modifier la macro suivante:

Sub Macro1()
Range("H14").Select
ActiveCell.FormulaR1C1 = "=SUM(FEV!R[1]C+FEV!R[8]C[-5])"
Range("H14").Select
End Sub

Je souhaiterais remplacer le mois désigné dans la formule (ici février), par "le mois précédent".

Merci.

 

[Pierrot93]

Re : Somme de cellules du mois précédent

Bonsoir,

essaye ceci, complète et orthographie comme il se doit les noms des mois, enfin si j'ai bien compris.... car sans plus de détails... :

Dim m As String
m = Choose(Month(Date) - 1, "JAN", "FEV", "MARS", "AVRIL")
ActiveCell.FormulaR1C1 = "=SUM(" & m & "!R[1]C+" & m & "!R[8]C[-5])"

bonne soirée
@+

 

[Gorfael]

Re : Somme de cellules du mois précédent

Salut degap05 et le forum
Difficile de t'aider : FEV n'est pas un nom reconnu par Excel. Il faudrait sans doute passer par un Select Case

Sub Macro1()
    select case month(date)
    case 1
         Range("H14").FormulaR1C1 = "=SUM(DEC!R[1]C+DEC!R[8]C[-5])"
        case 2
         Range("H14").FormulaR1C1 = "=SUM(JAN!R[1]C+JAN!R[8]C[-5])"
        case 3
         Range("H14").FormulaR1C1 = "=SUM(FEV!R[1]C+FEV!R[8]C[-5])"
   case etc...
end select
    End Sub

A+
EDIT : Salut Pierrot, ta solution me semble meilleure

 

[degap05]

Re : Somme de cellules du mois précédent

Bonsoir Gorfael et Pierrot93,

Merci de vos réponses.
Ma tentative d'adaptation n'est pas concluante.

Apparemment, pas de prise en compte du mois précédent...

Je joins un fichier.

Merci encore.

 

[Pierrot93]

Re : Somme de cellules du mois précédent

Re, Bonsoir Gorfael🙂

j'ai modifié ainsi pour gérer le mois décembre... sinon si mois de janvier renvoyait 0...

Dim m As String
m = Choose(Month(DateSerial(Year(Date), Month(Date), 0)), "JAN", "FEV", "MARS", "AVRIL")

pas encore ouvert ton fichier, je regarde un peu plus tard...

 

[Pierrot93]

Re : Somme de cellules du mois précédent

Re,

bon, je viens de tester fonctionne chez moi... après tout dépend la cellule que tu actives....

Apparemment, pas de prise en compte du mois précédent...

c'est quoi pour toi le moi précédent.... par rapport à quoi ???

 

[degap05]

Re : Somme de cellules du mois précédent

La cellule à activer (H15) dans l'exemple sera toujours la même.
Effectivement mon indication du mois précédent a du prêter à confusion. Il aurait mieux valu que je dise de l'onglet précédent ou de la feuille précédente.
Désolé de cette mauvaise indication.
A+

 

[Pierrot93]

Re : Somme de cellules du mois précédent

Re,

oui, c'est plus pareil... essaye ceci :

Dim m As String
If ActiveSheet.Index = 1 Then Exit Sub
m = Sheets(ActiveSheet.Index - 1).Name
Range("H15").FormulaR1C1 = "=SUM(" & m & "!R[1]C+" & m & "!R[8]C[-5])"

 

[degap05]

Re : Somme de cellules du mois précédent

Parfait !!
Merci de ton aide.
Bonne soirée.