Resize et stockage de cellules dans une variable range
Bonjour à tous
Je viens vous voir en raison d'un problème que je rencontre actuellement sur un de mes programmes. Le but est de copier une plage de cellule dans un range prévu à l'occasion.
Mes données sont stockées sur une feuille, pour simplification j'ai mis un raccourci dessus: fwd
Mes données de la feuille fwd sont différentes sur chaque ligne.
Le but étant donc de copier les données données de la feuille fwd, à partir de la cellule (3,2) et jusqu'à la cellule (15,14)
(j'ai remplacé mes variables par des chiffres, mais en réalité il ne s'agit pas toujours de la cellule (3,2))
Ces données sont placées dans un range, pour vérifier la copie, je place une des colonnes de mon range ainsi obtenu sur une autre feuille.
Voici mon code :
Set rng = fwd.Cells(3, 2).Resize(12, 12)
Sheets("Feuil2").Cells(1, 1).Resize(12, 1) = rng(columnindex:=1)Le problème que cela me retourne sur ma Feuil2 bel et bien une colonne de 12 valeurs, mais IDENTIQUES, autrement dit je n'ai pas les valeurs de mes colonnes, mais simplement la première valeur copiée 12 fois, donc en l’occurrence la valeur de fwd.cells(3,2). Je ne comprend pas pourquoi cela se produit malgré le resize :/
Merci d'avance pour votre aide
Ps: j'ai également essayé avec le code suivant :
With ThisWorkbook.Sheets("Total Returns 1 months FWD")
Set rng = Range(.Cells(3, 2), .Cells(15, 14))
End With
Sheets("Feuil2").Cells(1, 1).Resize(12, 1) = rng(columnindex:=1)Bonjour
Si j'ai bien compris essaie comme ceci :
Set Rng = fwd.Cells(3, 2).Resize(12, 12)
Rng.Copy Sheets("Feuil2").Cells(1, 1)Cordialement
Niquel, merci beaucoup
(une idée juste de pourquoi ça faisait ça ou ?)