selectionner une plage de valeur et reporter celles ci

Bonsoir à toutes et tous,
J'essaie de réaliser une macro qui me permettrai (entre autre) de
selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs
une par une dans les colonnes (une colone par plage) d'un tableau d'une
feuille non concernée.
J'essaie avec "
for i = 2 to sheet.count
range("R7:R36").select
For each cel in selection
toto = cel.value
sheet("recap").activate
et c'est là que je ne sais pas comment déplacer d'une colone à chaq ue boucle
next i ni injecter les valeurs de "toto" dans ma feuille récap

Merci beaucoup à ceux qui me répondront
--
a la découverte d''excel et VBA ....

Bonsoir,

S'il n'y a pas de formule:

For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy Sheets(1).Cells(7, i)
Next i

S'il y a formule:

For i = 2 To Sheets.Count
Sheets(i).[R7:R36].Copy
Sheets(1).Cells(7, i).PasteSpecial Paste:=xlPasteValues
Next i

JB


On 2 août, 22:56, dreamth <drea...@discussions.microsoft.com> wrote:

Bonsoir à toutes et tous,
J'essaie de réaliser une macro qui me permettrai (entre autre) de
selectionner la plage("r7:r36")de chaque onglet et de reporter ces valeurs
une par une dans les colonnes (une colone par plage) d'un tableau d'une
feuille non concernée.
J'essaie avec "
for i = 2 to sheet.count
range("R7:R36").select
For each cel in selection
toto = cel.value
sheet("recap").activate
et c'est là que je ne sais pas comment déplacer d'une colone à chaque boucle
next i ni injecter les valeurs de "toto" dans ma feuille récap

Merci beaucoup à ceux qui me répondront
--
a la découverte d''excel et VBA ....