Supprimer des lignes vides et sous-total

J'ai jamais eu de formation en macro, je sais enregistrer ce que je fais manuellement pour ensuite visualiser ce que cela donne en macro et je sais me débrouiller pour y modifier les choses que je veux par la suite dans la macro et jouer avec, mais je ne sais pas exactement comment créer une macro en entier en entrant chaque information comme vous faites. Je connais la base, la comprends, mais il m'est difficile de l'appliquer sans me mélanger! Alors modules vba vide c'est probablement tous les enregistrements que j'ai fait et que j'ai parfois supprimés, parfois jumelés avec d'autres macros. Je vais regarder cela. Merci

Et pour ce qui est d'insérer d'autres équations dans ma ligne de sous-total dans différentes colonnes, est-ce possible?

Oui dans l'ensemble! OHHHHHH je pense savoir, je pourrais utiliser "Conditional formatting" (Je sais pas le nom en français!)

Ma demande est qu'une fois la fonction sous-total effectuée, j'obtiens les lignes des sous-totaux que j'ai demandés pour la colonne G, H, Q et R. Mais j'ai aussi d'autres équations(pas des sous-totaux) que je rajoute manuellement sur mes lignes sous-total dans les colonnes J, K, O, S, Z. Donc au final, la ligne de sous-total comprends des données dans les colonnes G, H, Q, R & J, K, O, S, Z. J'aimerais ne plus les faire manuellement et trouver une macro qui rajouterait ces équations automatiquement dans la ligne qui aura été générée par la fonction sous-total. Pas facile à expliquer!

Oui en plein cela!!!

La macro S fonctionne, la macro M fait Runtime error 1004. et c'est cette ligne de la macro qui bloque: Range("G" & li).FormulaLocal = f


J'essaie de lire et de comprendre la macro, vous avez mis pleins d'indications merci beaucoup

J'ai une version anglaise. J'ai changé sous-total pour subtotal et j'ai changé le ; par une ,mais ça ne fonctionne pas plus.

li=343, li1=334 li2=342
f= sous.total (9;g334:g342)
J'avais oublié de vous dire cela

marche pas plus, pourquoi chez vous cela fonctionne et une fois ici, cela ne fonctionne plus?

J'ai Excel 2007 ou 2016. J'ai les deux versions sur mon ordinateur, je ne sais pas si cela change quelque chose pour vous de savoir cela.

Sub test()
'
' test Macro
'

'
Range("A1:Z342").Select
Range("C339").Activate
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8, 17, _
18), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Ça c'est ce que la macro enregistre quand je fais un sous-total, mais dans g343, il n'y a aucune valeur quand la macro bug si j'essais la macro M
J'ai remarqué que la macro qui ne fonctionne pas génère une ligne à la fin avec aucun sous-total dedans pour le dernier reportID de la colonne A Je te renvois le fichier avec la ligne en rouge.

http://www.cjoint.com/c/FDCs1x7QZb8

la ligne rouge, normal, l'insertion et le report de ID se fait avant que ça plante
Renvoies le fichier avec la macro obtenue

http://www.cjoint.com/c/FDCtqofSsC8

1. Ton ficher a souffert (vois la colonne A), je te le renvoies
2. Non, je crois que tu n'as pas tapé la formule à la main !
en G343 tu tapes la formule =SUBTOTAL(9,G334:G342)
ou SOUS.TOTAL(9;G334:342) je ne sais pas
ça devrait ressembler à ça
Range("G343").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9]C:R[-1]C)"
et tu renvoies le fichier
http://www.cjoint.com/c/FDCtDxZqiLQ
Cdlmnt

http://www.cjoint.com/c/FDCtUlSYgW8

Voilà avec la formule inscrite à la main. Je vous avais mal compris désolé.

C'est étrange, quand j'ouvre mon fichier il est OK (colonne A) Cela doit être le décalage (Blague) Ici il n'est que 15h47!

Je quitte mon travail dans quelques minutes, je regarderai plus tard chez moi, mais il sera tard chez vous alors à demain plus probablement. Merci beaucoup de votre aide.

WOW!!!!! ÇA marche!!!!!!

Je viens de transférer votre macro dans mon fichier réel afin de tester. J'ai activé ma macro en premier et ensuite la votre. Tout est parfait sauf pour le dernier sous-total. Le total de la ligne 383 devrait être après la ligne 384 et inclure la ligne 382 et 384 (Qui serait ligne 383 si le total était au bon endroit.) Parce que la valeur de la colonne A pour ligne 382 & 384 est la même donc aurait dû être calculé ensemble. Je ne sais pas pourquoi cela ne fonctionne pas juste pour ces lignes, parce que le reste est parfait. Et, j'ai vraiment l'impression d'abuser, mais la ligne Grand-total qui englobait le total de toutes les lignes Total n'existe plus. Quand on utilise la fonction sous-total, habituellement cela créé aussi un grand total. Il est facile pour moi de l'ajouter manuellement, mais si c'est pas trop compliquer de la mettre dans la macro.

Je vous mets mon fichier à jour pour que vous puissiez comprendre ce dont je parle.

http://www.cjoint.com/c/FDDmJEYW7Z8

J'ai oublié de vous dire que je l'ai testé dans Production Jeu

RQ. Tu as ajouté la ligne
Sheets("Production Jeu").Select
C'est inutile (et dangereux) les macros s'exécutent sur la feuille active
With ActiveSheet ...... End with

