Bonjour,
j'aimerai réaliser une petite maccro pour additionner des cellules d'une feuille en particulier de plusieurs classeurs dans un même fichier.
Je sais qu'on peut faire avec la concaténation, mais le fait est que je ne connaitrais pas le nombre de fichier qu'il y aura. Donc je pense que je n'ai pas le choix et que je vais devoir passer par une macro. Etant débutant je demande votre aide sachant que j'ai un peu chercher et que je butte sur ce problème depuis quelques jours.
Voici ce dont j'ai trouvé :
Option Explicit
Public Function Cumul() As Double
Dim Ws As Worksheet
Dim Total As Double
Application.Volatile
Total = 0
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "TOTAUX" Then
If IsNumeric(Ws.Cells(3, 7)) Then
Total = Total + CDbl(Ws.Cells(3, 7))
End If
End If
Next Ws
Cumul = Total
End Function
Ceci est censé faire la somme d'une cellule des feuilles d'un classeur. Ce qui répond presque à mes attentes. J'ai tenté de modifier la chose mais j'arrive pas à la faire fonctionner. Quelqu'un aurait-il une idée svp?
Merci !
j'aimerai réaliser une petite maccro pour additionner des cellules d'une feuille en particulier de plusieurs classeurs dans un même fichier.
Je sais qu'on peut faire avec la concaténation, mais le fait est que je ne connaitrais pas le nombre de fichier qu'il y aura. Donc je pense que je n'ai pas le choix et que je vais devoir passer par une macro. Etant débutant je demande votre aide sachant que j'ai un peu chercher et que je butte sur ce problème depuis quelques jours.
Voici ce dont j'ai trouvé :
Option Explicit
Public Function Cumul() As Double
Dim Ws As Worksheet
Dim Total As Double
Application.Volatile
Total = 0
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "TOTAUX" Then
If IsNumeric(Ws.Cells(3, 7)) Then
Total = Total + CDbl(Ws.Cells(3, 7))
End If
End If
Next Ws
Cumul = Total
End Function
Ceci est censé faire la somme d'une cellule des feuilles d'un classeur. Ce qui répond presque à mes attentes. J'ai tenté de modifier la chose mais j'arrive pas à la faire fonctionner. Quelqu'un aurait-il une idée svp?
Merci !
