Somme d'une même cellules dans plusieurs feuilles

[Chessnocoma]

Bonjour à vous,

Je suis actuellement sur la création d'un fichier, et je souhaiterais réaliser une macro qui m'écrivent la somme de toutes les cellules F18 de mon classeur dans la cellule B2 de la feuille Récap.

Cela est il possible ?

Merci à vous

 

[Pierrot93]

Re : Somme d'une même cellules dans plusieurs feuilles

Bonjour,

essaye peut être ainsi :

Option Explicit
Sub test()
Dim t As Double, ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "Récap" Then
        If IsNumeric(ws.Range("F18").Value) Then t = t + ws.Range("F18").Value
    End If
Next
Sheets("Récap").Range("B2").Value = t
End Sub

bonne journée
@+

 

[laetitia90]

Re : Somme d'une même cellules dans plusieurs feuilles

bonjour Chessnocoma, l'ami Pierrot🙂🙂
peut être une formule
en b2 de la feuille recap

=somme('*'!f18)

 

[Chessnocoma]

Re : Somme d'une même cellules dans plusieurs feuilles

Bonjour laetitia,
Les deux façon marche parfaitement
Je vous remercie infiniment pour votre rapidité en tout cas.