Problème d'incompatibilité de type (erreur 13)

Problème d'incompatibilité de type (erreur 13) - VB/VBA/VBS - Programmation

Marsh Posté le 08-07-2005 à 14:48:07    

Bonjour, comme dis dans le sujet j'ai un problème d'incompatibilité de type (erreur 13) dans une macro Excel
L'erreur d'apres le deboggeur excel se trouve  

Code :
  1. Set plagesource = .Range(.Cells(1, 1), .Cells(.Cells("A65536" ).End(xlUp).Row, 13))


 
Voici le code la macro en entier

Code :
  1. Sub copie()
  3. Set wssource = Workbooks("2004.xls" ).Sheets("Feuil1" )
  4. Set wsdest = Workbooks("tcd.xls" ).Sheets("Base Sage" )
  6. With wssource
  7. Set plagesource = .Range(.Cells(1, 1), .Cells(.Cells("A65536" ).End(xlUp).Row, 13))
  8. End With
  10. With wsdest
  11. Set plagedest = .Range(.Cells(.Cells("A65536" ).End(xlUp).Row + 1, 1), .Cells(.Cells("A65536" ).End(xlUp).Row + 1, 1))
  12. End With
  14. plagesource.Copy plagedest
  16. End Sub


 
Merci d'avance pour vos réponses

Reply

Marsh Posté le 08-07-2005 à 14:48:07   

Reply

Marsh Posté le 08-07-2005 à 16:54:27    

Si c'était moi, et sans avoir testé, je dirais: enlever le point devant range.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 08-07-2005 à 21:07:05    

Bonjour,
 
Essaye avec :
 

Code :
  1. Set plagesource = .Range(.Cells(1, 1), .Cells(.Range("A65536" ).End(xlUp).Row, 13))


et
 

Code :
  1. Set plagedest = .Range(.Cells(.Range("A65536" ).End(xlUp).Row + 1, 1), .Cells(.Range("A65536" ).End(xlUp).Row + 1, 1))


 
pelw

Reply

Marsh Posté le 08-07-2005 à 22:19:01    

Bonjour, J'ai écrit ainsi et cela marche
     plagesource = Range(Cells(1, 1), Cells(Range("A65536" ).End(xlUp).Row, 13))
Bonne continuation

Reply

Marsh Posté le 11-07-2005 à 09:19:11    

Salut tout le monde !!
 
Merci pour vos réponses ça marche super bien, merci beaucoup
 
Cordialement
raph

Reply

Sujets relatifs:

Leave a Replay

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