Somme de cellules du mois précédent

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #2

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... :

Code:

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
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 22 Mars 2011

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Mars 2011

• #4

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.

 

Pièces jointes

• Essai.xls

  26 KB · Affichages: 35
• Essai.xls

  26 KB · Affichages: 37
• Essai.xls

  26 KB · Affichages: 37

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #5

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...

Code:

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #6

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...

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Mars 2011

• #7

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #8

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

Re,

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

Code:

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])"

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Mars 2011

• #9

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

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

 

Vote positif 0 Vote négatif