Excel et copier coller entre feuilles

Question

bonjour,



j ai un petit souci avec excel,



je souhaiterais ne copier que quelques donn&#233;es d'une feuille dans une feuille nouvellement cr&#233;&#233;e

pour cela j'utilise le codee suivant :

 

niuSheet = la nouvelle feuille cr&#233;&#233;e par une proc&#233;dure juste avant celle ci

colonne et rangee indique la derniere cellule &#224; copier





  Sheets("TOTO").Select

  Range("A1:" & Trim(Chr(colonne) + CStr(rangee))).Select

  Selection.Copy

  niuSheet.Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False



  

  or

  Range("A1:" & Trim(Chr(colonne) + CStr(rangee))).Select

  me g&#233;n&#232;re une erreur 1004 et je ne comprends pas pourquoi cela ne fonctionne pas



si vous avez une id&#233;e merci de bien vouloir me r&#233;pondre



Merci d'avance



@+

jhary69 · Answer

salut,

en fait chr( ) te donne la valeur du caractere dont tu passes le code Ascii en param. Le pb c'est que pour avoir A, B, C, ... a partir d'un N&#176; de colonne, il faut ruser car le code Ascii de A c'est 65 et pas 1 

Du coup pour transformer ca &#224; partir de tes N&#176; de colonnes il faut faire :

Chr(Asc("A") + colonne -1) ' (ou Chr(colonne + 64 ))

c'est a dire 

1/ recuperer le code Ascii du A  ==> Asc("A")2/ ajoute a ce code Ascii ton N&#176; de colonne -1 (car la 1ere colonne A Code ascii de A + 0 et pas + 1) 
3/ tout repasser en caractere 

ca donne pour ton code :

 Range("A1:" & Trim(Chr(Asc("A") + colonne - 1) + CStr(rangee))).Select
 
A+ 

Christophe

Excel et copier coller entre feuilles

1 réponse

Discussions similaires