Re:Addition avec des valeurs dans d'autres feuille
Bonjour Fanny,Dull et le Forum
Peut étre ce code à adapter
Yves
Salut
Sub result()
Dim result As Integer
Dim Feuille As Variant
Application.ScreenUpdating = False
For Each Feuille In ActiveWorkbook.Sheets
Feuille.Activate
result = result + Range('a1').Value
Next
Sheets('feuil1').Range('a1').Value = result
End Sub
Un peu plus d'explications.
ce code va totaliser tous les chiffres qui ce trouve dans la cellule a1 de toutes tes feuilles et pose le total dans la ( feuil1 cellule a1. )
Message édité par: ziopizza, à: 04/01/2006 13:49