copier coller transposé ??

[Evelynetfrancois]

bonjour à tous
je dois surement mal m'y prendre
cette macro marche toujours une seule fois a l'ouverture du classeur puis , si je la relance elle beugue !!
savez-vous pourquoi ?

Sub ARCHIVES()
Sheets("Feuille de commande").Activate
Range("C5:C38").Select
Selection.Copy
Sheets("ARCHIVES").Activate
ActiveSheet.Unprotect
Rows(Range("a1000").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, Transpose:=True
ActiveSheet.Protect
End Sub


merci pour toute votre aide SI PRECIEUSE
bonne aprés-midi
E et F

 

[Robert]

Re : copier coller transposé ??

Bonjour Evelyne et François, bonjour le forum,

Franchement je ne vois pas non plus. Pourrais-tu être plus précis ? Tu la lance à l'ouverture ave la procédure Open du composant ThisWorkbook ? Tu la relancee ensuite comment ?

Essaie peut-être comme ça :

 Sub ARCHIVES()
Sheets("Feuille de commande").Activate
[B]ActiveSheet[/B].Range("C5:C38").Copy
Sheets("ARCHIVES").Activate
ActiveSheet.Unprotect
[B]ActiveSheet[/B].Rows(Range("a1000").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, Transpose:=True
ActiveSheet.Protect
End Sub

 

[Pierrot93]

Re : copier coller transposé ??

Bonjour EvelyneEtFrancois, Robet

Qu'entends tu par elle bogue, as tu un message d'erreur et sur quelle ligne ou fait elle quelque chose que tu n'attends pas ?

@+

 

[Evelynetfrancois]

Re : copier coller transposé ??

la méthode PasteSpecial de la classe Range a échoué

bonsoir Pierrot93 et Robert

lorsque je lance cette macro , par F8 ou par outil macro ou autre ....
elle fonctionne vraiment une fois sur deux et bloque sur
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, Transpose:=True

je suis bien desemparé............

E et F

 

[Evelynetfrancois]

Re : copier coller transposé ??

re ..............j'avance LOL

Si je supprime
ActiveSheet.Unprotect
et
ActiveSheet.Protect
et bien sur ,je travail sur une feuille non protegé
tout rentre en ordre ????????

Alors comment laisser cette feuille protegée avant et aprés le passage de ma macro ?

merci pour vos idées
E et F

 

[Pierrot93]

Re : copier coller transposé ??

Re EvelyneEtFrancaois

Je viens de tester sur Excel 2000, oui effectivement je comprends rien, une fois sur 2 ca bogue, par contre si on enleve les codes unprotect et protect ca marche...

Peut être dans ce cas protéger à l'ouverture par code avec l'argument "UserInterfaceOnly" à "True".

Je parie que vous avez Excel 2000. Un fil d'hier sur le forum sur "PasteSpecial" et les largeurs de colonnes...

Bon courage et bonne soirée
@+

 

[Pierrot93]

Re : copier coller transposé ??

Oups, j'avais pas raffraichi... @+

 

[Evelynetfrancois]

Re : copier coller transposé ??

re Pierrot et merci de ton soutien

oui effectivement je comprends rien, une fois sur 2 ca bogue, par contre si on enleve les codes unprotect et protect ca marche...


j ai Excel XP ???
Mais au boulot, ce sont d autres versions
mais c est pareil !!!


ça me rassure un peu car je cherche depuis presque 4 h sans rien y comprendre
ça parait pourtant simple non ?

Alors cherchons ....................

E et F

 

[Pierrot93]

Re : copier coller transposé ??

Re EetF,

je suis pas sur du tout qu'il y ait une solution... En attendant tu peux mettre dans l'évènement "open" de ton classeur le code ci dessous :

Private Sub Workbook_Open()

Sheets("ARCHIVES").Protect password:="toto", UserInterfaceOnly:=True

End Sub

bonne soirée
@+

 

[Evelynetfrancois]

Re : copier coller transposé ??

Nickel !!
Je te remercie pour ce coup de main
qui me sort enfin de l impasse ......
mais je trouve que ca reste curieux comme probleme ....

au plaisir de te lire
Bonne soirée
E et F