selectionner une plage de valeur et reporter celles ci

Le
dreamth
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 .
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4639391
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
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 ....


dreamth
Le #4639291
Merci de votre réponse JB
Je teste cela dès demain matin
bonne soirée (nuit)
--
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
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 ....







Publicité
Poster une réponse
Anonyme