La ligne grand total n'existe jamais à la base, c'est la fonction excel de sous-total qui me générait cette ligne, mais dans ce que j'importe dans excel, il n'y a jamais de ligne grand total, la dernière ligne serait ce qui est inscrit dans la ligne 384.

Pour ce qui est de Sheets("Production jeu")
je croyais devoir rajouter cela car, à la base, dans le fichier que vous m'avez créé, il n'y avait que la journée de mardi dans le fichier, mais moi, en réalité, j'ai un onglet de lundi à vendredi et je dois appliquer cette macro indépendamment chaque jour alors je ne savais pas comment dire à votre macro de l'appliquer à "production jeu". J'avais vu le activesheet, mais je ne comprenais pas comment le activesheet faisait pour s'appliquer à la journée que je voulais. Mais en collant un "Bouton" dans chacune de mes feuilles, je comprends qu'il traitera la feuille ou il y a le bouton.

Alors FIOU mon ordinateur n'a pas explosé! C'est au travail et il est neuf!!! ;-) Mais c'est ce qui fait la différence entre vous et moi, vous êtes l'expert, je suis la débutante!

Hummm, j'ai le même résultat que le fichier de ce matin. Ma ligne 382 & 384 sont séparées par le total qui aurait dû calculer les deux lignes ensemble et je n'ai pas de grand total. J'ai même téléchargé ton fichier joint 2x au cas ou je me serais trompée!

C'est vraiment parfait, j'avais oublié la petite formule de la colonne Z dans la ligne total. Mais avec toutes vos indications très claires, je vais m'essayer de la rajouter dans votre macro et si jamais je n'y arrive pas, je vous le demanderai. La macro qui supprime les cellules vide ne supprime pas les formules dans les lignes 315 à 350. Ma macro étant beaucoup plus de base que la votre et ne sachant comment bien créer une boucle, j'avais mis des formules jusque dans la ligne 350 au cas ou j'en importerais plus qu'à l'habitude. Mais au final cela ne change rien au résultat, seulement à l'impression alors je vais juste les supprimer avant d'imprimer.

Je vous l'ai dit plus d'une fois, mais VRAIMENT, un gros gros merci pour votre aide. En si peu de temps, vous m'avez permise de rendre mon fichier bien plus rapide et efficace. Chose que je n'aurais pas su réaliser seule. Si vous n'étiez pas si loin, je vous demanderais de me donner une formation! Je ne sais pas ce que vous faites comme métier, mais merci encore vraiment ce temps que vous m'avez consacré.

Cordialement,



Nancy

Oui je m'en doute un peu puisqu'il y a un "SI" mais c'est pas un rush, je vais me pratiquer. ET au pire, continuer à la coller manuellement. Vous venez de me faire sauver tant de temps avec votre macro que c'est un tout petit détail pour moi!

Merci encore et bon week-end!

12 secondes, mais j'attends mon technicien la semaine prochaine, car je trouve mon nouveau Excel 2016 lent comparé à ma version 2007. Peut-être parce qu'il n'a pas encore désinstallé le 2007 et que je me retrouve avec les 2 en même temps. Mais bref la semaine prochaine sera encore mieux! Et toi combien de temps sur ton ordi?

Merci pour l'aide sur la formule Z, j'ai l'impression d'apprendre une autre langue ces derniers jours, un peu comme l'anglais pour moi, je la connais, sans la connaître! Je la comprends par bout et j'en manque des bouts!

Bonjour! J'ai fait mon premier rapport ce matin, tout est vraiment parfait. C'est gentil de m'avoir inscrit toute la formule pour ma colonne z, malheureusement, la formule qui était à inscrire n'était pas celle au dessus mais celle-ci:
=IF($V6>0,$V6,$Z$1) (le "6" change selon la ligne dans laquelle on colle cette formule bien entendu).

Pour tout le reste c'est vraiment GÉNIAL! Et mon Excel est réparé, Temps=3.02 Secondes. Mais je pense quand même que votre ordinateur est pas si mal pour son âge!


Ma connexion à distance ne fonctionnait pas ce week-end, je n'ai donc pas pu y travailler de chez moi!


Merci encore beaucoup!

J'ai une autre demande (Je n'y avais pas pensée avant désolé), dans ma colonne V. Pour les lignes de Total (en gris) là ou tu as ajouté toutes mes autres formules, serait-il possible de mettre la formule "Sous-total Min" Subtotal(5,V##:V##)

Laisse tomber, parce que s'il n'y a pas de résultat dans la colonne V, j'aurai comme résultat du sous-total min: 0 Jan 00 et je voulais que le résultat me donne une date seulement s'il y en avait une au préalable dans la colonne V pour l'ensemble de mon Report ID qui était calculé dans la ligne Total Gris. Pas clair, mais surtout trop compliqué. Je réfléchirai la prochaine fois avant d'écrire!!!

Je travaille encore la formule SI avec les """ &..!!!!! Mais pour le reste tout est parfait et résolu! Même au delà de mes espérances. Merci beaucoup pour votre aide et à une prochaine fois peut-être!!! Passer du bon temps avec vos petits enfants, c'est du temps précieux. Merci

Nancy

J'ai essayé la formule SI comme suit:

f = "=if(v" & li & ">""0"",""v" & li & ",""y" & li & ")"
.Range("z" & li).Formula = f

Mais j'ai fait quelque chose de pas correct car cela ne fonctionne pas.

J'ai essayé aussi avec Cells(li,1).formula = f au lieu de .range...
Mais cela ne fonctionne pas plus et je comprends pas assez bien pour trouver mon erreur... Je vais avoir encore besoin de votre aide, désolé!!!