Sous totaux

[Arpette]

Bonjour le forum,
Je cherche un code VB qui me permettrait de faire des sous-totaux sur une colonne C à chaque changement d'article de la colonne B et qui me garderait que la ligne du sous-total et supprimerait les autres.
Je ne sais pas si c'est faisable, mais d'avance merci.

 

[Fred0o]

Re : Sous totaux

Bonsoir Arpette,

Tu peux essayer ceci pour la colonne A :

Sub Sous_Total()
    Cells([A1].End(xlDown).Row + 1, 1) = WorksheetFunction.Sum(Range(Cells(1, 1), Cells([A1].End(xlDown).Row, 1)))
    Range(Cells(1, 1), Cells([A1].End(xlDown).Row - 1, 1)).EntireRow.Delete
End Sub

A+

 

[Arpette]

Re : Sous totaux

Bonsoir Arpette,

Tu peux essayer ceci pour la colonne A :

Sub Sous_Total()
    Cells([A1].End(xlDown).Row + 1, 1) = WorksheetFunction.Sum(Range(Cells(1, 1), Cells([A1].End(xlDown).Row, 1)))
    Range(Cells(1, 1), Cells([A1].End(xlDown).Row - 1, 1)).EntireRow.Delete
End Sub

A+

Merci Fred0o,
Cela ressemble à ce que je veux, mais le problème c'est que j'ai un bouton qui valide l'ensemble de ma macro et avec ce que tu me propose je n'ai plus rien. Je te joints mon fichier, je veux les sous-totaux sur la colonne B.
Merci pour ton aide

 

[Fred0o]

Re : Sous totaux

Re-bonsoir,

Peux-tu mettre le fichier STP ?
Il est important de préciser clairement sa demande dès le début pour éviter les incompréhensions.

A+

 

[Arpette]

Re : Sous totaux

Re-bonsoir,

Peux-tu mettre le fichier STP ?
Il est important de préciser clairement sa demande dès le début pour éviter les incompréhensions.

A+

Je t'ai mis les 2 fichiers, mais je pense ne pas bien savoir faire pour te les envoyer ?
Parcourir...
Parcourir... et après je fais comment ?
Merci de ton aide

 

[Fred0o]

Re : Sous totaux

Re-bonsoir,

Tu zippes les fichiers. Ensuite, dans le forum tu cliques sur "Aller en mode avancé" au bas de cette page. Puis tu cliques sur "Gérer les pièces jointes". Ensuite, tu ajoutes les fichiers zippés puis tu cliques sur "Envoyer" et pour finir tu postes ton message.

A+

 

[Arpette]

Re : Sous totaux

Ok' c'est fait tu as reçu quelque chose ?

 

[Fred0o]

Re : Sous totaux

Re-bonsoir,

Ben non !

Les fichiers doivent se retrouver dans ton post !

Après avoir cliqué sur "Envoyer" pour les fichiers, vérifie que tu n'a pas un message sur la taille maxi de ce style dans la fenêtre d'envoi des fichiers :

Fichier essai.xls:
Votre fichier de 323,0 Ko octets dépasse la limite du forum de 48,8 Ko pour ce type de fichier.

Ajouter un fichier à partir de votre ordinateur​

Sinon, c'est que tes fichiers sont trop gros, donc il faut utiliser
A+

 

[Arpette]

Re : Sous totaux

Je ne comprends pas mes fichiers font 60+40 ko. Je retente

 

[Arpette]

Re : Sous totaux

Bonne nuit Fed0o, à demain, je vais me coucher

 

[Fred0o]

Re : Sous totaux

Re-bonsoir,

Voici un petit mode opératoire détaillé :

Cijoint.fr - Service gratuit de dépôt de fichiers

Suis-le pour poster des fichiers.

A+

 

[Arpette]

Re : Sous totaux

Re-bonsoir,

Voici un petit mode opératoire détaillé :

Cijoint.fr - Service gratuit de dépôt de fichiers

Suis-le pour poster des fichiers.

A+

Merci Fred0o, c'est bien pratique

Cijoint.fr - Service gratuit de dépôt de fichiers
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Arpette]

Re : Sous totaux

Bonjour Fred0o, tu as reçu les liens pour mes fichiers ?
A+

 

[JCGL]

Re : Sous totaux

Bonjour à tous,

Pourquoi ne pas utiliser un TCD (Tableau Croisé Dynamique) ?

Voir l'exemple en attachement

A+ à tous

 

[Arpette]

Re : Sous totaux

Bonjour à tous,

Pourquoi ne pas utiliser un TCD (Tableau Croisé Dynamique) ?

Voir l'exemple en attachement

A+ à tous

Oui c'est vrai, mais mas macro tourne sur l'autre fichier qui me calcule le numéro de semaine en colonne E, que je concatène en colonne B avec l'article qui se trouve en colonne A. Ensuite ces valeur sont exportées vers un autre classeur.
Merci pour ton aide