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

exene · 2 Avril 2012

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 · 2 Avril 2012

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 :

Code:

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 · 2 Avril 2012

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

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

exene

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

exene

XLDnaute Accro

Discussions similaires

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

exene

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

exene

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency