Bonjour,
voici une macro qui calcul la somme de toutes les cellules D1 de toutes les feuilles de mon classeurs dont le nom est compris entre 0 et 9999 et qui l'affiche dans la feuille "result" dans la cellule A1 :
Sub Macro1()
Dim Somme As Long
Dim Ctr As Integer
Somme = 0
For Ctr = 1 To Sheets.Count
If (Sheets(Ctr).Name > 1000) And (Sheets(Ctr).Name < 9999) Then
Sheets(Ctr).Select
Somme = Somme + ActiveSheet.Range("D1").Value
End If
Next
Sheets("Result").Select
ActiveSheet.Range("A1").Value = Somme
End Sub
Comment dois-je faire pour que cette macro s'execute automatiquement, sans que j'ai besoin de la lancer via un bouton.
Dois-je en faire une fonction? Comment?
Je débute...
Merci
Clav