Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recopie de cellules

recopie de cellules

5 réponses
Avatar
Brat'ac
Bonjour,
(Je débute en vB)

j'ai le code suivant sur un bouton
-----------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
--------------------------
Cela fonctionne, mais recopie les cellules a l'endroit de la cellule active
je voudrais les recopier à partir d'une cellule bien précise j'écris ceci
-------------------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D7").Select
ActiveSheet.Paste
-------------------------------
Et vlan le debuger s'arrete sur la ligne
Range("D7").Select
pourquoi ?
Merci de l'aide
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET
Signaler un problème avec ce contenu

5 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
Xavier POWAGA
il faut préciser avant Range la feuille support (sauf quand c'est celle qui
déclenche la macro)

Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Worksheets("Feuil2").Range("D7").Select
ActiveSheet.Paste

Toutefois il serait plus élégant d'écrire

Range("F4:F10")..Copy Worksheets("Feuil2").Range("D7")


Xavier







"Brat'ac" a écrit dans le message de news:

Bonjour,
(Je débute en vB)

j'ai le code suivant sur un bouton
-----------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
--------------------------
Cela fonctionne, mais recopie les cellules a l'endroit de la cellule
active
je voudrais les recopier à partir d'une cellule bien précise j'écris ceci
-------------------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D7").Select
ActiveSheet.Paste
-------------------------------
Et vlan le debuger s'arrete sur la ligne
Range("D7").Select
pourquoi ?
Merci de l'aide
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le
surlendemain par quelqu'un d'autre.
Pierre PERRET




Avatar
Xavier POWAGA
j'ai mis par erreur un point en trop

Range("F4:F10").Copy Worksheets("Feuil2").Range("D7")

"Xavier POWAGA" a écrit dans le message de news:
43ee0309$0$1729$
il faut préciser avant Range la feuille support (sauf quand c'est celle
qui déclenche la macro)

Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Worksheets("Feuil2").Range("D7").Select
ActiveSheet.Paste

Toutefois il serait plus élégant d'écrire

Range("F4:F10")..Copy Worksheets("Feuil2").Range("D7")


Xavier







"Brat'ac" a écrit dans le message de news:

Bonjour,
(Je débute en vB)

j'ai le code suivant sur un bouton
-----------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
--------------------------
Cela fonctionne, mais recopie les cellules a l'endroit de la cellule
active
je voudrais les recopier à partir d'une cellule bien précise j'écris ceci
-------------------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D7").Select
ActiveSheet.Paste
-------------------------------
Et vlan le debuger s'arrete sur la ligne
Range("D7").Select
pourquoi ?
Merci de l'aide
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le
surlendemain par quelqu'un d'autre.
Pierre PERRET








Avatar
JB
Bonjour,

Range("F4:F10").Copy Sheets("Feuil2").Range("d7")

JB
Avatar
Brat'ac
Xavier POWAGA a exprimé avec précision :
il faut préciser avant Range la feuille support (sauf quand c'est celle qui déclenche la
macro)

Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Worksheets("Feuil2").Range("D7").Select
ActiveSheet.Paste

Toutefois il serait plus élégant d'écrire

Range("F4:F10")..Copy Worksheets("Feuil2").Range("D7")


Xavier


Ok Merci, ça fonctionne

Bien sur la dernière ligne est plus élégante, mais pour l'instant j'apprends avec
l'enregistreur de macro et l'aide alors .... quand je maîtriserais d'avantage


--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET

Avatar
Jacky
Bonjour,
un peu plus court et
avec le bouton dans n'importe quelles feuilles.
De la feuille 1 vers la feuille 2, par exemple:
'----
[feuil1!F4:F10].Copy [Feuil2!d7]
'---------
Salutations
JJ

"Brat'ac" a écrit dans le message de
news:
Bonjour,
(Je débute en vB)

j'ai le code suivant sur un bouton
-----------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
--------------------------
Cela fonctionne, mais recopie les cellules a l'endroit de la cellule
active

je voudrais les recopier à partir d'une cellule bien précise j'écris ceci
-------------------------------
Range("F4:F10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D7").Select
ActiveSheet.Paste
-------------------------------
Et vlan le debuger s'arrete sur la ligne
Range("D7").Select
pourquoi ?
Merci de l'aide
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le
surlendemain

par quelqu'un d'autre.
Pierre PERRET