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

Bastien43 · 14 Juillet 2021

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.

sylvanu · 14 Juillet 2021

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 · 14 Juillet 2021

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

Bastien43 · 14 Juillet 2021

Bonjour,
Merci pour la réponse rapide.
Ca marche super bien.
Merci pour votre aide
Cordialement

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

Bastien43

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Bastien43

XLDnaute Occasionnel

Discussions similaires