Bonjour
voila j'ai trouver cette macro qui m'intéresse mais je sais pas comment la modifier
c'est pour calculer une cellule sur plusieurs feuille
le but est ranger de Janvier A3 a A12 sur Récap annuel de B2 a B15
Sub test()
Dim t As Double, ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Janvier" Then
If IsNumeric(ws.Range("A3").Value) Then t = t + ws.Range("A3").Value
End If
Next
Sheets("Récap annuel").Range("B2").Value = t
End Sub
------------
Sub Test1()
Dim t As Double, ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Janvier" Then
If IsNumeric(ws.Range("A4").Value) Then t = t + ws.Range("A4").Value
End If
Next
Sheets("Récap annuel").Range("B3").Value = t
End Sub
merci d'avance