Microsoft 365 copier coller un tableau

Staple1600

XLDnaute Barbatruc

• 19 Mars 2023

• #2

Bonjour @BER6543 , le fil,

Suggestions/questions au passage
Tu ne souhaites pas utiliser les tableaux structurés ?
Peut-on ne pas utiliser de cellules fusionnées ?

Suggestion
Un seul tableau (on choisit l'année dans une liste déroulante)
(on archive les années précédentes)

PS: Masquer des feuilles ne rend pas le fichier "anonyme"
Mes amitiés à Naelle

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2023

• #3

Re

Exemple de ce que j'évoque
Un tableau sur une feuille
Que ce code recopie à chaque fois qu'on éxécute cette macro

Code:

Sub Copier_Tableau_Bis()
'En utilisant un tableau structuré
Dim col&
col = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("Tableau1[#All]").Copy Cells(1, col)
End Sub

La recopie se fait vers la droite, dans le 1ère colonne vide adjacente
(et les formules s'adaptent automatiquement)

Ci-dessous le tableau initial

Et ici le résultat après la 1ère exécution de la macro

NB: On voit que les formules se sont mises à jour.

PS: Ce type de tableau est créé par Excel en faisant : Insertion/Tableau
En ayant au préalable sélectionné une plage de cellules avec des données et une ligne d'entête.

(facultatif, les entêtes)

 

Dernière édition: 19 Mars 2023

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2023

• #4

Avec cette version, je nomme les copies pour mieux s'y retrouver

VB:

Sub Copier_Tableau_Ter()
'En utilisant un tableau structuré
Dim col&, nLo&
col = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("Tableau1[#All]").Copy Cells(1, col)
nLo = ActiveSheet.ListObjects.Count
ActiveSheet.ListObjects(nLo).Name = "TABLEAU_N" & nLo
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 19 Mars 2023

• #5

Bonjour Bernadette, Staple et ..... Naelle

Juste en passant je rajouterais juste que plus de 650 noms dans le gestionnaire de noms dont les 3/4 inutilisables cela fait beaucoup.

@Phil69970

 

Vote positif 0 Vote négatif

B

BER6543

XLDnaute Nouveau

• 21 Mars 2023

• #6

Bonjour Staple1600​

merci pour ces propositions mais elles ne répondent pas à mon besoin.​

J'ai certainement mal exprimé mon besoin.​

PS: les fichiers non pas été masqué, il était trop lourd le fichier je pensais avoir supprimé certaines feuille.​

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2023

• #7

Bonsoir

@BER6543
Si, si des feuilles étaient masquées
(propriéte Visible réglée sur : xlSheetHidden

Et mon code fait pourtant ceci, non ?
Comme le montre ma copie d'écran

Bonjour, j'ai réalisé un code vba pour copier coller un tableau en respectant la mise en forme et toute les fonctions associées au tableau original.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

BER6543

XLDnaute Nouveau

• 21 Mars 2023

• #8

je l'ai testé et ca ne marche toujours pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2023

• #9

Re

Evidemment que cela fonctionne, sinon pourquoi aurais-je posté ce bout de code ?
Ce n'est qu'un exemple, un test.

Ensuite il te faudra adapter selon ton classeur

Testes ceci sur un classeur vierge et tu verras que cela fonctionne

VB:

Sub Test_OK()
Dim rg As Range
Range("A1:E1", "A2:E15").Formula = Application.Transpose(Array("=""ITEM_""&COLUMN()", "=ADDRESS(ROW(),COLUMN(),4)"))
Range("A2:E15").FillDown: Set rg = Cells(1).CurrentRegion
ActiveSheet.ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Tableau1"
MsgBox "Test de recopie de tableau"
Call Copier_Tableau_Bis
End Sub
Sub Copier_Tableau_Bis()
'En utilisant un tableau structuré
Dim col&
col = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("Tableau1[#All]").Copy Cells(1, col)
End Sub

 

Vote positif 0 Vote négatif

B

BER6543

XLDnaute Nouveau

• 22 Mars 2023

• #10

Staple 1600,

Merci, j'ai testé le code sur un fichier et ca fonctionne super bien.

Cordialement,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2023

• #11

Bonsoir

Merci d'avoir testé.
Donc cela fonctionne

Maintenant, reste à voir si cela peut s'implémenter dans ton projet.

A toi de voir

 

Vote positif 0 Vote négatif

B

BER6543

XLDnaute Nouveau

• 22 Mars 2023

• #12

Staple1600 à dit:

Bonsoir

Merci d'avoir testé.
Donc cela fonctionne

Maintenant, reste à voir si cela peut s'implémenter dans ton projet.

A toi de voir

Cliquez pour agrandir...

Bonsoir ,
oui bien sur je l'ai adapté à une feuille de calcul de mon projet
Encore Merci

 

Vote positif 0 Vote négatif