Copiage auto de cellule à partir de différentes feuilles

Bonjour,

Dans classeur excel 2007FR, je voudrais mettre

en feuille1 cellule A1 le contenu de la cellule Z10 de la feuille 2,

en feuille1 cellule A2 le contenu de la cellule Z10 de la feuille 3,

en feuille1 cellule A3 le contenu de la cellule Z10 de la feuille 4,

…..., jusqu'à la dernière feuille du classeur.

Je ne connais pas le nombre de feuilles ni leur nom car elles viendront d'un autre fichier par copier/coller valeurs mais je voudrais "automatiser" la procédure car elle est fastidieuse et source d'erreur lorsqu'elle est répétée souvent!

Une fois que j'aurai la solution, je la reproduirai le nombre de fois qu'il faudra en la modifiant pour l'appliquer à d'autres cellules mais toujours avec le même principe. Mon but final étant de faire un tableau récapitulatif.

Quelqu'un a-t-il une idée pour un débutant comme moi?

D'avance, un tout grand merci.

Stoky

Salut Stoky,

Voici un code qui devrait faire l'affaire :

Option Explicit

Sub a()
Dim j As Integer

Application.ScreenUpdating = False

If Range("A" & Rows.Count).End(xlUp).Row > 1 Then
Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
End If

For j = 1 To Sheets.Count
    If Sheets(j).Name = "Feuil1" Then GoTo Etiquette
    Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = Sheets(j).Name
    Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1) = Sheets(j).Range("Z10")
Etiquette:
Next

End Sub

Cordialement.

super merci mais un petit problème subsiste.

Si dans une feuille, Z10 est vide, la correspondance ne se fait plus avec le nom de la feuille puisque la macro envoie dans la première cellule vide de la colonne.

A partir de ce que tu m'as fourni, je vais savoir me débrouiller j'espère. sinon, je me permettrai de revenir vers toi sur ce forum.

Cordialement

Stoky

C'est effectivement qu'une question de réglages. Si jamais reviens à la charge avec tes questions.

Bonne fin de semaine.