[ résolu] Aide Macro a modifier

[filtre69]

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

 

[Mytå]

Re : Aide Macro a modifier

Re le forum

Tu as un espace de trop après "Récap annuel "

If Wsh.Name <> "Récap annuel" And Wsh.Name <> "Données" Then

Mytå

 

[filtre69]

Re : Aide Macro a modifier

Mille et une excuse j'avais pas vu j'ai fais un copier coller de ce que tu avais posté

merci
cordialement
filtre69

 

[pijaku]

Re : Aide Macro a modifier

Bonjour,

J'ai modifier la ligne il me fait une erreur

Vérifie bien l'orthographe du nom des feuilles.... Dans ton code, il y a un espace après Récap annuel, ou pas.....

 

[filtre69]

Re : [ résolu] Aide Macro a modifier

Bonjour pijaku
oui j'ai modifier j'ai enlever l'espace et plus d'erreur.
et j'ai mis résolu

merci

cordialement
filtre69