Discussion :

[FERDINAND Jean]

Comment concevoir un macro avec excel 2007 pouvant permettre de prendre dans chaque feuille, d'un classeur de 40 feuilles, le contenu des cellules (2,5), (2,6),(2,7) et les placer successivement dans une feuille de synthèse du même classeur respectivement dans la plage (3Lx40C) des colonnes D a AQ ?

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris la demande, cela signifie qu'il faut transposer les cellules E2:G2 des 40 feuilles présentes dans un classeur à partir de la colonne D sur une feuille de synthèse du même classeur.
Alors questions.

• Cette feuille de synthèse est-elle déjà présente dans ce classeur ou faut-il la créer ?
• Et dans la négative, les 40 feuilles sont elles les seules présentes dans le classeur ?
• Ne faut-il pas mettre un titre aux colonnes ?

L'enregistreur de macros te donnera le code du Copier/Collage spécial - Transpose et pour parcourir l'ensemble des feuilles d'un classeur une boucle For Each Objet In Collection

Exemple

Code :

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

1
2
3
4
5
6
Sub t()
  Dim sht As Worksheet
  For Each sht In ThisWorkbook.Worksheets
    MsgBox sht.Name
  Next
End Sub

Remplacer la ligne 4 du code publié par le code Copier/Collage Special - Transpose et ne pas oublier d'incrémenter à chaque passage de la boucle, une variable représentant le numéro de colonne où l'on doit transposer (au premier passage, il doit être égal à 4)
On peut également le faire avec une variable tableau que l'on transpose mais cela, l'enregistreur de macro ne nous est d'aucun secours

[FERDINAND Jean]

Merci Philippe
En effet la feuille de synthèse est incluse au classeur.
Il est possible d' avoir plus de 40 feuilles au classeur dépendamment des besoins.
Les colonnes ont déjà un titre. Elles sont ainsi dénommées: ( Observation 1); ......... a (observation 40).