Copier la valeur d'une cellule

Bonjour,

Je souhaite copier la valeur d'une cellule (K3) de toutes les feuilles du fichier ainsi avec le nom de la feuille

Exemple:

J'ai une feuille "Martin" en K3 "100", une autre "Olivier" avec en K3 "200" et une troisième "Isabelle" avec en K3 "210"

Je crée une feuille "Résumé" avec en :

A1= Martin B1 = 100

A2= Olivier B2 = 200

A3= Isabelle B3 = 210

Si quelqu'un à une idée, je le remercie grandement d'avance !

Bonsoir

une solution, la feuille "résumé" doit exister dans le classeur

Sub aargh()
    Set wsr = Sheets("résumé")
    For Each ws In Worksheets
        If ws.Name <> wsr.Name Then
            i = i + 1
            Cells(i, 1) = ws.Name
            Cells(i, 2) = ws.Range("k3")
        End If
    Next
End Sub

Bonjour H2so4 ,

Je suis émerveillé devant ces quelques lignes qui me semble "magique". J'ai le sourire pour, au moins, jusqu'à la fin de la journée

C'était vraiment important pour moi.

Grand merci à toi pour ton aide.

PS: trop heureux du code, j'en ai oublié de pigeonner "réponse valide". Mille excuses

Rechercher des sujets similaires à "copier valeur"