XL 2013 Copie d'un tableau aux dimensions variables

[Ananas94]

Bonjour,

Je souhaite copier un tableau situé dans l'onglet "Feuil1" et le coller dans un autre onglet (par exemple "Feuil2"). Néanmoins, le nombre de personnes dans mon tableau varie ; ainsi, mon tableau a des dimensions variables.
Serait-il possible de m'aider s'il vous plaît ?
Je vous remercie

Anna

 

[Staple1600]

Bonjour

Fonctionnera en l'état sur ton fichier exemple (et uniquement sur celui-ci)
[Confinement - jour 1 - m3]

Sub copie()
[B6].CurrentRegion.Copy Sheets(2).[A1]
End Sub

[/Confinement - jour 1 - m3]

 

[Ananas94]

Merci beaucoup Staple 1600 ! Néanmoins, je ne souhaite pas spécialement copier la feuille entière, mais juste les cellules du tableau (j'ai d'autres tableaux à côté).
Il me semble qu'il doit se passer quelque chose avec Rows.count mais je peux me tromper !
Merci beaucoup

Anna

 

[Staple1600]

Re

Une petite variante
[Confinement - jour 1 - m4]

Sub test()
'ici on choisit la feuille où se fera le collage
copieB Sheets("Feuil3")
End Sub
Private Sub copieB(FeuilDestination As Worksheet)
[B6].CurrentRegion.Copy FeuilDestination.[A1]
End Sub

[/Confinement - jour 1 - m4]
Suggestion:
ce serait plus simple si ton tableau était un tableau !
(au sens où Excel l'entends -> ListObject

 

[sylvanu]

Bonjour Anna, Staple,
Si les données sont dispersées n'importe où comme en feuil3, sans règles précises
alors une solution barbare mais efficace fonctionne. Voir PJ.

 

[Staple1600]

Re, Bonjour sylvanu

Ton avis sur ma suggestion? (Listobject)
(J'essaie de créer de l’émulation/synergie entre répondeurs )
(cf fil du salon de Calvus)

PS: Il y avait un beau tableau en Feuil1, c'est celui-ci qu'il faut copier, non ?

 

[sylvanu]

Re Staple,
Ou on sait où se trouve le tableau comme en feuil1 et votre solution est optimisée,
ou comme en feuil3 les données sont n'importe où sans zone ou entête spécifique et le problème est d'identifier où ça commence et où ça se termine.
Et comme à l'ouverture du fichier d' Anna, on est sur la feuil3, j'ai supputé que c'était ce schéma à traiter.

 

[Staple1600]

Re

•>sylvanu
Moi, j'ai supputé que la feuille 3 était une "scorie" de test.
Ma question n'était point sur mon code VBA mais sur ma suggestion d'utiliser un Tableau

(Ca commence mal cette histoire d'émulation/synergie )
Heureusement (hélas), on va avoir du temps pour "synergiser" à donf sur XLD pendant quelques jours...

 

[Staple1600]

Re

Donc si on avait un ListObject, on pourrait simplement faire

Sub copie_LO()
Range("MonTableau[#All]").Copy Sheets(2).[A1]
End Sub

•>Ananas94
Un petit tuto sur les tableaux structurés ci-dessous
Tutoriel Tableaux

 

[Staple1600]

Re

•>Ananas94
Je n'avais pas vu ta réponse (message#3)
Donc macro modifiée pour ne copier que les valeurs

Sub copie_LO_bis()
Range("MonTableau[#All]").Copy
Sheets(2).[A1].PasteSpecial xlValues
End Sub

Tu veux donc copier ton tableau à la suite d'un autre ?
(en dessous? et donc sans la ligne d'entête)
C'est le but visé?

 

[Staple1600]

Re

Toujours si on utilise un Tableau (ListObject)

Sub copie_LO_bis()
'recopie sans entêtes en A1, feuille 2
ActiveSheet.ListObjects("MonTableau").DataBodyRange.Copy Sheets(2).[A1]
Application.CutCopyMode = False
End Sub
Sub copie_LO_ter()
'recopie sans entêtes et en valeurs seules
'dans la 1ère cellule vide en colonne 1 de la feuille 2
ActiveSheet.ListObjects("MonTableau").DataBodyRange.Copy
Sheets(2).Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub

NB: J'ai nommé le tableau MonTableau en faisant ceci
Sélection du tableau
Insertion/Tableau/[x] Mon tableau comporte des entêtes
Puis en haut à gauche dans le champ: Nom du tableau
j'ai saisi MonTableau

 

[Dranreb]

Bonjour.

… .CurrentRegion.Copy …

je ne souhaite pas spécialement copier la feuille entière, mais juste les cellules du tableau

Cette réponse incohérente à la proposition de Staple1600 m'amène à vous expliquer ceci :
La méthode CurrentRegion de l'objet Range renvoie un autre objet Range représentant non pas la feuille entière contenant les cellules qu'elle représente, mais celles-ci étendues à la plus petite plage les contenant délimitée par une combinaison de lignes et de colonnes vides. Ça revient à sélectionner la Zone en cours, sous commande Sélectionner les cellules… de la commande Rechercher et sélectionner du groupe Édition du menu Accueil.

 

[Staple1600]

Bonjour Drandreb

Merci pour ces éclaircissements
Il est vrai que ma 1ere réponse était un peu sommaire
(D'autant plus que je n'ai vu que tardivement la réponse d'Anne (message#3)

Et je suis pas sûr qu'elle ait accroché à ma suggestion d'utiliser un Tableau "structuré".

 

[Ananas94]

Bonjour je suis navrée je ne comprends pas vos messages .. je vous remercie tout de même pour votre aide

 

[Staple1600]

Bonjour

Ananas94
Pour comprendre ce dont je parlais, il fallait cliquer sur le lien dans le message#9
Est-ce que tu es allé voir ce tutoriel ?