Montant sur plusieurs feuilles
Le
syleg35

Bonjour à tous
Besoin d'aide pour une formule pour récupérer un montant dans plusieurs=
feuilles
Sur chacune de mes feuilles j'ai les détails des achats et chaque feuille=
s ce termine par une ligne << Total général >> en colonne (A) et le mo=
ntant en colonne (E) cette ligne ne se trouve pas toujours à la même ha=
uteur sur chaque feuille.
J'ai fait une feuille nommé << Recap >> et mis cette macro (ci-dessous)po=
ur récupérer les noms de feuilles en colonne (A)
Comment je peux récupérer en colonne (B) de ma feuille << Recap >>, le =
montants de la ligne << Total général >> montant de la colonne (E) de c=
haque feuilles
Si pas clair je peux envoyé exemple
Merci à vous bonne journée
________________________________________
Sub ListeFeuilles()
Dim f As Worksheet, i As Integer
With ThisWorkbook.Sheets("Recap").Range("A2")
For Each f In ThisWorkbook.Sheets
If f.Name <> "Recap" Then
.Offset(i) = f.Name
i = i + 1
End If
Next
End With
End Sub
Besoin d'aide pour une formule pour récupérer un montant dans plusieurs=
feuilles
Sur chacune de mes feuilles j'ai les détails des achats et chaque feuille=
s ce termine par une ligne << Total général >> en colonne (A) et le mo=
ntant en colonne (E) cette ligne ne se trouve pas toujours à la même ha=
uteur sur chaque feuille.
J'ai fait une feuille nommé << Recap >> et mis cette macro (ci-dessous)po=
ur récupérer les noms de feuilles en colonne (A)
Comment je peux récupérer en colonne (B) de ma feuille << Recap >>, le =
montants de la ligne << Total général >> montant de la colonne (E) de c=
haque feuilles
Si pas clair je peux envoyé exemple
Merci à vous bonne journée
________________________________________
Sub ListeFeuilles()
Dim f As Worksheet, i As Integer
With ThisWorkbook.Sheets("Recap").Range("A2")
For Each f In ThisWorkbook.Sheets
If f.Name <> "Recap" Then
.Offset(i) = f.Name
i = i + 1
End If
Next
End With
End Sub
=INDIRECT(A2&"!"&ADRESSE(EQUIV("Total général ";INDIRECT(A2&"!A:A");0);5))
ou bien inclure la recherche directement dans la macro
isabelle
Sub ListeFeuilles()
Dim f As Worksheet, i As Integer
With ThisWorkbook.Sheets("Recap").Range("A2")
For Each f In ThisWorkbook.Sheets
If f.Name <> "Recap" Then
rw = Application.Match("Total général",
Sheets(f.Name).Range("A:A"), 0)
i = i + 1
.Range("A" & i) = f.Name
.Range("B" & i) = Sheets(f.Name).Range("E" & rw)
End If
Next
End With
End Sub
isabelle
Le 2014-07-01 11:29, isabelle a écrit :
La macro fonctionne superbe
Merci et bonne soirée
Le mardi 1 juillet 2014 17:45:28 UTC+2, isabelle a écrit :