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

job75

XLDnaute Barbatruc

• 15 Janvier 2017

• #31

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 :

Code:

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+

 

Pièces jointes

• Prev comme vous voulez(2).xlsm

  29.6 KB · Affichages: 39

Dernière édition: 15 Janvier 2017

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 15 Janvier 2017

• #32

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #33

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+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 16 Janvier 2017

• #34

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #35

Re,

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

A+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 16 Janvier 2017

• #36

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #37

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+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 16 Janvier 2017

• #38

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #39

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+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 16 Janvier 2017

• #40

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #41

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+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 16 Janvier 2017

• #42

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2017

• #43

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+

 

Vote positif 0 Vote négatif

S

sofiacasandra2016

XLDnaute Nouveau

• 17 Janvier 2017

• #44

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2017

• #45

Bonjour Sofia, le forum,

J'ai bien dit :

job75 à dit:

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

Cliquez pour agrandir...

Alors ne faut-il pas utiliser cette fonction VBA :

Code:

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.

 

Pièces jointes

• Prev comme vous voulez(3).xlsm

  31.6 KB · Affichages: 31

Vote positif 0 Vote négatif