Bonjour =E0 tous
Besoin d'aide pour une formule pour r=E9cup=E9rer un montant dans plusieurs=
feuilles
Sur chacune de mes feuilles j'ai les d=E9tails des achats et chaque feuille=
s ce termine par une ligne << Total g=E9n=E9ral >> en colonne (A) et le mo=
ntant en colonne (E) cette ligne ne se trouve pas toujours =E0 la m=EAme ha=
uteur sur chaque feuille.
J'ai fait une feuille nomm=E9 << Recap >> et mis cette macro (ci-dessous)po=
ur r=E9cup=E9rer les noms de feuilles en colonne (A)
Comment je peux r=E9cup=E9rer en colonne (B) de ma feuille << Recap >>, le =
montants de la ligne << Total g=E9n=E9ral >> montant de la colonne (E) de c=
haque feuilles
Si pas clair je peux envoy=E9 exemple
Merci =E0 vous bonne journ=E9e
________________________________________
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) =3D f.Name
i =3D 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
isabelle
...pour inclure la recherche directement dans la macro:
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 :
bonjour,
=INDIRECT(A2&"!"&ADRESSE(EQUIV("Total général ";INDIRECT(A2&"!A:A");0);5))
ou bien inclure la recherche directement dans la macro
isabelle
...pour inclure la recherche directement dans la macro:
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 :
bonjour,
=INDIRECT(A2&"!"&ADRESSE(EQUIV("Total général ";INDIRECT(A2&"!A:A");0);5))
ou bien inclure la recherche directement dans la macro
...pour inclure la recherche directement dans la macro:
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 :
bonjour,
=INDIRECT(A2&"!"&ADRESSE(EQUIV("Total général ";INDIRECT(A2&"!A:A");0);5))
ou bien inclure la recherche directement dans la macro