extraction de lignes dans un classeur

[Jc]

Bonsoir a tous,
je voudrais savoir si on peut extraire la même ligne de toutes les feuilles d'un classeur et les lister dans une feuille indépandante
ex:
extraire le ligne 15 de toutes les feuilles du classeur et les regrouper avec le nom d'origne de leur feuilles sur une autre que l'on pourrait appeler extraction
voir le fichier joint pour exemple
merci de votre aide

 

[Moa]

Salut JC !

Voilà le début du boulot, pour le reste, voit avec quaelqu'un d'autre car je vais me pieuter.

Faire un sommaire de toutes les feuilles de ton classeur :

Sub Sommaire()
Dim x As Integer
Dim ws As Worksheet
Sheets("Extraction").Activate
x = 1
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next
End Sub

Regarde l'exemple joint, il ne reste plus qu'à demander de copier la ligne 15 de chaque feuille.

Ce n'est pas difficile, il faut utiliser le même principe que la macro ci-dessus.

Bonne fin de nuit

@ +

Moa