Macro à appliquer sur plusieurs feuilles

Bonjour à toutes et tous,

Je cherche à consolider dans une feuille SYNTHESE (cellules A1, B1, C1 .....) les plages de données E10:E30 de plusieurs feuilles.

Remarque : Le nombre de feuilles peut fluctuer.

Merci d'avance de votre contribution.

Bonjour

Tu devrais joindre un fichier exemple, car tes explications ne sont pas très claires !

Bonsoir,

J'ai un classeur avec 3 feuilles. Dans chacune des feuilles, j'ai la plage E10:E30 avec des données.

Je souhaite copier cette plage de la feuille 1 (E10:E30) et la coller dans la feuille SYNTHESE sur la plage A10:A30.

Je souhaite copier cette plage de la feuille 2 (E10:E30) et la coller dans la feuille SYNTHESE sur la plage B10:B30.

Je souhaite copier cette plage de la feuille 3 (E10:E30) et la coller dans la feuille SYNTHESE sur la plage C10:C30.

Remarque : Le nombre de feuilles peut fluctuer.

Merci d'avance de votre contribution.

Bonsoir,

un truc comme ça

For i = 2 To Worksheets.Count
    Sheets("Système").Range(Cells(10, i - 1), Cells(30, i - 1)).Value = Sheets(i).Range("E10:E30").Value
Next i

mais pas de fichier, pas de commentaires !

@ bientôt

LouReeD

Bonjour,

Un exemple à étudier.

ALT F8, exécuter la procédure.

Cdlt.

Merci. Je viens de la tester et elle correspond à mon besoin.

Bonjour,

Merci.

Pense à clore le sujet.

Bonne journée.