(Résolu par Job75) Formules Sommes et Cumul Variables

[sofiacasandra2016]

Bonjour et bonne année à tous,
dans mon fichier ci-joint j'ai 3 onglet.

• dans l'onglet (01-17) je cherche une formule variable dans Q10 comme ceci:

Q10 = la somme de tout les mois de l'année 2017 c'est à dire somme(F10: P10) + F10 de l'onglet (12-17) qui représente janvier de la même année
et cette même formule dans l'onglet (02-17) devient sur P10 :
P10= $E13$ + somme(F10:O10) + F10 (F10 de l'onglet précédent 01-17)
(même chose pour AB10 de l'onglet (01-17) et AA10 de l'onglet (02-17)

• la deuxième formule concerne R10 et AC10 de l'onglet 01-17) :

R10 = $E10$ qui est toujours fixe + la somme de toutes les cellules qui sont avant la colonne R et dont les cellules de la ligne 10 est un mois
c'est a dire R10= $E10$ + somme(F10: P10)

AC10= $E10$ + somme(F10: P10) + somme(S10:AA10) (la formule exclut automatiquement Q10, R10, AB10 car Q9, R9, AB9 n'est pas un mois)

Merci d'avance pour assistance

Cordialement
Sofia

 

[job75]

Re,

La macro Incremente précédente supprime/insère/copie des colonnes entières.

Si l'on veut faire cela uniquement sous la ligne 8 :

Sub Incremente() 'Macro - 15/01/17
Dim w As Worksheet, dat$, maxi&, i%, f$, derlig&
For Each w In Worksheets
  dat = "1-" & w.Name
  If IsDate(dat) Then If CDate(dat) > maxi Then maxi = CDate(dat): i = w.Index
Next
If maxi = 0 Then Exit Sub
Application.Calculation = xlCalculationManual 'évite les recalculs des formules volatiles
Sheets(i).Copy After:=Sheets(i)
With Sheets(i + 1)
  .Name = Format(maxi + 31, "mm-yy")
  .Visible = xlSheetVisible 'si la feuille est masquée
  f = .[F9].Formula
  derlig = .Cells.SpecialCells(xlCellTypeLastCell).Row
  If Month(maxi + 31) < 12 Then
    .Range("F9:F" & derlig).Delete xlToLeft
  Else
    Application.ScreenUpdating = False
    .Range("F9:P" & derlig).Insert xlToRight 'insertion de 11 colonnes pour en faire 14
    .Range("T9:AG" & derlig).Copy .[F9] '14 colonnes
  End If
  .[F9] = f
End With
Application.Calculation = xlCalculationAutomatic 'recalcul de toutes les feuilles
End Sub

Il est préférable que la largeur des colonnes à partir de la colonne F soit toujours la même.

Fichier (2).

A+

 

[sofiacasandra2016]

Bonsoir Job, tout le monde
merci beaucoup c'est exactement ce que je voulais vous êtes un vrai expert
je vais vous casser la tête pour un autre sujet dont j'essaie d'appliquer un code que j'ai trouvé sur ce forum

Cordialement
Sofia

 

[job75]

Bonjour Sofia, le forum,

Pour les cumuls il faut ces formules dans la feuille '12-16' :

- en S10 =$E10+SOMME.SI($R9:R9;"EX*";$R10:R10)

- en AG10 =$E10+SOMME.SI($R9:AF9;"EX*";$R10:AF10)

A+

 

[sofiacasandra2016]

Bonjour Job,
Merci pour la formule concernant le cumul j'avais oublié ça
mais la formule du cumul par exemple pour S10=E10+somme(S10:Q10) et AD10=E10+somme(S10:Q10)+Somme(T10:AB10)
c'est à dire exclure les colonnes EX et cumul de la somme

Cordialement

 

[job75]

Re,

Vous êtes complètement à coté de la plaque et en plus vous créez des références circulaires.

A+

 

[sofiacasandra2016]

re,
désolé je me suis basée sur l'autre classeur,
je rectifie : S10=E10+somme(S10:Q10) et AG10=E10+somme(F10:Q10)+somme(T10:AE10)
il faut exclure les colonnes EX et Cumul

Cordialement

 

[job75]

Re,

Au post #33 je vous ai donné une solution que d'évidence vous ne comprenez pas.

Testez-la en créant toutes les feuilles de 2017, peut-être comprendrez-vous ce qui se passe dans les cellules "Cumul"...

A+

 

[sofiacasandra2016]

re,
la formule prend en considération la colonne EX et cela je ne le veux pas

 

[job75]

Re,

Vous ne comprenez toujours pas car vous ne voulez pas tester.

Chaque formule ne prend en considération que la ou les 2 colonnes EX qui la précède, et les ajoute à E10.

A+

 

[sofiacasandra2016]

re,
au contraire je l'ai testé et j'ai remarqué qu'elle ne prend pas les mois, elle prend juste la colonne EX + la colonne E

 

[job75]

Re

Les colonnes EX prennent tous les mois de chaque année, donc en les utilisant on ajoute bien chaque mois, et une seule fois.

A+

 

[sofiacasandra2016]

re,
et bah non la colonne cumul elle doit prendre E + le reste à réaliser c'est les mois qui reste à partir du mois en cours

 

[job75]

Re,

OK, ce que vous voulez est logique si pour chaque nouvelle feuille on met à jour la cellule E10.

Formule en S10 de '12-16' =$E10+SOMME.SI($E9:Q9;"*-*";$E10:Q10)

Formule en AG10 de '12-16' =$E10+SOMME.SI($E9:AE9;"*-*";$E10:AE10)

A+

 

[sofiacasandra2016]

re,
enfin c'est la formule que je cherchais merci beaucoup Job pour ce joli travail
je m'excuse si je suis obstinée dans mes demandes,
merci aussi à tout les membres qui ont donné répondu sur mon sujet

Cordialement
Sofia

 

[job75]

Bonjour Sofia, le forum,

J'ai bien dit :

OK, ce que vous voulez est logique si pour chaque nouvelle feuille on met à jour la cellule E10.

Alors ne faut-il pas utiliser cette fonction VBA :

Function CumulStade()
Application.Volatile
Dim dat As Date, i%, w As Worksheet
dat = CDate("1-" & Application.Caller.Parent.Name)
If Month(dat) = 12 Then Exit Function 'RAZ
On Error Resume Next 's'il manque des feuilles
For i = 1 To Month(dat)
  Set w = Sheets(Format(DateAdd("m", -i, dat), "mm-yy")) 'mois précédent
  If Not w Is Nothing Then CumulStade = w.[E10] + w.[F10]: Exit Function
Next
End Function

La formule =CumulStade() est entrée en E10 par la macro Incremente.

Fichier (3).

Bonne journée.