Discussion :

[XBlade]

Salut à Toutes et à Tous.
Voilà, quand je clique sur le bouton de commande "Feuille Suivante" cela me cré à la suite une autre feuille de calcul. Je souhaiterais faire un cumul automatique de ma Cellule B5.
Je joint le fichier pour plus de compréhention.
Merci d'avance

[jfontaine]

Bonjour

Je souhaiterais faire un cumul automatique de ma Cellule B5.

Peux tu développer

[mercatog]

Cumul en B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub FeuilleSuivante()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
Range("B1").Formula = "=A1+'" & Sheets(Sheets.Count - 1).Name & "'!B1"
End Sub

Attention quand même lors de la suppression de feuilles, tout le château de sable s'écroule.

[XBlade]

Merci mercatog,
Cela me convient trés bien, il est vrai que ci je supprime une feuille je vais avoir des soucis. Mai c'est pas grave je te remerci.
PS: Peut-on protéger la feuille une fois qu'elle à était créer?
@+

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub FeuilleSuivante()
 
ActiveSheet.Copy after:=Sheets(Sheets.Count)
Range("B1").Formula = "=A1+'" & Sheets(Sheets.Count - 1).Name & "'!B1"
ActiveSheet.Protect Password:="toto", userinterfaceonly:=True
End Sub

[XBlade]

Merci pour ton aide
trés sympa de ta part
@+