Modification de cellules

Version imprimable

24/01/2008, 21h09
Niko62

Modification de cellules

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.
24/01/2008, 22h08
Singular

Pas très clair tout ça... :koi:

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?
25/01/2008, 10h24
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.
25/01/2008, 10h53
canichon

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

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

dans chaque feuille dont tu veux gérer les modifications

Bonjour,

Citation:

Envoyé par Niko62

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:

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.

25/01/2008, 15h39
Singular

1 pièce(s) jointe(s)

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).