macro --> fonction

[clav]

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

 

[clav]

Re : macro --> fonction

désolé pour ce doublon, il semble qu'il y ait eu un bug.
Merci aux administrateurs de supprimer un des messages.