Consolidation de n feuilles avec "Consolidate Sources:="

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:

---

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

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:

---

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

---

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:

---

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

---

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 ??

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

re bonsoir cousin
une piste à adapter

Code:

---

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

---

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

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.

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 :D . Merci encore cousin.

Philippe:

Citation:

---

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.

Bonjour,

Citation:

---

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.

Bonjour,


Voici a quoi ressemble mes feuilles.
Pièce jointe 433636


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.

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 8-)

Merci de votre aide.

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)

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.