Discussion :

[frutz]

Bonjour à tous et à toutes.

Je créer ce sujet afin de pouvoir bénéficier de votre aide concernant l'automatisation d'un tableau. Je réalise ce tableau chaque semaine sur un nouveau fichier mais la structure reste la même (seul les données changent). J'ai déjà réussi à effectuer la macro qui consiste à copier le tableau du fichier précédent sur une nouvelle feuille.

Il me reste donc à compléter (automatiquement) ce tableau. Pour compléter ce tableau je dois récupérer pour chaque ligne la valeur correspondante à un tcd d'un autre onglet. Je dois également récupérer les valeurs de plusieurs feuilles mais selon certains critères c'est à dire en appliquant un filtre.


Je ne sais pas si je me fais bien comprendre mais je recherche des procédures qui retourne la valeur à partir d'un tcd, et à partir d'un filtre qu'on applique à certaines feuilles.


Merci pour votre aide

[Igloobel]

Bonjour,

Bonjour à tous et à toutes.
... J'ai déjà réussi à effectuer la macro qui consiste à copier le tableau du fichier précédent sur une nouvelle feuille...

Tu nous montres ce que tu as déjà fait ?

Je pense que tu auras plus d'aides avec plus de détail sur tu tableaux (ils sont fait comment)

A+

[frutz]

Merci igloobel pour ta réponse. Voici le code que j'ai réalisé pour copier le tableau précédent.

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
 
Sub test()
'Cet macro va copier le tableau Recap sur la feuille active.
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
 
'classeur A qui contient la macro
Set wkA = ThisWorkbook
 
'chemin ou se trouve le fichier B
chemin = "U:\Mes documents\"
 
'nom du fichier B
fichier = "L1.xls"
 
'ouvre le fichier B
Workbooks.Open chemin & fichier
 
'met en variable le classeur B
Set wkB = ActiveWorkbook
 
wkB.Sheets("Recap").Copy After:=wkA.Sheets("Clubs")
 
MsgBox ("La feuille est maintenant copiée") 'message pour dire que la feuille est copiée.
 
wkB.Close True 'ferme et enregistre le classeur B
 
End Sub

C'est la première étape que je cherche à faire la suite serait donc à partir de ce tableau copier, pouvoir l'automatiser après sa copie.

Je vous joins un exemple fictif d'un fichier qui reprend la même manip à effectuer, je pense que ma demande sera plus claire.


Merci à vous.

[frutz]

C'est de nouveau moi, j'ai toujours pas réussi à trouver le code pour automatiser mon tableau, je reviens vers vous pour essayer d'obtenir une aide.

Peut-être qu'en passant par une recherche v, ça marcherait pour remplir la première colonne ) partir du TCD.


Au plaisir de vous lire.

[Igloobel]

bonjour,
grace a ton fichier j'ai un peu mieux compris ce que tu veux (enfin je pense)

il me semble qu'il y a un défaut de conception dans tes tableaux. dans ton onglet carton rouge tu affecte une date a un club je pense que tu devrais affecter cette date au joueur (celui qui a un carton rouge pas à l'équipe)

du coup tu te retrouves avec un seul tableau: equipe - joueur - date et c'est un jeu d'enfant de faire un seul TCD qui contient tout.

De plus au niveau maintenance tu n'a juste qu'a rajouter un nouveau joueur qui a un carton rouge et d'actualiser !

tu dis

A+

[frutz]

Merci pour ce retour Igloobel,
l'exemple que j'ai fourni est fictif est n'a pas de sens. Dans mon véritable fichier il y a pas des onglets différents qu'on ne peut pas regrouper dans le tcd. Ce que j'essaie de faire c'est de trouver deux procédures pour compléter ces deux colonnes. L'une se fait à partir d'un tcd et l'autre à partir d'un onglet auquel on applique un filtre.

J'ai commencé ce petit bout de code pour compléter à partir d'une tcd, ça marche pour la première valeure mais ensuite ça coince.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro_tableau()
    Range("C4:E10").Select
    Selection.ClearContents
      Dim Pvt As PivotTable
 
    ' Définit le TCD dans la feuille
     Set Pvt = Worksheets("Tcd").PivotTables("Tableau croisé dynamique1")
    'Renvoie la valeur 'Nombre de joueur', pour le champ 'reference' Lyon
      Var1 = Pvt.GetData("'Nombre de JOUEURS' 'Equipe' 'Lyon' ")
      Worksheets("Tableau").Range("C6").Value = Var1
End Sub

Et donc lorsque je déclare plusieurs variables, ça pose problème. Aurais-tu une idée ?


Au plaisir de te lire !