Discussion :

[Master_x_99]

Bonjour

Le tout parait simple, mais il y a un HIC.

J'ai tout d'abord une feuille fixe au nom "Compilation". dans le classeur "compilation_stats.xlsm"

À l'aide d'une macro provenant du classeur "X", je crée des feuilles aux noms variables dans le classeur "compilation_stats.xlsm"

Je dois récupérer les données des cellules B6 à AL6 des feuilles créées pour les envoyées dans la feuille "compilation" du même classeur.

Dans la feuille "compilation", les données de la première feuille doivent apparaître dans les cellules B6 à AL6. Les données de la seconde feuille doivent apparaitre dans les cellules B7 à AL7 et ainsi de suite.

Je suis un peu à bout de recherche.

Merci encore une fois de votre aide.

[joe.levrai]

Bonjour,

si ta problématique c'est de gérer ces feuilles crées dynamiquement, tu as plusieurs méthodes

en voici une : lors de la création de la feuille dynamique, on l'affecte directement à une variable

Code :

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

1
2
3
4
Sub toto()
    Dim Sh As Worksheet
    Set Sh = ThisWorkbook.Worksheets.Add
End Sub

Ainsi, pour faire ton copier, tu utilisera Sh pour faire référence à la feuille


Ensuite, comment gérer le fait qu'il ny' a pas qu'une mais plusieurs feuille ? Là ça dépend de ce que fais ta procédure.
Le plus simple et de faire une boucle pour chaque feuille :

- création de la feuille avec instanciation dans la variable Sh
- actions à faire sur la feuille
- copie vers la feuille compilation
- on recommence la boucle avec la création d'une autre feuille
- etc..

[Master_x_99]

Bonjour

Je reviens à la charge. Pour la création dynamique des feuilles je sais le faire.

Je suis un peu pris à cette étape. Je vous explique:

Le fichier maître (Création) contient des noms de joueurs. Avec une macro, je créer un dossier compilation et un fichier compilation.xlsm contenant une feuille compilation et tout les feuilles des joueurs.

Dans chaque feuille de joueurs, les statistiques se retrouve de B6 à AL6.

J'aimerais pouvoir récupérer les valeurs contenu dans le B6-AL6 et les faire apparaître dans la feuille compilation.

J'ai réussi avec cette macro:

Code :

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

1
2
3
 
Sheets("compilation").Select
    Range("B6") = "=test!B6"

Par contre, le problème c'est que j'ai plusieurs feuilles donc les cellules de la feuille compilation doivent ce voir comme suit B7 pour la feuille suivante, B8 et ainsi de suite.

Je sais qu'il y a surment une solution.

Merci

[RyuAutodidacte]

Bonjour,
Essaye ça. A adapter à ton fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Compilation()
Dim ws As Worksheet, Rw&, Der_L As Long
 
Der_L = Sheets("COMPILATION").Range("B5").CurrentRegion.Resize(, 1).Rows.Count
 
        For Each ws In Worksheets
           If ws.Name <> "COMPILATION" Then
            Sheets("COMPILATION").Range("B" & 5 + Rw + Der_L & ":" & "AL" & 5 + Rw + Der_L).Value = ws.Range("B6:AL6").Value
            Rw = Rw + 1
        End If
    Next ws
 
End Sub

Merci de cliquer sur ça te convient

[cerede2000]

Merci de cliquer sur ça te convient [/QUOTE]

Question bête :p
Pourquoi utiliser Rw au lieu d'incrémenter directement Der_L

[RyuAutodidacte]

tout simplement par ce que je fais du vba qu'à de rare occasion (quand jen ai besoin pour me créer un outil de travail), je suis pas un pro et en plus je suis en train d'apprendre; répondre à des post me sert d'exercices concret
mais si tu veux simplifier le code je suis preneur ça permettra de m' (nous) améliorer
et le rôle du forum c'est l'entraide, et je le fait avec les moyens que j'ai