Discussion :

[Niko62]

Bonjour,

voila je crée un classeur contenant X feuilles identiques et les 6 dernières sont différentes. Je voudrais que lorsque que l'on modifie une case sur l'une des X feuilles cela entraîne un recalcul sur les six dernières.

Exemple: si on modifie C2 sur une feuille, on ajoute toutes les valeurs en C2 sur les X feuilles et on affiche le resultat en A1 sur la dernière feuille.

Si quelqu'un peut m'aider d'avance merci.

[Singular]

Pas très clair tout ça...

Tu nous dis que tu veux un recalcul des 6 dernières feuilles et ensuite, dans ton exemple, tu nous parles de la cellule A1 de LA dernière feuille.

Que veux tu exactement?

[Niko62]

c'était pour exemple car en fait selon la cellule modifié sur les X feuilles on modifie une cellule sur l'une des 6 dernières.

Si c'est la case C2 on modifie la dernière, si c'est la case C23 ce sera l'avant dernière.

Ce que je veux c'est uniquement comment faire pour lancer la macro si il y a un changement sur les X feuilles et non sur toutes.
Car la fonction Workbook_SheetChange fonctionne sur toutes les feuilles sans exception ce qui entraine une boucle sans fin selon mon exemple.

[canichon]

C'est qu'il faut juste créer :

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

dans chaque feuille dont tu veux gérer les modifications

[Bigalo]

Bonjour,

Exemple: si on modifie C2 sur une feuille, on ajoute toutes les valeurs en C2 sur les X feuilles et on affiche le resultat en A1 sur la dernière feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NbFeuilles As Integer, i As Integer, Total As Double
    Application.EnableEvents = False
    NbFeuilles = Worksheets.Count
        If Not Intersect(Target, Sh.Range("C2")) Is Nothing Then
                If Sh.Index < NbFeuilles - 5 Then
                        For i = 1 To NbFeuilles - 5
                            Total = Total + Worksheets(i).Range("C2")
                        Next
                End If
        End If
    Worksheets(NbFeuilles).Range("A1") = Total
    Application.EnableEvents = True
End Sub

A placer dans le module ThisWorkbook.

Correspond à ton exemple. Nécessite que toutes les cellules C2 des feuilles concernées soient vides ou aient un contenu numérque. Adaptation nécessaire sinon.

[Singular]

Voici un exemple de classeur qui gère les feuille un peu à la manière que tu décrit. Explores le code (pas très long).