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

Méthode Select... problème [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 30-01-2009 à 13:27:29    

: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
Reply

Marsh Posté le 30-01-2009 à 13:27:29   

Reply

Marsh Posté le 30-01-2009 à 16:55:32    

salut,
essaie plus simplement avec  

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

Message cité 1 fois

---------------
Les fautes d'orthographe coûtent des millions d'euros aux entreprises, marre des fau
Reply

Marsh Posté le 01-02-2009 à 10:59:36    

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
Reply

Sujets relatifs:

Leave a Replay

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