Calculs automatique pour toutes les feuilles avec nb de ligne différent
1 réponse
akar.serkan
Bonjour, j'aurais besoin de l'aide charitable de plusieurs d'entre
vous :)
Je ne suis pas tr=E8s cal=E9 niveau macros mais j'en ai absolument besoin
d'une pour une t=E2che que j'effectue chaque mois. Je vous explique ;
L'une de mes applications g=E9n=E8re un classeur excel avec plusieurs
feuilles (avec des noms compl=E8tement diff=E9rents) qui ont toutes le
m=EAme format mais o=F9 le nombre de lignes diff=E8re. Exemple :
Feuille 1
A B
C D
1 Nom Pr=E9paiement (%) Pay=E9 ($)
2
3 Mr Z 5
4 =3D(c3/$c$6)*b3
4 Mr U 10
5 =3D(c4/$c$6)*b4
5
6 TOTAL =3DD6 9
=3Dsomme(d3:d4)
Feuille 2
A B
C D
1 Nom Pr=E9paiement (%) Pay=E9 ($)
2
3 Mr O 5
4 =3D(c3/$c$8)*b3
4 Mme T 5 4
=3D(c4/$c$8)*b4
5 Mme N 10 5
=3D(c5/$c$8)*b6
6 Mme B 8 12
=3D(c5/$c$8)*b6
7
8 TOTAL =3DD8 25
=3Dsomme(d3:d6)
J'ai environ une trentaine de feuilles qui sont g=E9n=E9r=E9es par
l'application et mon but serait d'automatiser les calculs avec un
macro, peu importe le nombre de ligne (car chaque mois je g=E9n=E8re le
rapport et de nouveaux clients peuvent avoir =E9t=E9 ajout=E9s ou enlev=E9s=
).
Cela m'=E9viterai de le faire =E0 la main pour chaque feuille et de perdre
un =E9norme temps.
Il se peut aussi que certaines feuilles ne contiennent aucune donn=E9e
(mais les ent=EAtes sont quand m=EAme inscrits). Donc une macro serait
=E9galement la bienvenue pour cette t=E2che :)
Je vous remercie d'avance pour votre aide et j'esp=E8re que j'ai =E9t=E9
assez clair dans ma requ=EAte.
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
Philippe.R
Bonsoir, Pour passer en revue toutes les feuilles d'un classeur :
for i = 1 to sheets.count sheets(i).activate msgbox "La feuille " & sheets(i).name & " est sélectionnée", _ vbinformation,"Merci MPFE" next i
pour détecter la dernière ligne d'une colonne :
maderlig = range("a6543").end(xlup).row msgbox maderlig,vbinformation,"Merci MPFE" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour, j'aurais besoin de l'aide charitable de plusieurs d'entre vous :)
Je ne suis pas très calé niveau macros mais j'en ai absolument besoin d'une pour une tâche que j'effectue chaque mois. Je vous explique ;
L'une de mes applications génère un classeur excel avec plusieurs feuilles (avec des noms complètement différents) qui ont toutes le même format mais où le nombre de lignes diffère. Exemple :
Feuille 1
A B C D 1 Nom Prépaiement (%) Payé ($) 2 3 Mr Z 5 4 =(c3/$c$6)*b3 4 Mr U 10 5 =(c4/$c$6)*b4 5 6 TOTAL Ö 9 =somme(d3:d4)
Feuille 2
A B C D 1 Nom Prépaiement (%) Payé ($) 2 3 Mr O 5 4 =(c3/$c$8)*b3 4 Mme T 5 4 =(c4/$c$8)*b4 5 Mme N 10 5 =(c5/$c$8)*b6 6 Mme B 8 12 =(c5/$c$8)*b6 7 8 TOTAL Ø 25 =somme(d3:d6)
J'ai environ une trentaine de feuilles qui sont générées par l'application et mon but serait d'automatiser les calculs avec un macro, peu importe le nombre de ligne (car chaque mois je génère le rapport et de nouveaux clients peuvent avoir été ajoutés ou enlevés). Cela m'éviterai de le faire à la main pour chaque feuille et de perdre un énorme temps.
Il se peut aussi que certaines feuilles ne contiennent aucune donnée (mais les entêtes sont quand même inscrits). Donc une macro serait également la bienvenue pour cette tâche :)
Je vous remercie d'avance pour votre aide et j'espère que j'ai été assez clair dans ma requête.
Bonsoir,
Pour passer en revue toutes les feuilles d'un classeur :
for i = 1 to sheets.count
sheets(i).activate
msgbox "La feuille " & sheets(i).name & " est sélectionnée", _
vbinformation,"Merci MPFE"
next i
pour détecter la dernière ligne d'une colonne :
maderlig = range("a6543").end(xlup).row
msgbox maderlig,vbinformation,"Merci MPFE"
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<akar.serkan@gmail.com> a écrit dans le message de
news:4d288820-6a8a-4480-a935-6ad4792b7b4f@j22g2000hsf.googlegroups.com...
Bonjour, j'aurais besoin de l'aide charitable de plusieurs d'entre
vous :)
Je ne suis pas très calé niveau macros mais j'en ai absolument besoin
d'une pour une tâche que j'effectue chaque mois. Je vous explique ;
L'une de mes applications génère un classeur excel avec plusieurs
feuilles (avec des noms complètement différents) qui ont toutes le
même format mais où le nombre de lignes diffère. Exemple :
Feuille 1
A B
C D
1 Nom Prépaiement (%) Payé ($)
2
3 Mr Z 5
4 =(c3/$c$6)*b3
4 Mr U 10
5 =(c4/$c$6)*b4
5
6 TOTAL Ö 9
=somme(d3:d4)
Feuille 2
A B
C D
1 Nom Prépaiement (%) Payé ($)
2
3 Mr O 5
4 =(c3/$c$8)*b3
4 Mme T 5 4
=(c4/$c$8)*b4
5 Mme N 10 5
=(c5/$c$8)*b6
6 Mme B 8 12
=(c5/$c$8)*b6
7
8 TOTAL Ø 25
=somme(d3:d6)
J'ai environ une trentaine de feuilles qui sont générées par
l'application et mon but serait d'automatiser les calculs avec un
macro, peu importe le nombre de ligne (car chaque mois je génère le
rapport et de nouveaux clients peuvent avoir été ajoutés ou enlevés).
Cela m'éviterai de le faire à la main pour chaque feuille et de perdre
un énorme temps.
Il se peut aussi que certaines feuilles ne contiennent aucune donnée
(mais les entêtes sont quand même inscrits). Donc une macro serait
également la bienvenue pour cette tâche :)
Je vous remercie d'avance pour votre aide et j'espère que j'ai été
assez clair dans ma requête.
Bonsoir, Pour passer en revue toutes les feuilles d'un classeur :
for i = 1 to sheets.count sheets(i).activate msgbox "La feuille " & sheets(i).name & " est sélectionnée", _ vbinformation,"Merci MPFE" next i
pour détecter la dernière ligne d'une colonne :
maderlig = range("a6543").end(xlup).row msgbox maderlig,vbinformation,"Merci MPFE" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour, j'aurais besoin de l'aide charitable de plusieurs d'entre vous :)
Je ne suis pas très calé niveau macros mais j'en ai absolument besoin d'une pour une tâche que j'effectue chaque mois. Je vous explique ;
L'une de mes applications génère un classeur excel avec plusieurs feuilles (avec des noms complètement différents) qui ont toutes le même format mais où le nombre de lignes diffère. Exemple :
Feuille 1
A B C D 1 Nom Prépaiement (%) Payé ($) 2 3 Mr Z 5 4 =(c3/$c$6)*b3 4 Mr U 10 5 =(c4/$c$6)*b4 5 6 TOTAL Ö 9 =somme(d3:d4)
Feuille 2
A B C D 1 Nom Prépaiement (%) Payé ($) 2 3 Mr O 5 4 =(c3/$c$8)*b3 4 Mme T 5 4 =(c4/$c$8)*b4 5 Mme N 10 5 =(c5/$c$8)*b6 6 Mme B 8 12 =(c5/$c$8)*b6 7 8 TOTAL Ø 25 =somme(d3:d6)
J'ai environ une trentaine de feuilles qui sont générées par l'application et mon but serait d'automatiser les calculs avec un macro, peu importe le nombre de ligne (car chaque mois je génère le rapport et de nouveaux clients peuvent avoir été ajoutés ou enlevés). Cela m'éviterai de le faire à la main pour chaque feuille et de perdre un énorme temps.
Il se peut aussi que certaines feuilles ne contiennent aucune donnée (mais les entêtes sont quand même inscrits). Donc une macro serait également la bienvenue pour cette tâche :)
Je vous remercie d'avance pour votre aide et j'espère que j'ai été assez clair dans ma requête.
