copie d'une zone fixe à une zone indexée entre deux onglet

Le
seb
Bonjour,

Je souhaite copier une zone de l'onglet list dans différentes zones de
l'onglet Calculation,
Pour ce faire j'utilise le code suivant,


Sheets("List").Range("A1:A100").Select
Selection.Copy

Zone = Zone + 1
ZoneCopy = "B" & Chr(64 + Zone) & "2" & ":B" & Chr(64 + Zone) &
"100"
Sheets("Calculation").Range(ZoneCopy).Select
Selection.Paste

Seulement j'obtiens une belle erreur 438 (propriété / méthode non gérer par
cet objet)

d'ou vient l'erreur ?


Merci de vos réponses

seb
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #5227551
Bonsoir Seb,
Et en définissant seulement la cellule en haut à gauche de ta plage de
destination ?

ZoneCopy = "B" & Chr(64 + Zone) & "2"
Sheets("List").Range("A1:A100").Copy Sheets("Calculation").Range(ZoneCopy)

Hervé

"seb" 47dd7436$0$7663$
Bonjour,

Je souhaite copier une zone de l'onglet list dans différentes zones de
l'onglet Calculation,
Pour ce faire j'utilise le code suivant,


Sheets("List").Range("A1:A100").Select
Selection.Copy

Zone = Zone + 1
ZoneCopy = "B" & Chr(64 + Zone) & "2" & ":B" & Chr(64 + Zone) &
"100"
Sheets("Calculation").Range(ZoneCopy).Select
Selection.Paste

Seulement j'obtiens une belle erreur 438 (propriété / méthode non gérer
par

cet objet)

d'ou vient l'erreur ?


Merci de vos réponses

seb




seb
Le #5227331
Bonjour Hervé,

Cela ne marche pas,

Correction faite,

Sheets("List").Select
Range("A1:A100").Select
Selection.Copy

Zone = Zone + 1
ZoneCopy = "B" & Chr(64 + Zone) & "2"
Sheets("Calculation").Select
Range(ZoneCopy).Select
Selection.Paste

Et toujours même erreur 438 ! sur execution sur Selection.Paste

Seb

"Hervé"
Bonsoir Seb,
Et en définissant seulement la cellule en haut à gauche de ta plage de
destination ?

ZoneCopy = "B" & Chr(64 + Zone) & "2"
Sheets("List").Range("A1:A100").Copy Sheets("Calculation").Range(ZoneCopy)

Hervé

"seb" 47dd7436$0$7663$
Bonjour,

Je souhaite copier une zone de l'onglet list dans différentes zones de
l'onglet Calculation,
Pour ce faire j'utilise le code suivant,


Sheets("List").Range("A1:A100").Select
Selection.Copy

Zone = Zone + 1
ZoneCopy = "B" & Chr(64 + Zone) & "2" & ":B" & Chr(64 + Zone) &
"100"
Sheets("Calculation").Range(ZoneCopy).Select
Selection.Paste

Seulement j'obtiens une belle erreur 438 (propriété / méthode non gérer
par

cet objet)

d'ou vient l'erreur ?


Merci de vos réponses

seb








Publicité
Poster une réponse
Anonyme