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