Discussion :

[just_aka]

Hello,


débutant sous VBA, j'ai un petit problème lorsque j'essaie de copier des donnés d'un tableau nonmé sur une page vers un autre tableau nonmé sur une seconde page. La copie se fait bien, mais la table d'arrivé ne s'agrandit pas et les data reste donc hors champs... voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Inbound4()
 
Sheets("Split Extract").Select
 
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
 
    Worksheets("Split Extract").Range("hazmat[Full Name]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[full Name]")
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
    Worksheets("Split Extract").Range("hazmat[Emp Login]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[Emp Login]")
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
    Worksheets("Split Extract").Range("hazmat[Manager Login]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[manager Login]")
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
    Worksheets("Split Extract").Range("hazmat[Reg/Temp]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[Reg/Temp]")
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
    Worksheets("Split Extract").Range("hazmat[Refresh Month]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[Refresh Month]")
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6, Criteria1:= _
        "I4"
    Worksheets("Split Extract").Range("hazmat[Last Completed Date]").Copy _
    Destination:=Worksheets("IB").Range("hazmat_ib[Last Completed Date]")
 
    ActiveSheet.ListObjects("hazmat").Range.AutoFilter Field:=6
 
Sheets("IB").Select
End Sub

Merci d'avance pour ceux qui prendrons le temps de m'aider

[laurent_ott]

Bonjour,
Si vous utilisez des tableaux structurés, la documentation suivante pourra peut être vous servir pour faire vos copies, et autres traitements :
https://laurent-ott.developpez.com/t...ux-Structures/

Bonne continuation.

[just_aka]

j'ai essayer la méthode de ce tutos (qui est très bien expliqué), mais je tombe sur cette erreur :

J'avoue que je suis dépassé, quand je copie l'ensemble d'un tableau structuré d'une feuille à l'autre, aucun problem, celui-ci se redimentionne seul, mais quand je copie uniquement les colones qui me sont nécessaire, le tableau structuré d'accueil ne s'agrandit pas....

[laurent_ott]

je tombe sur cette erreur...

Bonjour.
Il faut copier le module TS du fichier en pièce jointe de la documentation dans votre projet.
Cordialement.