Compiler plusieurs onglets dans un seul

Question

J'ai regardé en long, en large et en travers dans le forum (ici et ailleurs) pour trouver une solution à mon problème... mais rien d'exploitable à mon niveau en VBA ! Je vous sollicite donc... J'ai besoin de compiler dans un seul onglet excel (pour pouvoir faire des TCD ensuite) plusieurs bases de données (identiques en colonnes mais variables en nb de lignes) A l'aide d'une macro, j'ai déjà réussi à copier la base de données contenues dans 22 fichiers différents sur 1 onglet différent de mon fichier de consolidation. Je me retrouve donc avec un fichier excel qui contient 22 onglets et je souhaiterais compiler les données de ces 22 onglets sur un seul. La difficulté (pour moi en tout cas) réside dans le fait que chaque onglet ne contient pas le même nombre de lignes et que forcément, j'ai besoin, dans mon onglet de consolidation, de copier toutes les données les unes après les autres. Je vous joins un exemple que je viens de construire pour que cela soit plus clair (les données de 3 filiales dans 3 onglets différents et un onglet conso qui compile le tout) Que dire de plus ? un grand merci d'avance à tous ceux qui voudront bien prendre un peu de leur temps pour m'aider à finir ce travail ! Carole...

Theze · Answer

A mettre dans un module standard du VBE et exécuter, les commentaires sont dans le code : Sub Recup() Dim Fe As Worksheet Dim Plage As Range 'parcour la collection en évitant kla feuille 'de consolidation For Each Fe In ThisWorkbook.Worksheets If Fe.Name &lt;&gt; "CONSO" Then With Fe 'définie la plage sans la ligne de titres Set Plage = .Range(.Cells(2, 1), _ .Cells( _ .Cells.Find("*", .&#91;A1&#93;, -4123, , _ 1, 2).Row, _ .Cells.Find("*", .&#91;A1&#93;, -4123, , _ 2, 2).Column)) End With 'colle les valeurs dans la feuille de consolidation 'après la dernière ligne non vide Plage.Copy _ Worksheets("CONSO").Range("A65536").End(xlUp).Offset(1, 0) End If Next Fe End Sub Il est préférable d'effectuer un test sur une copie du classeur pour voir si cela convient. Hervé...

Theze · Answer

Pour la question n° 1, j'ai modifié le code afin d'éviter la feuille "INSTRUCTIONS" de la façon suivante : If Fe.Name &lt;&gt; "CONSO" And Fe.Name &lt;&gt; "INSTRUCTIONS" Then Par contre, pour la question n° 2 je suis surpris que la ligne de titre soit copié car la plage est définie à partir de A2 jusqu'à la dernière cellule de la dernière colonne par ".Cells(2, 1)" ou le 2 indique bien que c'est à partir de la deuxième ligne (le 1 indiquant la première colonne) ? A moins que tu es deux lignes d'entêtes ? Dans ce cas, change 2 par 3 dans ".Cells(2, 1)". Je te joins le code modifié avec une ligne qui sera à supprimée (indiquée dans la code) une fois le test réalisé. Pour chaque page, l'adresse de la plage te sera indiquée dans un MsgBox, reviens pour me dire si ça commence bien à A2 ou non et je chercherai l'erreur. Sub Recup() Dim Fe As Worksheet Dim Plage As Range 'parcour la collection en évitant kla feuille 'de consolidation For Each Fe In ThisWorkbook.Worksheets If Fe.Name &lt;&gt; "CONSO" And Fe.Name &lt;&gt; "INSTRUCTIONS" Then With Fe 'définie la plage sans la ligne de titres Set Plage = .Range(.Cells(2, 1), _ .Cells( _ .Cells.Find("*", .&#91;A1&#93;, -4123, , _ 1, 2).Row, _ .Cells.Find("*", .&#91;A1&#93;, -4123, , _ 2, 2).Column)) End With MsgBox Plage.Address '&lt;-ligne à supprimer après le test 'colle les valeurs dans la feuille de consolidation 'après la dernière ligne non vide Plage.Copy _ Worksheets("CONSO").Range("A65536").End(xlUp).Offset(1, 0) End If Next Fe End Sub Hervé...