D debutant Guest 8 Avril 2005 #1 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
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
P pat1545. XLDnaute Accro 8 Avril 2005 #2 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 Vote positif 0 Vote négatif
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
D debutant Guest 8 Avril 2005 #3 non je veux que ma destinnation soit plage_V Vote positif 0 Vote négatif
P pat1545. XLDnaute Accro 8 Avril 2005 #4 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 Vote positif 0 Vote négatif
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
D debutant Guest 8 Avril 2005 #5 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 Cliquez pour agrandir... pourtant quand on écrit un range directement ca marche parfaitement meme s il on une taille différente Range(plage_H).Copy ([AK2:AK13]) Vote positif 0 Vote négatif
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 Cliquez pour agrandir... pourtant quand on écrit un range directement ca marche parfaitement meme s il on une taille différente Range(plage_H).Copy ([AK2:AK13])
A Abel XLDnaute Accro 9 Avril 2005 #6 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. Vote positif 0 Vote négatif
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.