Discussion :

[hmcirta]

Bonjour,

J'ai plusieurs fichiers qui contiennent chacun entre 50 et 200 feuilles, c'est feuilles ont toutes le même format.

Je voudrais utiliser "Données/Consolider" pour consolider telle ou telle plage de cellules d'un nombre variable de feuilles successives, mais la tache s’avère pénible quand on doit consolider 200 feuilles.

J'ai donc chercher sur le net une solution VBA à mon problème et j'ai trouvé ce code;

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
Sub Consolidate_Totals()
    Dim ws As Worksheet
    Dim sArray As Variant, i As Integer
    ReDim sArray(1 To 1)
 
    '---Make Array with Named Ranges to be Consolidated
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible And ws.Name <> "Total" Then
            i = i + 1
            ReDim Preserve sArray(1 To i)
            sArray(i) = ws.UsedRange.Address(ReferenceStyle:=XlReferenceStyle.xlR1C1, external:=True)
        End If
    Next ws
    If i = 0 Then Exit Sub
 
    '---Consolidate using the Array
    Sheets("Total").Range("j10").Consolidate Sources:=(sArray), _
        Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub

mais ce code consolide toutes les cellules utilisées des feuilles visibles uniquement.

Comme je suis nul (mais vraiment nul hein) en VBA est-ce que quelqu'un peut modifier ce code pour consolider une plage de cellules (qui est la même sur toutes les feuilles) de n feuilles que je choisirais ?

Merci de votre aide

[Philippe Tulliez]

Bonjour,
La réponse est dans ta question. Tu écris toi même que le traitement ne se fait que sur les feuilles visibles.
Ne vois-tu rien qui te donne une piste en ligne 8 ?
Sans avoir testé, je supprimerais

Code :

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

If ws.Visible And ws.Name <> "Total" Then

[hmcirta]

Bonjour Philippe

Merci de ta réponse.

Oui oui j'avais remarqué la ligne 8. Ce code ne consolide que les feuilles visibles. J'ai eu l'idée de masquer toutes les feuilles sauf celle que je veux consolider.

Mais ce que je voudrai c'est consolider uniquement une plage de cellules que je choisirai (par exemple M13:V45) et non pas toutes les cellules utilisées ou formatées.

Code :

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

sArray(i) = ws.UsedRange.Address(ReferenceStyle:=XlReferenceStyle.xlR1C1, external:=True)

[BENNASR]

bonsoir cousin et bienvenue, bonsoir la forum
donc vous cherchez à consolider les fichiers qui ont la même structure les une après les autres c'est ça ??? veux tu ajouter une colonne pour indiquer la source?? exemple feuil1, ou feuil2 ou feuilx ??

[Philippe Tulliez]

Bonjour,
Toujours sans avoir testé, remplacer UsedRange.Address par Range("M13:V45").Address

[BENNASR]

re bonsoir cousin
une piste à adapter

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
Sub collecterDonnées()
Application.ScreenUpdating = False 'juste pour arrêter affichage écran et améliorer le temps d'exécution du macro
Dim derligne As Long
Dim j As Long
Dim K As Long
j = 2 'Les données seront classées dans la feuille RECAP à partir de a ligne 2
With Sheets("RECAPITULATIF")
derligne = .Range("A" & Rows.Count).End(xlUp).Row 'chercher la dernière ligne non vide de la feuille RECAP
'*********************************************vider les ligne à partir de la ligne 5
.Range("A2:AA" & derligne).ClearContents
 ' *****************************************Importer les données dans la feuille RECAP
 For i = 1 To Worksheets.Count
 j = .Range("A" & Rows.Count).End(xlUp).Row
        If Worksheets(i).Name <> "RECAPITULATIF" Then
            K = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
            Worksheets(i).Range("A2:G" & K).Copy .Range("A" & j)
            K = 0
        End If
        j = j + 1
    Next i
End With
Application.ScreenUpdating = True
End Sub

[BENNASR]

voila un exemple à adapter
je consolide que la colonne A & B

[hmcirta]

Bonjour,
Désolé pour le retard mais j'étais en déplacement.

Merci pour vos réponses, je testerai vos propositions dès que je rentre tout à l'heure et je reviens vers vous.

[hmcirta]

Bonjour,

BENNASR: Merci de ton aide mais ce n'est pas cette consolidation que je voulais faire, mais celle de "Données/Consolider" du menu. Mais je garde quand meme ton fichier au cas ou . Merci encore cousin.

Philippe:

Toujours sans avoir testé, remplacer UsedRange.Address par Range("M13:V45").Address

Merci pour ta réponse car ce remplacement a donné le résultat attendu pour ce qui est de la plage a consolider. Ça fait un point de résolu. Il ne reste plus qu'a indiquer a Excel les N feuilles a consolider parmi celle du classeur (sans passer par cacher les autres feuilles).

Voici un exemple très réduit de mon fichier.

Les plages coloriées sont celle que je veux consolider séparément et selon la demande.

[Philippe Tulliez]

Bonjour,

Voici un exemple très réduit de mon fichier

Désolé mais je n'ouvre pas les fichiers joints.
Une bonne explication illustrée par une ou plusieurs images est largement suffisante.

[hmcirta]

Bonjour,


Voici a quoi ressemble mes feuilles.



Comme je disais ceci est une feuille parmi plusieurs (entre 50 et 200) par classeur.
Puisque la question de la plage a consolider et resolue, maintenant il ne reste plus qu'a indiquer a Excel les N feuilles concernées par la consolidation.

Si mon classeur contient les feuilles DMR01, DMR02, DMR03, ... , DMRX comment indiquer a Excel de consolider les plages roses par exemple des feuilles DMR12 a DMR20 en suite consolider les plages oranges par exemple des feuilles DMR59 a DMR66.

[hmcirta]

Bonjour,

C'est a ce point que ça coince toujours

Est-ce que je vais devoir cacher a chaque fois les feuilles que je veux pas consolider ? Ou y a t-il un moyen de demander a Excel de le faire en faisant un choix: Par exemple créer un USERFORM ou l'on peut faire le choix du fichier en introduisant son chemin, et choisir les feuilles et la plage de cellules qui vont être consolider.

Je sais je demande trop, perfectionniste est mon plus grand défaut

Merci de votre aide.

[Philippe Tulliez]

Bonjour,
Bien entendu qu'il est possible de créer une boîte de dialogue pour choisir une ou plusieurs feuilles, ou pour choisir un classeur, un dossier, etc. mais pour ces derniers, il existe des boîtes de dialogues dédiées (Propriété FileDialog de l'objet Application)

[hmcirta]

Bonjour,

OK, je vais faire des recherches et des tests et si j'aboutis a quelque chose je reviens vers vous.

Merci de votre aide.