Insertions de feuilles + Somme de celles-ci

[Lone-wolf]

Bonjour le Forum,

je fais un remake de mon ancien fil où Job75 m'avais aidé à ce sujet: deplacer-une-feuille-selon-listes-de-choix.


Dans la PJ, je n'ai pas mis de listes de choix, mais j'ai obtenu le résultat de l'idée que je proposais en faisant un test sur un classeur. Tout est dans le fichier.

Edit: pour les mois: modifiez Feuil2 et 3 par janvier - février. Ensuite dans le code de la feuille:

ActiveSheet.Name = Format(30 * Sheets.Count - 1, "mmmm")

Je vous laisse inserer les codes ainsi que la formule.


A+


Amicalement
Lone-wolf

 

[Lone-wolf]

Re : Insertions de feuilles + Somme de celles-ci

RE à tous,

une variante:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("B2").FormulaLocal = "=SOMME(janvier:février!A1)"
Worksheets.Add Before:=Sheets(Sheets.Count)
ActiveSheet.Select

If Sheets.Count > 13 Then
ActiveSheet.Name = Format(30 * (Sheets.Count - 1), "mmmm yy")
Else
ActiveSheet.Name = Format(30 * (Sheets.Count - 1), "mmmm")
End If
End Sub

Très bon dimanche