recopie hori

[al1000]

bonjour,
dans un meme classeur:
je dois recopier des cellules de l'onglet s52 (cellule en vertical)
vers un onglet :recap sem (cellule à recopier en vertical)


voici la macro
'copie
Range("i10:i26").Select

Selection.Copy

Sheets("recap sem").Select
ddate = Date
sem = Format(ddate, "ww", vbMonday, vbFirstFourDays)

Range("c10").Offset(0, sem).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

mais avec cette macro elle recopie sous la sem 52 les chiffres en horizontal


comment faire pour copier la serie d echiffres en vertical?


a+

 

[GillesC]

Re : recopie hori

bonjour
essaye avec transpose=False

 

[Dull]

Re : recopie hori

Salut al1000, le Forum,

si j'ai bien compris

remplace

     Range("c10").Offset(0, sem).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=[B][COLOR=Red]True[/COLOR][/B]

par

     Range("c10").Offset(0, sem).Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=[B][COLOR=Red]False[/COLOR][/B]

Bonne Journée

EDIT: Salut Gilles

 

[al1000]

Re : recopie hori

bonjour,

et merci du conseil

mais maintenant ma macro recopie toujours en semaine 52
pourquoi?

Je souhaiterai qu'une boite de dialogue s'ouvre :
pour me demander qu'elle semaine enregistrer
puis on ouvre l'onglet recap semaine et on recherche la semaine demandee

comment faire?

 

[al1000]

Re : recopie hori

bonjour,
il a t il quelqu'un qui pourrait m'aider?
a+