copy paste sur une ligne

[debutant]

allo tout le monde

je ne parviens pas a faire un copy/paste sur VBA sur une ligne je dois la faire en 3 lignes !!


plage_H et plage_V sont des adresses

plage_V = '$AK$2:' & Range('AJ1').End(xlDown).Offset(0, 1).Address
plage_H = '$AK$1:' & Range('IV1').End(xlToLeft).Address

c est a dire ceci , ca fonctionne

Range(plage_H).Copy
Range(plage_V).Select
ActiveSheet.Paste


ceci marche parfaitement mais vu que ma destionation est variable
Range(plage_H).Copy ([AK2:AK13]) ca marche parfaitement

j ai éssayer:
Range(plage_H).Copy (plage_V)
ainsi que
Range(plage_H).Copy ([plage_V])

mais aucun des 2 ne fonctionnes ?!??!?!

quelqu un sais la donne syntaxe ?


merci bcp d avance

 

[pat1545.]

Tu dois définir la zone de destination :
par exemple


Sub cooooopy()
Dim Desti
Set Desti = Sheets('provi').Range('A65000').End(xlUp)(2)
Selection.Copy Desti
End Sub


Patrick

 

[debutant]

non je veux que ma destinnation soit plage_V

 

[pat1545.]

pour moi la plage de destination ne doit pas etre entièrement definie mais uniquement la cellule la plus en haut à gauche

de plus si tes 2 zones ont une taille différente , ça marche pas , essaie en direct dans la feuille

Patrick

 

[debutant]

pat1545. écrit:

pour moi la plage de destination ne doit pas etre entièrement definie mais uniquement la cellule la plus en haut à gauche

de plus si tes 2 zones ont une taille différente , ça marche pas , essaie en direct dans la feuille

Patrick

pourtant quand on écrit un range directement ca marche parfaitement meme s il on une taille différente


Range(plage_H).Copy ([AK2:AK13])

 

[Abel]

Bonsoir débutant, pat1545,

C'est
plage_V = '$AK$2:' & Range('AJ1').End(xlDown).Offset(0, 1).Address

ou
plage_V = '$AK$2:' & Range('AK1').End(xlDown).Offset(0, 1).Address

?

Abel.