Discussion :

[gexk5]

Bonjour, le forum
Tout nouveau inscrit, pouvez vous m'aider?
Je voudrait reporter des valeurs d'une feuille sur une autre feuille , exclusivement par macro, mon fichier est deja bien avancé, mais je doit reprendre des valeurs sur deux feuilles differentes!!!!
Je joint un fichier pour plus d'explication

Merci d'avance a ceux qui s'interesserons a mon problème

[casefayere]

Bonsoir,

Une approche pour tes reports, pour ce que j'ai compris de ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
Dim plage As Range, x As Integer
Set plage = Sheets("export").Range("d2:f" & Range("d65000").End(xlUp).Row)
For x = 5 To Sheets("Zone 1_S01").Range("a65000").End(xlUp).Row
Sheets("Zone 1_S01").Range("h" & x) = Application.WorksheetFunction.SumIf(plage.Columns(1), Sheets("Zone 1_S01").Range("a" & x), plage.Columns(3))
Next x
 
End Sub

meme principe pour la feuille "zone 2"

bonne nuit

[gexk5]

merci pour ta reponse, je teste car la c'est du lourd.
@+