Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
973 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA]Méthode Select... problème

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA]Méthode Select... problème

n°1845192
scaryfan
Apple Inside
Posté le 30-01-2009 à 13:27:29  profilanswer
 

:hello:  
 
J'ai un souci dans une de mes macros sous Excel.
 
Voici le bout de code :
 

Code :
  1. Sheets("A" ).Range("AF10:AF64" ).Copy
  2.     Sheets("A" ).Range("AK10:AK64" ).PasteSpecial xlPasteValues
  3.     Sheets("A" ).Range("AA10:AA64" ).Copy
  4.     Sheets("A" ).Range("AF10:AF64" ).PasteSpecial xlPasteValues
  5.     Sheets("A" ).Range("V10:V64" ).Copy
  6.     Sheets("A" ).Range("AA10:AA64" ).PasteSpecial xlPasteValues
  7.     Sheets("A" ).Range("Q10:Q64" ).Copy
  8.     Sheets("A" ).Range("V10:V64" ).PasteSpecial xlPasteValues
  9.     Sheets("A" ).Range("L10:L64" ).Copy
  10.     Sheets("A" ).Range("Q10:Q64" ).PasteSpecial xlPasteValues
  11.     Sheets("A" ).Range("L10:L64" ).ClearContents
  12.     Sheets("A" ).Range("AH10:AH64" ).Copy
  13.     Sheets("A" ).Range("AM10:AM64" ).PasteSpecial xlPasteValues
  14.     Sheets("A" ).Range("AC10:AC64" ).Copy
  15.     Sheets("A" ).Range("AH10:AH64" ).PasteSpecial xlPasteValues
  16.     Sheets("A" ).Range("X10:X64" ).Copy
  17.     Sheets("A" ).Range("AC10:AC64" ).PasteSpecial xlPasteValues
  18.     Sheets("A" ).Range("S10:S64" ).Copy
  19.     Sheets("A" ).Range("X10:X64" ).PasteSpecial xlPasteValues
  20.     Sheets("A" ).Range("N10:N64" ).Copy
  21.     Sheets("A" ).Range("S10:S64" ).PasteSpecial xlPasteValues
  22.     Sheets("A" ).Range("N10:N64" ).ClearContents
  23.     Sheets("A" ).Select
  24.     Range("A1" ).Select
  25.    
  26.     Sheets("B" ).Range("T11:T48" ).Copy
  27.     Sheets("B" ).Range("V11:V48" ).PasteSpecial xlPasteValues
  28.     Sheets("B" ).Range("R11:R48" ).Copy
  29.     Sheets("B" ).Range("T11:T48" ).PasteSpecial xlPasteValues
  30.     Sheets("B" ).Range("P11:P48" ).Copy
  31.     Sheets("B" ).Range("R11:R48" ).PasteSpecial xlPasteValues
  32.     Sheets("B" ).Range("N11:N48" ).Copy
  33.     Sheets("B" ).Range("P11:P48" ).PasteSpecial xlPasteValues
  34.     Sheets("B" ).Range("L11:L48" ).Copy
  35.     Sheets("B" ).Range("N11:N48" ).PasteSpecial xlPasteValues
  36.     Sheets("B" ).Range("L11:L48" ).ClearContents
  37.     Sheets("B" ).Select
  38.     Range("A1" ).Select


 
Le déroulement de la procédure s'arrête sur la ligne en gras et me dit que la méthode Select de la classe Range a échoué...
Pourtant quand je lance la procédure pas-à-pas, la macro sélectionne bien la feuille B et je ne vois pas pourquoi ça ne fonctionne pas...
 
Quelqu'un a une idée ???
 
 :hello:  


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
mood
Publicité
Posté le 30-01-2009 à 13:27:29  profilanswer
 

n°1845302
jpcheck
Pioupiou
Posté le 30-01-2009 à 16:55:32  profilanswer
 

salut,
essaie plus simplement avec  

Code :
  1. Sheets("B" ).Range("A1" ).Select


---------------
Les fautes d'orthographe coûtent des millions d'euros aux entreprises, marre des fau
n°1845748
scaryfan
Apple Inside
Posté le 01-02-2009 à 10:59:36  profilanswer
 

jpcheck a écrit :

salut,
essaie plus simplement avec  

Code :
  1. Sheets("B" ).Range("A1" ).Select



 
OK, je vais essayer... ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA]Méthode Select... problème

 

Sujets relatifs
Optimisation d'un code VBA pour excelProbleme simpleXML
problème php[VBA] remettre les paramètres pas défaut en cas de plantage ?
[as3] probleme activation scroll moletteProblème de mise en page suite à l insertion d'un formulaire
problème requete sql sous oracleoracle
Problème prévention données, visual Studio 2008 + .net + vista SP1 
Plus de sujets relatifs à : [VBA]Méthode Select... problème


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR