Sujet Précédent Sujet Suivant

Feuilles Excel

Fermé
Shaka - 18 déc. 2013 à 17:37
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 - 18 déc. 2013 à 18:24
Bonjour,

Je voulait savoir si il est possible que faire un report automatique d'une somme à la création d'une nouvelle fenêtre ?!

Exemple:

Feuille 1 - J11 =X
Feuille 2 - J10 = J11 de la feuille 1

J'aimerai pouvoir créer Feuille 3 - J10 = J11 de la feuille 2 etc... mais que la formule ce fasse d'elle même à la création de la nouvelle feuille

J'espère avoir réussit a me faire comprendre :-/

Merci d'avance pour votre réponse.

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
18 déc. 2013 à 18:24
Bonjour,

code a mettre dans VBA thisworbook.

Ai mis du code pour tester suppression du dernier onglet ajouté, mais pas pour un onglet supprimé a travers. 

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Great_Num As Integer, Num_sheets As Integer, wsh As Worksheet
    
    'init plus grand numero feuille
    Great_Num = 0
    
    'boucle sur tous les onglets
    For Each wsh In ThisWorkbook.Worksheets
        'extrait numero feuille
        Num_sheets = CInt(Mid(wsh.Name, 6))
        'test si pas onglet ajoute et numero feuille plus grand
        If Num_sheets > Great_Num And wsh.Name <> Sh.Name Then
            'ecriture numero plus grand
            Great_Num = Num_sheets
        End If
    
    Next wsh
    
    'ecriture formule en J10 de l'onglet ajoute
    Worksheets(Sh.Name).Range("J10").FormulaLocal = "='Feuil" & Great_Num & "'!J11"
    
End Sub
0