Bonjour et d'abord merci (notamment à Jean François) pour votre aide.
J'auirais besoin de qq petits trucs pour finir ma macro.
J'ai un fichier "Statslabo.xls" composé de x feuilles dont le nom et le
nombre peuvent changer à tout moment.
De ce fichier, je souhaite extraire dans un frichier "recap.xls" un tableau
de x lignes avec
le nom de chque feuille
la somme de lacolonne H de chaque feuille
la somme de la colonne J de chaque feuille
Comment faire
1. poser mes formules en H300 et J300 de toutes mes feuilles pour faire la
soomme des colonnes H et J
2. rapatrier dans mon fichier "Recap.xls" un tableau avec pour chaque
feuille du fichier "StatsLabo" le nom de la feuille, la valeur de la cellule
J300, et , la valeur de la cellule H300
J'ai donc créé une macro dans mon fichier Recap, mais c'est pas top. JE ne
m'en sors pas. Pouvez vous me donner des idées ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonsoir Vincent, On suppose macro dans Statslabo module standard Donc si tes totaux sont déjà en h300 et j300 comme indiqué: '*** Sub recap() Dim i As Integer Dim mwb As Workbook Set mwb = Workbooks("Statslabo.xls") Workbooks.Add ActiveWorkbook.SaveAs ("recap.xls") [a1] = "feuille" [b1] = "total h" [c1] = "total j"
For i = 1 To mwb.Worksheets.Count With mwb.Worksheets(i) Cells(i + 1, 1) = .Name Cells(i + 1, 2) = .Range("h300").Value Cells(i + 1, 3) = .Range("j300").Value End With Next End Sub '*** 'lSteph
"Vincent M" a écrit dans le message de news: 41702e99$0$822$
Bonjour et d'abord merci (notamment à Jean François) pour votre aide. J'auirais besoin de qq petits trucs pour finir ma macro. J'ai un fichier "Statslabo.xls" composé de x feuilles dont le nom et le nombre peuvent changer à tout moment.
De ce fichier, je souhaite extraire dans un frichier "recap.xls" un tableau de x lignes avec le nom de chque feuille la somme de lacolonne H de chaque feuille la somme de la colonne J de chaque feuille
Comment faire 1. poser mes formules en H300 et J300 de toutes mes feuilles pour faire la soomme des colonnes H et J 2. rapatrier dans mon fichier "Recap.xls" un tableau avec pour chaque feuille du fichier "StatsLabo" le nom de la feuille, la valeur de la cellule J300, et , la valeur de la cellule H300
J'ai donc créé une macro dans mon fichier Recap, mais c'est pas top. JE ne m'en sors pas. Pouvez vous me donner des idées ?
Merci d'avance a+ Vincent
Bonsoir Vincent,
On suppose macro dans Statslabo
module standard
Donc si tes totaux sont déjà en h300 et j300 comme indiqué:
'***
Sub recap()
Dim i As Integer
Dim mwb As Workbook
Set mwb = Workbooks("Statslabo.xls")
Workbooks.Add
ActiveWorkbook.SaveAs ("recap.xls")
[a1] = "feuille"
[b1] = "total h"
[c1] = "total j"
For i = 1 To mwb.Worksheets.Count
With mwb.Worksheets(i)
Cells(i + 1, 1) = .Name
Cells(i + 1, 2) = .Range("h300").Value
Cells(i + 1, 3) = .Range("j300").Value
End With
Next
End Sub
'***
'lSteph
"Vincent M" <v.mercy@free.fr> a écrit dans le message de news:
41702e99$0$822$626a14ce@news.free.fr...
Bonjour et d'abord merci (notamment à Jean François) pour votre aide.
J'auirais besoin de qq petits trucs pour finir ma macro.
J'ai un fichier "Statslabo.xls" composé de x feuilles dont le nom et le
nombre peuvent changer à tout moment.
De ce fichier, je souhaite extraire dans un frichier "recap.xls" un
tableau
de x lignes avec
le nom de chque feuille
la somme de lacolonne H de chaque feuille
la somme de la colonne J de chaque feuille
Comment faire
1. poser mes formules en H300 et J300 de toutes mes feuilles pour faire la
soomme des colonnes H et J
2. rapatrier dans mon fichier "Recap.xls" un tableau avec pour chaque
feuille du fichier "StatsLabo" le nom de la feuille, la valeur de la
cellule
J300, et , la valeur de la cellule H300
J'ai donc créé une macro dans mon fichier Recap, mais c'est pas top. JE ne
m'en sors pas. Pouvez vous me donner des idées ?
Bonsoir Vincent, On suppose macro dans Statslabo module standard Donc si tes totaux sont déjà en h300 et j300 comme indiqué: '*** Sub recap() Dim i As Integer Dim mwb As Workbook Set mwb = Workbooks("Statslabo.xls") Workbooks.Add ActiveWorkbook.SaveAs ("recap.xls") [a1] = "feuille" [b1] = "total h" [c1] = "total j"
For i = 1 To mwb.Worksheets.Count With mwb.Worksheets(i) Cells(i + 1, 1) = .Name Cells(i + 1, 2) = .Range("h300").Value Cells(i + 1, 3) = .Range("j300").Value End With Next End Sub '*** 'lSteph
"Vincent M" a écrit dans le message de news: 41702e99$0$822$
Bonjour et d'abord merci (notamment à Jean François) pour votre aide. J'auirais besoin de qq petits trucs pour finir ma macro. J'ai un fichier "Statslabo.xls" composé de x feuilles dont le nom et le nombre peuvent changer à tout moment.
De ce fichier, je souhaite extraire dans un frichier "recap.xls" un tableau de x lignes avec le nom de chque feuille la somme de lacolonne H de chaque feuille la somme de la colonne J de chaque feuille
Comment faire 1. poser mes formules en H300 et J300 de toutes mes feuilles pour faire la soomme des colonnes H et J 2. rapatrier dans mon fichier "Recap.xls" un tableau avec pour chaque feuille du fichier "StatsLabo" le nom de la feuille, la valeur de la cellule J300, et , la valeur de la cellule H300
J'ai donc créé une macro dans mon fichier Recap, mais c'est pas top. JE ne m'en sors pas. Pouvez vous me donner des idées ?
