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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème d'incompatibilité de type (erreur 13)

raph_csol

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 :

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

Voici le code la macro en entier

Code :

Sub copie()
Set wssource = Workbooks("2004.xls" ).Sheets("Feuil1" )
Set wsdest = Workbooks("tcd.xls" ).Sheets("Base Sage" )
With wssource
Set plagesource = .Range(.Cells(1, 1), .Cells(.Cells("A65536" ).End(xlUp).Row, 13))
End With
With wsdest
Set plagedest = .Range(.Cells(.Cells("A65536" ).End(xlUp).Row + 1, 1), .Cells(.Cells("A65536" ).End(xlUp).Row + 1, 1))
End With
plagesource.Copy plagedest
End Sub

Merci d'avance pour vos réponses

Publicité

AlainTech

Pas trouvé? Cherche encore!

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!

pelw

Bonjour,

Essaye avec :

Code :

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

Code :

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

pelw

Xian95

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

raph_csol

Salut tout le monde !!

Merci pour vos réponses ça marche super bien, merci beaucoup

Cordialement
raph

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
probleme de requte d insertion	[java & xml] problème d'écriture de ° dans un xml
Probleme d'URL dynamique	problème spécifique de conception d'une base
Probleme Update de mon DataSet	Problème de formulaires...
probleme avec une liste déroulante...[resolu]	[HTML] Gros problème de Checkbox
Problème de positionnement	Problème d'exécution script vbs
Plus de sujets relatifs à : Problème d'incompatibilité de type (erreur 13)

Page générée en 0.036 secondes