XL 2019 Macro - Récupérer données avec nom de feuille

Bastien43

XLDnaute Occasionnel
Bonjour,

Je dispose d'un fichier Excel (modèle simplifié joint). je cherche à récupérer dans un nouveau fichier excel :

Depuis le fichier Modulation :
Colonne A : nom de la feuille et colonne B : valeur de la cellule T1

J'ai un classeur de plus de 100 feuilles. Je souhaite récupérer les données les unes en dessous des autres dans ce nouveau fichier excel

Comment faire cette macro ?

Merci pour votre aide.
 

Pièces jointes

  • Modulation.xlsx
    10.3 KB · Affichages: 27
Solution
Bonjour Bastien,
En PJ un essai.
Pour simplifier j'ai mis la synthèse dans le fichier, feuille Synthèse.
La réactualisation s'effectue quand on sélectionne cette feuille avec cette macro :
Code:
Sub Worksheet_Activate()
    Dim F, i
    Application.ScreenUpdating = False: i = 2
    Range("A2:B1000").ClearContents
    Range("A2:B1000").NumberFormat = "0"" m3"""
    For Each F In Worksheets
        If F.Name <> "Synthèse" Then
            Range("A" & i) = F.Name
            Range("B" & i) = Sheets(F.Name).[T1]
            i = i + 1
        End If
    Next F
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Bastien,
En PJ un essai.
Pour simplifier j'ai mis la synthèse dans le fichier, feuille Synthèse.
La réactualisation s'effectue quand on sélectionne cette feuille avec cette macro :
Code:
Sub Worksheet_Activate()
    Dim F, i
    Application.ScreenUpdating = False: i = 2
    Range("A2:B1000").ClearContents
    Range("A2:B1000").NumberFormat = "0"" m3"""
    For Each F In Worksheets
        If F.Name <> "Synthèse" Then
            Range("A" & i) = F.Name
            Range("B" & i) = Sheets(F.Name).[T1]
            i = i + 1
        End If
    Next F
End Sub
 

Pièces jointes

  • Modulation.xlsm
    27.1 KB · Affichages: 19

Discussions similaires

Réponses
10
Affichages
222
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 720
Messages
2 081 899
Membres
101 834
dernier inscrit
Jeremy06510