Discussion :

[jclm230759]

cmdtest.xlsm

Bonjour

J'ai parcouru le Forum mais je n'arrive pas à trouver ce que je veux.
Je reçois régulièrement des commandes que je classe dans un fichier XLs. Je crée une "feuille" par commande.
Je souhaiterais créer un tableau récapitulatif de toutes mes commandes, tableau qui se rempli automatiquement ou via une macro.
Bien entendu, pour simplifier l'histoire , le format des fiches commandes n'est pas identique au format du tableau.
Je ne sais pas changer le format des fiches de commandes.
Le nombre de "feuil" dans le fichier va évoluer suivant le nb de commande que je reçois
Je joins un fichier qui montre un peu ce que je veux faire

Merci d'avance pour votre aide

Jclm

[Many31]

Salut,

soit plus explicite dans ta demande... et les fichiers joints la plupart ne les ouvrent pas comme moi. Aucune envie de tomber sur des trucs louches

Pour parcourir les feuilles d'un classeur :

Code :

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

1
2
3
4
5
6
        For Each Feuille In ThisWorkbook.Sheets
            If Feuille.Name <> "FeuilleRécap" Then
            'ton code
 
            End If
        Next

Ensuite si tes infos ne sont pas aux mêmes endroits fait une recherche (par exemple un boucle sur les colonnes en cherchant les noms de référence)

Pour le reste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim FResult as Worksheet, Feuille as Worksheet
        Set FResult = ThisWorkbook.Sheets("FeuilleRécap")
         ligne = 2
         For Each Feuille In ThisWorkbook.Sheets
            If Feuille.Name <> "FeuilleRécap" Then
            'ton code
                FResult(ligne,1) = Feuille.Name
                FResult(ligne,2) = Feuille.Cells(2,2)
                ligne = ligne + 1
            End If
        Next

Ca devrait être un bon début pour développer ce dont tu as besoin

[jclm230759]

Bonjour

Merci pour l'aide.
Mon fichier annexé est sur :-)
Ce code je dois le mettre dans la feuille ou dans un module

Merci et bonne journée

JClm

[BENNASR]

Bonsoir à tous
une proposition à lier à un bouton de commande ,

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
Sub recap()
Dim sh As Worksheet
i = 1
Application.ScreenUpdating = False
With Sheets("RECAP")
 
Sheets("RECAP").Range("A2:E1000").Select
Selection.ClearContents
For Each sh In ThisWorkbook.Sheets
            If sh.Name <> "RECAP" Then
            .Cells(i, 1) = sh.Range("A2")
            .Cells(i, 2) = sh.Range("A6")
            .Cells(i, 3) = sh.Range("C6")
            .Cells(i, 4) = sh.Range("B11")
            .Cells(i, 5) = sh.Range("D11")
            End If
            i = i + 1
        Next
        End With
        Application.ScreenUpdating = True
End Sub

[jclm230759]

Bonjour Bennasr

Merci pour ton aide.
Cela fonctionne merci

Jclm