Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Recopie d'une zone vers une autre

3 réponses
Avatar
MorMic
Bonsoir à tous

Je cherche à recopier le contenu d'une zone d'une feuille vers une autre.

Ai-je le droit d'écrire:

Sheets(1).Range("D1:J8") = Sheets(2).Range("D1:J8")

Si ce n'est pas possible, quelle est la meilleure solution ?

Merci d'avance pour votre aide.

Michel

3 réponses

Avatar
Jacky
Bonsoir,

Ceci copie la zone de la feuille 2 vers la même zone de la feuille 1 y
compris les formules et les formats

'-----------
Sheets(2).Range("D1:J8").Copy Sheets(1).Range("D1")
ou
Sheets("feuil2").Range("D1:J8").Copy Sheets("Feuil1").Range("D1")
'-----------

Ceci ne copie que les valeurs
'---------
Sheets(2).Range("D1:J8").Copy
Sheets(1).Range("D1").PasteSpecial Paste:=xlPasteValues
ou
Sheets("feuil2").Range("D1:J8").Copy
Sheets("feuil1").Range("D1").PasteSpecial Paste:=xlPasteValues
'-------

Salutations
JJ

"MorMic" a écrit dans le message de news:
45897a5a$0$25947$
Bonsoir à tous

Je cherche à recopier le contenu d'une zone d'une feuille vers une autre.

Ai-je le droit d'écrire:

Sheets(1).Range("D1:J8") = Sheets(2).Range("D1:J8")

Si ce n'est pas possible, quelle est la meilleure solution ?

Merci d'avance pour votre aide.

Michel





Avatar
MorMic
Merci Jacky

La solution ne copiant que les valeurs me convient parfaitement.
Mais j'ai un message d'alerte Excel m'indiquant que le Presse-papiers
contient trop d'éléments, etc, etc
ce qui est génant dans mon application.
Y-a-t'il un moyen de ne pas avoir ce message ?

Merci encore pour votre aide.
Michel

"Jacky" a écrit dans le message de news:

Bonsoir,

Ceci copie la zone de la feuille 2 vers la même zone de la feuille 1 y
compris les formules et les formats

'-----------
Sheets(2).Range("D1:J8").Copy Sheets(1).Range("D1")
ou
Sheets("feuil2").Range("D1:J8").Copy Sheets("Feuil1").Range("D1")
'-----------

Ceci ne copie que les valeurs
'---------
Sheets(2).Range("D1:J8").Copy
Sheets(1).Range("D1").PasteSpecial Paste:=xlPasteValues
ou
Sheets("feuil2").Range("D1:J8").Copy
Sheets("feuil1").Range("D1").PasteSpecial Paste:=xlPasteValues
'-------

Salutations
JJ

"MorMic" a écrit dans le message de news:
45897a5a$0$25947$
Bonsoir à tous

Je cherche à recopier le contenu d'une zone d'une feuille vers une
autre.



Ai-je le droit d'écrire:

Sheets(1).Range("D1:J8") = Sheets(2).Range("D1:J8")

Si ce n'est pas possible, quelle est la meilleure solution ?

Merci d'avance pour votre aide.

Michel









Avatar
Jacky
Re...
En fin de macro ou de la copie, ceci:
'--------
Application.CutCopyMode = False
'---------
Salutations
JJ

"MorMic" a écrit dans le message de news:
45898640$0$5084$
Merci Jacky

La solution ne copiant que les valeurs me convient parfaitement.
Mais j'ai un message d'alerte Excel m'indiquant que le Presse-papiers
contient trop d'éléments, etc, etc
ce qui est génant dans mon application.
Y-a-t'il un moyen de ne pas avoir ce message ?

Merci encore pour votre aide.
Michel

"Jacky" a écrit dans le message de news:

Bonsoir,

Ceci copie la zone de la feuille 2 vers la même zone de la feuille 1 y
compris les formules et les formats

'-----------
Sheets(2).Range("D1:J8").Copy Sheets(1).Range("D1")
ou
Sheets("feuil2").Range("D1:J8").Copy Sheets("Feuil1").Range("D1")
'-----------

Ceci ne copie que les valeurs
'---------
Sheets(2).Range("D1:J8").Copy
Sheets(1).Range("D1").PasteSpecial Paste:=xlPasteValues
ou
Sheets("feuil2").Range("D1:J8").Copy
Sheets("feuil1").Range("D1").PasteSpecial Paste:=xlPasteValues
'-------

Salutations
JJ

"MorMic" a écrit dans le message de news:
45897a5a$0$25947$
Bonsoir à tous

Je cherche à recopier le contenu d'une zone d'une feuille vers une
autre.



Ai-je le droit d'écrire:

Sheets(1).Range("D1:J8") = Sheets(2).Range("D1:J8")

Si ce n'est pas possible, quelle est la meilleure solution ?

Merci d'avance pour votre aide.

Michel