Discussion :

[macto]

Bonjour,

J'ai actuellement un fichier où il y a de nombreux onglets (sur le fichier joint, je n'en ai mis que 5).
Sur ces onglets, il y a une liste de questions par personne.
J'aimerai par exemple, créer une liste de tous les agents qui ont répondu dans la celulle B4 (avec en plus le commentaire de la ligne C4).

Le résultat se trouve sur l'onglet : réponse question Paris



La macro devra donc extraire ces données dans toutes les feuilles présente dans le fichier Excel, et les placer dans une nouvelle feuille.
La macro ne devra pas prendre en compte les feuilles dont la cellule G1 est égal à "NON".


Est-ce possible ?
J'éspère que c'est assez clair

Cordialement
Macto

[zazaraignée]

Oui, c'est possible.

Non (pour ma part), je n'ouvre pas de fichiers joints. Voir la notice sur ce sujet.

Ton analyse me semble bien faite. Tu bloques où au juste?

[macto]

Merci de ta réponse

Malheureusement je bloque tout court. Niveau macro, j'ai des connaissance seulement sur quelques points facile ( enregistrement de macro, les Si dans les macros, ...).
Du coup là je me retrouve bloqué pour réaliser cela

Si tu as une petite idée ce serai super d'avoir une première piste

[casefayere]

Bonjour,
Je n'ai pas tout compris mais une première piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub recap()
Dim fl As Worksheet, i As Long, dl As Long
With Sheets("réponse question Paris")
    dl = .Range("a" & .Rows.Count).End(xlUp).Row
    .Range("A2:C" & dl).ClearContents
    i = 2
    For Each fl In ActiveWorkbook.Worksheets
        If fl.Range("G1") <> "NON" Then
            If Not IsEmpty(fl.Range("B4")) Then
                .Range("A" & i) = fl.Name
                .Range("B" & i) = fl.Range("B4")
                .Range("C" & i) = fl.Range("C4")
                i = i + 1
            End If
        End If
    Next fl
End With
End Sub

à améliorer