Calculer des feuils futurs (Suite)

Salut les Excelists ,

C'est encore moi avec des problèmes à la con,

Voilà, sur mon fichier, je cherche un code VBA pour remplir le tableau de la feuille (Stats) avec les sommes des cellules correspondante (D4, D5 et D6), mais que Excel me cherche seulement les données dans les feuille qui se terminent par (DCtc) et ignore les autres feuilles

Merci d'avance

Bonjour TxAcid,

Donc si j'ai bien compris (en A3 somme des D4, en B3 somme des D5, C3 somme des D6), voici le code qu'il te faut :

Option Base 1

Sub TotalTC()

Dim ws As Worksheet
Dim i%
Dim Somme(3)

For Each ws In Sheets
    If Right(ws.Name, 4) = "CDtc" Then
        For i = 1 To 3
            Somme(i) = Somme(i) + ws.Range("D" & 3 + i).Value
        Next i
    End If
Next ws

Sheets("Stats").Range("A3:C3").Value = Somme

End Sub

Cordialement,

mais si je voulais qu'elle soit exécutée automatiquement au changement de la feuille (Workbook_SheetChange) ?

j'ai essayé Run et call, ça ne marche pas :/

Oui, c'est possible avec, dans le module de feuille "Stats" :

Private Sub Worksheet_Activate()
    Call TotalTC
End Sub

L'évènement SheetChange a lieu lorsqu'un changement (en général ciblé) se produit sur la feuille en question.

J'ai ajouté la macro évènementielle sur le fichier .

Bonne journée,

en fait le problème venais de moi, j'ai mis la macro dans la feuille au lieu de la mettre dans un module

Merci encore :)