Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel copie d'une zone fixe à une zone indexée entre deux onglet

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

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de news:
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




Avatar
seb
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é" a écrit dans le message de news:

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" a écrit dans le message de news:
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