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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26233302
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
isabelle
Le #26233422
...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

syleg35
Le #26233502
Bonsoir Isabelle

La macro fonctionne superbe
Merci et bonne soirée


Le mardi 1 juillet 2014 17:45:28 UTC+2, isabelle a écrit :
...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 ";INDIR ECT(A2&"!A:A");0);5))

>

> ou bien inclure la recherche directement dans la macro

>

> isabelle

>
Publicité
Poster une réponse
Anonyme