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 d'une zone de A1 à xx

Copie d'une zone de A1 à xx

4 réponses
Avatar
richard
je souhaite via une macro d=E9terminer une zone de tableau=20
pourl a copier dans un autre onglet

Demarage du tableau en A1 fin en xx
La fin de la feuille =E9volue au fil du temps.

Actions souhait=E9

Selection du tableau de A1 =E0 xx

Copier la zone selectionn=E9 dans un autre onglet =E0 partir=20
de A2

Attention sur la derniere ligne tous les champs non pas=20
forcement une valeur=20

Merci pour votre aide
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
papou
Bonjour Richard
Modifier les noms de feuille :
Sub CopieMoiCa()
Tableau = Feuil1.Range("A1").CurrentRegion.Address
With Range(Tableau)
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
Feuil2.Range("A2")
End With
End Sub

Cordialement
Pascal

"richard" a écrit dans le message de
news:13b901c3fba2$528cf8b0$
je souhaite via une macro déterminer une zone de tableau
pourl a copier dans un autre onglet

Demarage du tableau en A1 fin en xx
La fin de la feuille évolue au fil du temps.

Actions souhaité

Selection du tableau de A1 à xx

Copier la zone selectionné dans un autre onglet à partir
de A2

Attention sur la derniere ligne tous les champs non pas
forcement une valeur

Merci pour votre aide
Avatar
richard
Cela n'a pas marché directement j'ai donc fait cette modif

Sheets("Feuil2").Select
Range("a2").Select
ActiveSheet.Paste

A la place de >Feuil2.Range("A2")

Maintenant ces bon.
Ne me demande pas pourquoi
Merci pour l'aide car le reste du code ma bien aidé
-----Message d'origine-----
Bonjour Richard
Modifier les noms de feuille :
Sub CopieMoiCa()
Tableau = Feuil1.Range("A1").CurrentRegion.Address
With Range(Tableau)
.Offset(1, 0).Resize(.Rows.Count -
1, .Columns.Count).Copy

Feuil2.Range("A2")
End With
End Sub

Cordialement
Pascal

"richard" a écrit
dans le message de

news:13b901c3fba2$528cf8b0$
je souhaite via une macro déterminer une zone de tableau
pourl a copier dans un autre onglet

Demarage du tableau en A1 fin en xx
La fin de la feuille évolue au fil du temps.

Actions souhaité

Selection du tableau de A1 à xx

Copier la zone selectionné dans un autre onglet à partir
de A2

Attention sur la derniere ligne tous les champs non pas
forcement une valeur

Merci pour votre aide


.



Avatar
papou
richard
La ligne Feuil2.Range("A2") soit se trouver sur la même ligne que
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
(juste après Copy et un espace)
Cordialement
Pascal

"richard" a écrit dans le message de
news:139901c3fbad$6c4a0490$
Cela n'a pas marché directement j'ai donc fait cette modif

Sheets("Feuil2").Select
Range("a2").Select
ActiveSheet.Paste

A la place de >Feuil2.Range("A2")

Maintenant ces bon.
Ne me demande pas pourquoi
Merci pour l'aide car le reste du code ma bien aidé
-----Message d'origine-----
Bonjour Richard
Modifier les noms de feuille :
Sub CopieMoiCa()
Tableau = Feuil1.Range("A1").CurrentRegion.Address
With Range(Tableau)
.Offset(1, 0).Resize(.Rows.Count -
1, .Columns.Count).Copy

Feuil2.Range("A2")
End With
End Sub

Cordialement
Pascal

"richard" a écrit
dans le message de

news:13b901c3fba2$528cf8b0$
je souhaite via une macro déterminer une zone de tableau
pourl a copier dans un autre onglet

Demarage du tableau en A1 fin en xx
La fin de la feuille évolue au fil du temps.

Actions souhaité

Selection du tableau de A1 à xx

Copier la zone selectionné dans un autre onglet à partir
de A2

Attention sur la derniere ligne tous les champs non pas
forcement une valeur

Merci pour votre aide


.



Avatar
Oui ça marche est en plus ces plus simple que ma solutions
Merci.
-----Message d'origine-----
richard
La ligne Feuil2.Range("A2") soit se trouver sur la même
ligne que

..Offset(1, 0).Resize(.Rows.Count -
1, .Columns.Count).Copy

(juste après Copy et un espace)
Cordialement
Pascal

"richard" a écrit
dans le message de

news:139901c3fbad$6c4a0490$
Cela n'a pas marché directement j'ai donc fait cette modif

Sheets("Feuil2").Select
Range("a2").Select
ActiveSheet.Paste

A la place de >Feuil2.Range("A2")

Maintenant ces bon.
Ne me demande pas pourquoi
Merci pour l'aide car le reste du code ma bien aidé
-----Message d'origine-----
Bonjour Richard
Modifier les noms de feuille :
Sub CopieMoiCa()
Tableau = Feuil1.Range("A1").CurrentRegion.Address
With Range(Tableau)
.Offset(1, 0).Resize(.Rows.Count -
1, .Columns.Count).Copy

Feuil2.Range("A2")
End With
End Sub

Cordialement
Pascal

"richard" a écrit
dans le message de

news:13b901c3fba2$528cf8b0$
je souhaite via une macro déterminer une zone de tableau
pourl a copier dans un autre onglet

Demarage du tableau en A1 fin en xx
La fin de la feuille évolue au fil du temps.

Actions souhaité

Selection du tableau de A1 à xx

Copier la zone selectionné dans un autre onglet à partir
de A2

Attention sur la derniere ligne tous les champs non pas
forcement une valeur

Merci pour votre aide


.




.