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 copie insertion feuil1(range( A1:G1)) dans feuil2(A2:G2)

copie insertion feuil1(range( A1:G1)) dans feuil2(A2:G2)

4 réponses
Avatar
twinley
Bonjour à tous

Je souhaite copier la feuil1 range A1:G1 et l'inserer dans la feuil2 A2:G2 avec un décalage vers le bas des données qui sont dans les colonnes A:

Je me suis inspiré des insertions de lignes, mais je n'ai pas réussi à l'adapter sur un range uniquemen
Les cellules H1, G1, etc ne doivent pas se décaler vers le bas

Merci pour le coup de main

à+
Signaler un problème avec ce contenu

4 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
garnote
Bonjour,

Tu pourrais essayer ceci :

Sub Copier_Décaler()
Worksheets("Feuil2").Rows(2).Insert Shift:=xlDown
Worksheets("Feuil1").Range("A1:G1").Copy Worksheets("Feuil2").Range("A2:G2")
End Sub

Serge

"twinley" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite copier la feuil1 range A1:G1 et l'inserer dans la feuil2 A2:G2
avec un décalage vers le bas des données qui sont dans les colonnes A:G


Je me suis inspiré des insertions de lignes, mais je n'ai pas réussi à
l'adapter sur un range uniquement

Les cellules H1, G1, etc ne doivent pas se décaler vers le bas.

Merci pour le coup de main.

à+


Avatar
garnote
Oublie ça, mal lu la question !

Serge

"garnote" a écrit dans le message de news:
szFtc.28293$
Bonjour,

Tu pourrais essayer ceci :

Sub Copier_Décaler()
Worksheets("Feuil2").Rows(2).Insert Shift:=xlDown
Worksheets("Feuil1").Range("A1:G1").Copy
Worksheets("Feuil2").Range("A2:G2")

End Sub

Serge

"twinley" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite copier la feuil1 range A1:G1 et l'inserer dans la feuil2
A2:G2


avec un décalage vers le bas des données qui sont dans les colonnes A:G

Je me suis inspiré des insertions de lignes, mais je n'ai pas réussi à
l'adapter sur un range uniquement

Les cellules H1, G1, etc ne doivent pas se décaler vers le bas.

Merci pour le coup de main.

à+






Avatar
twinley
Merci d'y avoir jeté un oeil, j'ai fais ce code

Sheets("Graph1").Range("A2:G2").Selec
Selection.Insert Shift:=xlDow
Sheets("Feuil1").Range("A1:F1").Copy Destination:=Sheets("Graph1").Range("A2"

il passe en pas à pas , mais pas en appel de macro dynamique ça bloque sur le première ligne !? Bizarre, et aucun message d'erreur
De plus je souhaite que cette insertion et cette copie se fassent sans quitter la Feuil1, sans selectionnere la feuille Graph1

à+
Avatar
garnote
Essaie ceci :

Sub Copier()
Sheets("Graph1").Range("A2:G2").Insert Shift:=xlDown
Sheets("Feuil1").Range("A1:G1").Copy
Destination:=Sheets("Graph1").Range("A2")
End Sub

Serge

"twinley" a écrit dans le message de
news:
Merci d'y avoir jeté un oeil, j'ai fais ce code :

Sheets("Graph1").Range("A2:G2").Select
Selection.Insert Shift:=xlDown
Sheets("Feuil1").Range("A1:F1").Copy
Destination:=Sheets("Graph1").Range("A2")


il passe en pas à pas , mais pas en appel de macro dynamique ça bloque sur
le première ligne !? Bizarre, et aucun message d'erreur.

De plus je souhaite que cette insertion et cette copie se fassent sans
quitter la Feuil1, sans selectionnere la feuille Graph1.


à+