[VBA] [EXCEL] Problème Collage Spécial - Transposée

Problème Collage Spécial - Transposée [VBA] [EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 13-08-2008 à 11:48:46    

Bonjour,
 
Je n'arrive pas à résoudre un problème. J'ai comparé mon code à plusieurs autres codes présents sur le forum qui me paraît être le même mais ne fonctionne pas.
 
Je voudrais copier/coller des valeurs d'un classeur à un autre en les transposant. Au départ ce sont des lignes et je les voudrais en colonnes. J'utilise pour cela la fonction PasteSpecial
 
Voila mon code :

Code :
  1. xlAux.Workbooks(cheminFichier).Sheets(1).Range(xlAux.Workbooks(cheminFichier).Sheets(1).Cells(13 + nbLigCom, 13), xlAux.Workbooks(cheminFichier).Sheets(1).Cells(13 + nbLigCom, 256)).Copy
  2.         wbResult.Sheets(numeroPage).Activate ' Activation de la page traitée
  3.         wbResult.Sheets(numeroPage).Cells(mesLigDonnees, colAffich).Select
  4.         Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True


 
xlaux est une autre application Excel que j'ai crée qui est caché à l'utilisateur, je récupére les valeurs du classeur que j'ai ouvert à l'intérieur
wbResult est un classeur de la meme application sur laquelle il y a la macro
 
Quant je le fais avec l'enregistrement de macro, ça fonctionne, mais par le programme ça ne marche plus. J'ai vérifié les données copiées qui sont les bonnes et la cellule que je sélectionne est bonne aussi.
J'ai un message d'erreur : La méthode PasteSpécial de la classe Range a échoué
 
Si quelqu'un a une idée, je suis preneur
 
Merci d'avance


Message édité par sixroses le 28-10-2010 à 10:39:31
Reply

Marsh Posté le 13-08-2008 à 11:48:46   

Reply

Marsh Posté le 13-08-2008 à 12:03:01    

Je viens de m'aperçevoir que je n'ai pas accès à la même fonction PasteSpecial que celle dont j'ai besoin (avec la transpose). En fait à partir du classeur que j'utilise je n'ai accès qu'à  
 

Code :
  1. expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)


 
et non

Code :
  1. expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)


que j'aurais souhaiter utiliser.  :cry:  
 
Quelqu'un connait-il une fonction pr transposer des valeurs en ligne -> en colonne d'un classeur à un autre sans utiliser la focntion PasteSpecial

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed