Positionner les valeurs retournées par une macro dans une plage déterminée

[exene]

Bonjour,

J'utilise une macro qui fait la somme de plusieurs cellules dans plusieurs onglets. J'aimerais que le résultat soit retournée dans une plage différente des plages de calcul
Plage ou sont additionnées les valeurs = O2:Q12 de chaque onglet
Plage ou serait retournée les valeurs = D59 : F70 de la feuille Bilan

Pas de résultat avec différentes tentatives

Merci

 

[job75]

Re : Positionner les valeurs retournées par une macro dans une plage déterminée

Bonjour exene,

Le plus simple ici est le collage spécial avec addition :

Sub Somme()
Dim w As Worksheet
Application.ScreenUpdating = False
With Sheets("Bilan").[D59:F70] 'à adapter éventuellement
  .ClearContents 'RAZ
  For Each w In Worksheets
    If w.Name <> .Parent.Name Then
      w.[O2:Q13].Copy 'à adapter éventuellement
      .PasteSpecial xlPasteValues, Operation:=xlAdd
    End If
  Next
  Application.CutCopyMode = False
  Application.Goto .Cells, True 'cadrage, facultatif
End With
End Sub

Edit : j'ai mis ce test If w.Name <> .Parent.Name Then, si vous n'en voulez pas enlevez-le...

A+

 

[exene]

Re : Positionner les valeurs retournées par une macro dans une plage déterminée

Bonsoir job75, le forum,

Je vous remercie pour votre aide, la macro fonctionne parfaitement.

Merci encore