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